src/Doc/antiquote_setup.ML
changeset 61615 e8fcd347b669
parent 61462 e16649b70107
child 61616 abbecf4e6601
equal deleted inserted replaced
61614:34978e1b234f 61615:e8fcd347b669
   251       in
   251       in
   252         if check ctxt (name, pos) then
   252         if check ctxt (name, pos) then
   253           idx ^
   253           idx ^
   254           (Output.output name
   254           (Output.output name
   255             |> (if markup = "" then I else enclose ("\\" ^ markup ^ "{") "}")
   255             |> (if markup = "" then I else enclose ("\\" ^ markup ^ "{") "}")
   256             |> (if Config.get ctxt Thy_Output.quotes then quote else I)
   256             |> hyper o enclose "\\mbox{\\isa{" "}}")
   257             |> (if Config.get ctxt Thy_Output.display
       
   258                 then enclose "\\begin{isabelle}%\n" "%\n\\end{isabelle}"
       
   259                 else hyper o enclose "\\mbox{\\isa{" "}}"))
       
   260         else error ("Bad " ^ kind ^ " " ^ quote name ^ Position.here pos)
   257         else error ("Bad " ^ kind ^ " " ^ quote name ^ Position.here pos)
   261       end);
   258       end);
   262 
   259 
   263 fun entity_antiqs check markup kind =
   260 fun entity_antiqs check markup kind =
   264   entity check markup kind NONE #>
   261   entity check markup kind NONE #>