equal
deleted
inserted
replaced
288 (fn ctxt => fn (url, pos) => |
288 (fn ctxt => fn (url, pos) => |
289 let val _ = Context_Position.reports ctxt [(pos, Markup.language_path), (pos, Markup.url url)] |
289 let val _ = Context_Position.reports ctxt [(pos, Markup.language_path), (pos, Markup.url url)] |
290 in Latex.enclose_block "\\url{" "}" [Latex.string url] end)); |
290 in Latex.enclose_block "\\url{" "}" [Latex.string url] end)); |
291 |
291 |
292 |
292 |
293 (* doc entries *) |
|
294 |
|
295 val _ = Theory.setup |
|
296 (Thy_Output.antiquotation_pretty \<^binding>\<open>doc\<close> (Scan.lift (Parse.position Parse.embedded)) |
|
297 (fn ctxt => fn (name, pos) => |
|
298 let val _ = Context_Position.report ctxt pos (Markup.doc name) |
|
299 in [Pretty.str name] end)); |
|
300 |
|
301 |
|
302 (* formal entities *) |
293 (* formal entities *) |
303 |
294 |
304 local |
295 local |
305 |
296 |
306 fun entity_antiquotation name check bg en = |
297 fun entity_antiquotation name check bg en = |