equal
deleted
inserted
replaced
81 theory_name: string, |
81 theory_name: string, |
82 pos: Position.T, |
82 pos: Position.T, |
83 id: serial}; |
83 id: serial}; |
84 |
84 |
85 fun entry_markup def kind (name, {pos, id, ...}: entry) = |
85 fun entry_markup def kind (name, {pos, id, ...}: entry) = |
86 Markup.properties (Position.entity_properties_of def id pos) (Markup.entity kind name); |
86 Markup.properties (Position.entity_properties_of def id pos) (Isabelle_Markup.entity kind name); |
87 |
87 |
88 fun print_entry def kind (name, entry) = |
88 fun print_entry def kind (name, entry) = |
89 quote (Markup.markup (entry_markup def kind (name, entry)) name); |
89 quote (Markup.markup (entry_markup def kind (name, entry)) name); |
90 |
90 |
91 fun err_dup kind entry1 entry2 = |
91 fun err_dup kind entry1 entry2 = |
124 |
124 |
125 fun entry_ord space = int_ord o pairself (#id o the_entry space); |
125 fun entry_ord space = int_ord o pairself (#id o the_entry space); |
126 |
126 |
127 fun markup (Name_Space {kind, entries, ...}) name = |
127 fun markup (Name_Space {kind, entries, ...}) name = |
128 (case Symtab.lookup entries name of |
128 (case Symtab.lookup entries name of |
129 NONE => Markup.hilite |
129 NONE => Isabelle_Markup.hilite |
130 | SOME (_, entry) => entry_markup false kind (name, entry)); |
130 | SOME (_, entry) => entry_markup false kind (name, entry)); |
131 |
131 |
132 fun is_concealed space name = #concealed (the_entry space name); |
132 fun is_concealed space name = #concealed (the_entry space name); |
133 |
133 |
134 |
134 |