src/Pure/Thy/thy_output.ML
changeset 67475 1a279ad4c6a4
parent 67474 90def2b06305
child 67505 ceb324e34c14
equal deleted inserted replaced
67474:90def2b06305 67475:1a279ad4c6a4
    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{" "}"