src/Pure/Thy/document_antiquotations.ML
changeset 67471 bddfa23a4ea9
parent 67468 aa8c25c528c0
child 67474 90def2b06305
equal deleted inserted replaced
67470:d36fcde7e2c0 67471:bddfa23a4ea9
   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 =