src/Pure/General/pretty.ML
changeset 62094 7d47cf67516d
parent 61883 c0f34fe6aa61
child 62210 e068ea693678
equal deleted inserted replaced
62093:bd73a2279fcd 62094:7d47cf67516d
    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