src/Pure/Thy/html.ML
changeset 45666 d83797ef0d2d
parent 43592 e67d104c0c50
child 46866 b190913c3c41
equal deleted inserted replaced
45665:129db1416717 45666:d83797ef0d2d
    47 (* common markup *)
    47 (* common markup *)
    48 
    48 
    49 fun span class = ("<span class=" ^ quote (XML.text class) ^ ">", "</span>");
    49 fun span class = ("<span class=" ^ quote (XML.text class) ^ ">", "</span>");
    50 
    50 
    51 fun span_class (name, props) =
    51 fun span_class (name, props) =
    52   (case Markup.get_entity_kind (name, props) of
    52   (case Isabelle_Markup.get_entity_kind (name, props) of
    53     SOME kind => Markup.entityN ^ "_" ^ name
    53     SOME kind => Isabelle_Markup.entityN ^ "_" ^ name
    54   | NONE => name);
    54   | NONE => name);
    55 
    55 
    56 val _ = Markup.add_mode htmlN (span o span_class);
    56 val _ = Markup.add_mode htmlN (span o span_class);
    57 
    57 
    58 
    58 
    59 (* symbol output *)
    59 (* symbol output *)
    60 
    60 
    61 local
    61 local
    62   val hidden = span Markup.hiddenN |-> enclose;
    62   val hidden = span Isabelle_Markup.hiddenN |-> enclose;
    63 
    63 
    64   (* FIXME proper unicode -- produced on Scala side *)
    64   (* FIXME proper unicode -- produced on Scala side *)
    65   val html_syms = Symtab.make
    65   val html_syms = Symtab.make
    66    [("", (0, "")),
    66    [("", (0, "")),
    67     ("\n", (0, "<br/>")),
    67     ("\n", (0, "<br/>")),