equal
deleted
inserted
replaced
102 in opt s ctxt end; |
102 in opt s ctxt end; |
103 |
103 |
104 fun print_antiquotations ctxt = |
104 fun print_antiquotations ctxt = |
105 let |
105 let |
106 val (commands, options) = get_antiquotations ctxt; |
106 val (commands, options) = get_antiquotations ctxt; |
107 val command_names = map #1 (Name_Space.extern_table ctxt commands); |
107 val command_names = map #1 (Name_Space.markup_table ctxt commands); |
108 val option_names = map #1 (Name_Space.extern_table ctxt options); |
108 val option_names = map #1 (Name_Space.markup_table ctxt options); |
109 in |
109 in |
110 [Pretty.big_list "document antiquotations:" (map Pretty.mark_str command_names), |
110 [Pretty.big_list "document antiquotations:" (map Pretty.mark_str command_names), |
111 Pretty.big_list "document antiquotation options:" (map Pretty.mark_str option_names)] |
111 Pretty.big_list "document antiquotation options:" (map Pretty.mark_str option_names)] |
112 |> Pretty.chunks |> Pretty.writeln |
112 |> Pretty.chunks |> Pretty.writeln |
113 end; |
113 end; |