equal
deleted
inserted
replaced
26 val cite: {kind: string, citations: (string * Position.T) list, location: text} -> text |
26 val cite: {kind: string, citations: (string * Position.T) list, location: text} -> text |
27 type index_item = {text: text, like: string} |
27 type index_item = {text: text, like: string} |
28 type index_entry = {items: index_item list, def: bool} |
28 type index_entry = {items: index_item list, def: bool} |
29 val index_entry: index_entry -> text |
29 val index_entry: index_entry -> text |
30 val index_variants: (binding -> bool option -> 'a -> 'a) -> binding -> 'a -> 'a |
30 val index_variants: (binding -> bool option -> 'a -> 'a) -> binding -> 'a -> 'a |
31 val latexN: string |
|
32 val output_: string -> Output.output |
31 val output_: string -> Output.output |
33 val output_width: string -> Output.output * int |
32 val output_width: string -> Output.output * int |
34 val escape: Output.output -> string |
33 val escape: Output.output -> string |
35 val output_ops: int option -> Pretty.output_ops |
34 val output_ops: int option -> Pretty.output_ops |
36 end; |
35 end; |
231 |
230 |
232 fun index_variants setup binding = |
231 fun index_variants setup binding = |
233 fold (fn index => setup (index_binding index binding) index) [NONE, SOME true, SOME false]; |
232 fold (fn index => setup (index_binding index binding) index) [NONE, SOME true, SOME false]; |
234 |
233 |
235 |
234 |
236 (* print mode *) |
|
237 |
|
238 val latexN = "latex"; |
|
239 |
|
240 |
|
241 (* markup and formatting *) |
235 (* markup and formatting *) |
242 |
236 |
243 val output_ = output_symbols o Symbol.explode; |
237 val output_ = output_symbols o Symbol.explode; |
244 |
238 |
245 fun output_width str = |
239 fun output_width str = |