equal
deleted
inserted
replaced
163 (fn () => excursion master_dir last_timing init elements); |
163 (fn () => excursion master_dir last_timing init elements); |
164 |
164 |
165 fun present () = |
165 fun present () = |
166 let |
166 let |
167 val res = filter_out (Toplevel.is_ignored o #1) (maps Toplevel.join_results results); |
167 val res = filter_out (Toplevel.is_ignored o #1) (maps Toplevel.join_results results); |
168 val ((minor, _), outer_syntax) = Outer_Syntax.get_syntax (); |
168 val ((minor, _), syntax) = Outer_Syntax.get_syntax (); |
169 in |
169 in |
170 if exists (Toplevel.is_skipped_proof o #2) res then |
170 if exists (Toplevel.is_skipped_proof o #2) res then |
171 warning ("Cannot present theory with skipped proofs: " ^ quote name) |
171 warning ("Cannot present theory with skipped proofs: " ^ quote name) |
172 else |
172 else |
173 let val tex_source = |
173 let val tex_source = |
174 Thy_Output.present_thy minor Keyword.command_tags |
174 Thy_Output.present_thy minor Keyword.command_tags |
175 (Outer_Syntax.is_markup outer_syntax) res toks |
175 (Outer_Syntax.is_markup syntax) res toks |
176 |> Buffer.content; |
176 |> Buffer.content; |
177 in if document then Present.theory_output name tex_source else () end |
177 in if document then Present.theory_output name tex_source else () end |
178 end; |
178 end; |
179 |
179 |
180 in (thy, present, size text) end; |
180 in (thy, present, size text) end; |