import DocGen4 import Lean import Cli open DocGen4 Lean Cli def runDocGenCmd (p : Parsed) : IO UInt32 := do let modules : List String := p.variableArgsAs! String |>.toList let res ← lakeSetup modules match res with | Except.ok (ws, leanHash) => IO.println s!"Loading modules from: {←searchPathRef.get}" let doc ← load $ modules.map Name.mkSimple IO.println "Outputting HTML" htmlOutput doc ws leanHash pure 0 | Except.error rc => pure rc def docGenCmd : Cmd := `[Cli| "doc-gen4" VIA runDocGenCmd; ["0.0.1"] "A documentation generator for Lean 4." ARGS: ...modules : String; "The modules to generate the HTML for" ] def main (args : List String) : IO UInt32 := docGenCmd.validate args