Isabelle_DOF
/
Isabelle_DOF
1
0
Fork 2
Code Issues 1 Pull Requests Releases Wiki Activity

More concise export artifact

This commit is contained in:
Makarius Wenzel 2022-12-04 18:03:53 +01:00
parent b8a9ef5118
commit afcd78610b
2 changed files with 4 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/DOF/Isa_DOF.thy
View File

@ -2965,8 +2965,8 @@ fun use_template context arg =
fun use_ontology context args =
let
val xml = args
|> map (check_ontology context)
|> let open XML.Encode in list (pair string string) end;
|> map (check_ontology context #> fst #> Long_Name.base_name)
|> cat_lines |> XML.string;
in Export.export (Context.theory_of context) \<^path_binding>\<open>dof/use_ontology\<close> xml end;
val strip_template = strip "root-" ".tex";

9
src/scala/dof_document_build.scala
View File

@ -82,14 +82,9 @@ object DOF_Document_Build
.foreach(sty => Isabelle_System.copy_file(sty, directory.doc_dir.file))
// ontologies.tex from exports
val ontologies = {
val xml = the_document_entry(context, "dof/use_ontology", "use_ontology").uncompressed_yxml
import XML.Decode._
list(pair(string, string))(xml)
}
File.write(directory.doc_dir + Path.explode("ontologies.tex"),
(for ((name, _) <- ontologies)
yield { "\\usepackage{DOF-" + Long_Name.base_name(name) + "}\n" }).mkString)
split_lines(the_document_entry(context, "dof/use_ontology", "use_ontology").text)
.map(name => "\\usepackage{DOF-" + name + "}\n").mkString)
// create dof-config.sty
File.write(directory.doc_dir + Path.explode("dof-config.sty"), """