equal
deleted
inserted
replaced
43 val keyword2: string -> T |
43 val keyword2: string -> T |
44 val text: string -> T list |
44 val text: string -> T list |
45 val paragraph: T list -> T |
45 val paragraph: T list -> T |
46 val para: string -> T |
46 val para: string -> T |
47 val quote: T -> T |
47 val quote: T -> T |
48 val backquote: T -> T |
|
49 val cartouche: T -> T |
48 val cartouche: T -> T |
50 val separate: string -> T list -> T list |
49 val separate: string -> T list -> T list |
51 val commas: T list -> T list |
50 val commas: T list -> T list |
52 val enclose: string -> string -> T list -> T |
51 val enclose: string -> string -> T list -> T |
53 val enum: string -> string -> string -> T list -> T |
52 val enum: string -> string -> string -> T list -> T |
166 val text = breaks o map str o Symbol.explode_words; |
165 val text = breaks o map str o Symbol.explode_words; |
167 val paragraph = markup Markup.paragraph; |
166 val paragraph = markup Markup.paragraph; |
168 val para = paragraph o text; |
167 val para = paragraph o text; |
169 |
168 |
170 fun quote prt = blk (1, [str "\"", prt, str "\""]); |
169 fun quote prt = blk (1, [str "\"", prt, str "\""]); |
171 fun backquote prt = blk (1, [str "`", prt, str "`"]); |
|
172 fun cartouche prt = blk (1, [str "\\<open>", prt, str "\\<close>"]); |
170 fun cartouche prt = blk (1, [str "\\<open>", prt, str "\\<close>"]); |
173 |
171 |
174 fun separate sep prts = |
172 fun separate sep prts = |
175 flat (Library.separate [str sep, brk 1] (map single prts)); |
173 flat (Library.separate [str sep, brk 1] (map single prts)); |
176 |
174 |