--- 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
--- 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")
--- 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>\<open>rail\<close> (Scan.lift Args.text_input)