equal
deleted
inserted
replaced
97 |> maps output_symbols_antiq |
97 |> maps output_symbols_antiq |
98 | (SOME Comment.Comment, _) => |
98 | (SOME Comment.Comment, _) => |
99 let |
99 let |
100 val body = Symbol_Pos.cartouche_content syms; |
100 val body = Symbol_Pos.cartouche_content syms; |
101 val source = Input.source true (Symbol_Pos.implode body) (Symbol_Pos.range body); |
101 val source = Input.source true (Symbol_Pos.implode body) (Symbol_Pos.range body); |
|
102 val ctxt' = ctxt |
|
103 |> Config.put Document_Antiquotation.thy_output_display false; |
102 in |
104 in |
103 output_text ctxt {markdown = false} source |
105 output_text ctxt' {markdown = false} source |
104 |> Latex.enclose_body "%\n\\isamarkupcmt{" "%\n}" |
106 |> Latex.enclose_body "%\n\\isamarkupcmt{" "%\n}" |
105 end |
107 end |
106 | (SOME Comment.Cancel, _) => |
108 | (SOME Comment.Cancel, _) => |
107 output_symbols (Symbol_Pos.cartouche_content syms) |
109 output_symbols (Symbol_Pos.cartouche_content syms) |
108 |> Latex.enclose_body "%\n\\isamarkupcancel{" "}" |
110 |> Latex.enclose_body "%\n\\isamarkupcancel{" "}" |