/-
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