equal
deleted
inserted
replaced
128 fun output_basic tok = |
128 fun output_basic tok = |
129 let val s = Token.content_of tok in |
129 let val s = Token.content_of tok in |
130 if invisible_token tok then "" |
130 if invisible_token tok then "" |
131 else if Token.is_kind Token.Command tok then |
131 else if Token.is_kind Token.Command tok then |
132 "\\isacommand{" ^ output_syms s ^ "}" |
132 "\\isacommand{" ^ output_syms s ^ "}" |
133 else if Token.is_kind Token.Keyword tok andalso Syntax.is_ascii_identifier s then |
133 else if Token.is_kind Token.Keyword tok andalso Lexicon.is_ascii_identifier s then |
134 "\\isakeyword{" ^ output_syms s ^ "}" |
134 "\\isakeyword{" ^ output_syms s ^ "}" |
135 else if Token.is_kind Token.String tok then |
135 else if Token.is_kind Token.String tok then |
136 output_syms s |> enclose |
136 output_syms s |> enclose |
137 (enclose_literal "\"" "{\\isachardoublequoteopen}") |
137 (enclose_literal "\"" "{\\isachardoublequoteopen}") |
138 (enclose_literal "\"" "{\\isachardoublequoteclose}") |
138 (enclose_literal "\"" "{\\isachardoublequoteclose}") |