equal
deleted
inserted
replaced
137 map (fn (p, name) => |
137 map (fn (p, name) => |
138 Output.output (Pretty.str_of p) ^ |
138 Output.output (Pretty.str_of p) ^ |
139 "\\rulename{" ^ Output.output (Pretty.str_of (Thy_Output.pretty_text ctxt name)) ^ "}") |
139 "\\rulename{" ^ Output.output (Pretty.str_of (Thy_Output.pretty_text ctxt name)) ^ "}") |
140 #> space_implode "\\par\\smallskip%\n" |
140 #> space_implode "\\par\\smallskip%\n" |
141 #> enclose "\\isa{" "}"))); |
141 #> enclose "\\isa{" "}"))); |
142 |
|
143 |
|
144 (* theory file *) |
|
145 |
|
146 val _ = |
|
147 Theory.setup (Thy_Output.antiquotation @{binding thy_file} (Scan.lift Args.name) |
|
148 (fn {context = ctxt, ...} => |
|
149 fn name => (Resources.check_thy Path.current name; Thy_Output.output ctxt [Pretty.str name]))); |
|
150 |
142 |
151 |
143 |
152 (* Isabelle/jEdit elements *) |
144 (* Isabelle/jEdit elements *) |
153 |
145 |
154 local |
146 local |