src/Doc/antiquote_setup.ML
changeset 61616 abbecf4e6601
parent 61615 e8fcd347b669
child 61617 cd7549cd5fe7
equal deleted inserted replaced
61615:e8fcd347b669 61616:abbecf4e6601
   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