# HG changeset patch # User wenzelm # Date 1638717963 -3600 # Node ID 947bb3e09a885f0aa58ea1f7fb4769eba92bbade # Parent 1e84ae3e886e8197903a0ce8966bac627e032aab prefer symbolic Latex.environment (typeset in Isabelle/Scala); diff -r 1e84ae3e886e -r 947bb3e09a88 src/Pure/Thy/document_output.ML --- a/src/Pure/Thy/document_output.ML Sun Dec 05 15:54:46 2021 +0100 +++ b/src/Pure/Thy/document_output.ML Sun Dec 05 16:26:03 2021 +0100 @@ -92,7 +92,7 @@ fun output_block (Markdown.Par lines) = separate (XML.Text "\n") (map (Latex.block o output_line) lines) | output_block (Markdown.List {kind, body, ...}) = - Latex.environment_text (Markdown.print_kind kind) (output_blocks body) + Latex.environment (Markdown.print_kind kind) (output_blocks body) and output_blocks blocks = separate (XML.Text "\n\n") (map (Latex.block o output_block) blocks); in diff -r 1e84ae3e886e -r 947bb3e09a88 src/Pure/Thy/latex.ML --- a/src/Pure/Thy/latex.ML Sun Dec 05 15:54:46 2021 +0100 +++ b/src/Pure/Thy/latex.ML Sun Dec 05 16:26:03 2021 +0100 @@ -21,7 +21,6 @@ val output_syms: string -> string val symbols: Symbol_Pos.T list -> text val symbols_output: Symbol_Pos.T list -> text - val environment_text: string -> text -> text val isabelle_body: string -> text -> text val theory_entry: string -> string type index_item = {text: text, like: string} @@ -191,11 +190,6 @@ (* theory presentation *) -fun environment_text name = - XML.enclose - ("%\n\\begin{" ^ output_name name ^ "}%\n") - ("%\n\\end{" ^ output_name name ^ "}"); - fun isabelle_body name = XML.enclose ("%\n\\begin{isabellebody}%\n\\setisabellecontext{" ^ output_syms name ^ "}%\n") diff -r 1e84ae3e886e -r 947bb3e09a88 src/Pure/Tools/rail.ML --- a/src/Pure/Tools/rail.ML Sun Dec 05 15:54:46 2021 +0100 +++ b/src/Pure/Tools/rail.ML Sun Dec 05 16:26:03 2021 +0100 @@ -384,7 +384,7 @@ output "" rail' @ Latex.string "\\rail@end\n" end; - in Latex.environment_text "railoutput" (maps output_rule rules) end; + in Latex.environment "railoutput" (maps output_rule rules) end; val _ = Theory.setup (Document_Output.antiquotation_raw_embedded \<^binding>\rail\ (Scan.lift Args.text_input)