src/Pure/PIDE/resources.ML
changeset 58862 63a16e98cc14
parent 58851 897f266c44b3
child 58903 38c72f5f6c2e
equal deleted inserted replaced
58861:5ff61774df11 58862:63a16e98cc14
   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;