equal
deleted
inserted
replaced
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/>")), |