diff --git a/HepLean/Meta/Notes/ToHTML.lean b/HepLean/Meta/Notes/ToHTML.lean index 281df03..1ae1054 100644 --- a/HepLean/Meta/Notes/ToHTML.lean +++ b/HepLean/Meta/Notes/ToHTML.lean @@ -116,6 +116,17 @@ def titleHTML : String :=
Authors: " ++ String.intercalate ", " N.authors ++ "
Abstract: " ++ N.abstract ++ "
" +/-- The html code corresponding to a note about Lean and its use. -/ +def leanNote : String := " +
+
+

Note: These are are not ordinary notes. They are created using an automated theorem + prover called Lean. Lean formally checks definitions, theorems and proofs for correctness. + These notes are part of a much larger project called HepLean, which aims to digitalize + high energy physics into Lean. Please consider contributing to this project. +

+
+" /-- The footor of the html file. -/ def footerHTML : String := " @@ -124,7 +135,7 @@ def footerHTML : String := /-- The html file associated to a NoteFile string. -/ unsafe def toHTMLString : MetaM String := do let string := String.intercalate "\n" ((← N.getNodeInfo).map (fun x => x.content)) - pure (headerHTML ++ N.titleHTML ++ string ++ footerHTML) + pure (headerHTML ++ N.titleHTML ++ leanNote ++ string ++ footerHTML) end NoteFile end HepLean diff --git a/scripts/MetaPrograms/notes.lean b/scripts/MetaPrograms/notes.lean index daf436b..4959f1f 100644 --- a/scripts/MetaPrograms/notes.lean +++ b/scripts/MetaPrograms/notes.lean @@ -22,7 +22,7 @@ def pertubationTheory : NoteFile where `HepLean.PerturbationTheory.Wick.Contract ] -unsafe def main (args : List String) : IO UInt32 := do +unsafe def main (_ : List String) : IO UInt32 := do initSearchPath (← findSysroot) let htmlString ← CoreM.withImportModules #[`HepLean] (pertubationTheory.toHTMLString).run' let htmlFile : System.FilePath := {toString := "./docs/PerturbationTheory.html"}