feat: Add notes infastructure

HepLean/Meta/Notes/HTMLNote.lean

@@ -0,0 +1,57 @@
+/-
+Copyright (c) 2024 Joseph Tooby-Smith. All rights reserved.
+Released under Apache 2.0 license.
+Authors: Joseph Tooby-Smith
+-/
+import HepLean.Meta.Notes.Basic
+import HepLean.Meta.Basic
+import HepLean.Meta.Informal
+/-!
+
+## Turns a delaration into a html note structure.
+
+-/
+
+namespace HepLean
+open Lean System Meta
+
+structure HTMLNote where
+  fileName : Name
+  content : String
+  line : Nat
+
+
+
+def noteInfoToHTMLNote (ni : NoteInfo) : MetaM HTMLNote := do
+  let line := ni.line
+  let decl :=  ni.content
+  let fileName := ni.fileName
+  pure { content := decl, fileName := fileName, line := line }
+
+def formalToHTMLNote (name : Name) :  MetaM HTMLNote := do
+  let line ← Name.lineNumber name
+  let decl ← Name.getDeclString name
+  let fileName ← Name.fileName name
+  let content := "<pre><code>" ++ decl ++ "</code></pre>"
+  pure { content := content, fileName := fileName, line := line }
+
+unsafe def informalToHTMLNote (name : Name) :  MetaM HTMLNote := do
+  let line ← Name.lineNumber name
+  let decl ← Name.getDeclString name
+  let fileName ← Name.fileName name
+  let constInfo ← getConstInfo name
+  let mut content := ""
+  if Informal.isInformalDef constInfo then
+    let X ← Informal.constantInfoToInformalDefinition constInfo
+    content := "<div class=\"informal-def\">"
+      ++ "<a href=\"https://example.com\" class=\"button\">Improve/Formalize</a>"
+      ++"<b>Informal definition:</b> " ++ name.toString ++ "<br>"
+      ++ X.math.replace "\n" "<br>"
+      ++ "</div>"
+  else if Informal.isInformalLemma constInfo then
+    let X ← Informal.constantInfoToInformalLemma constInfo
+    content := "Informal definition: " ++ name.toString ++ "\n" ++ X.math
+    content := "Informal lemma: " ++ name.toString
+  pure { content := content, fileName := fileName, line := line }
+
+end HepLean