16 lines
373 B
Plaintext
16 lines
373 B
Plaintext
|
import DocGen4.Output.Template
|
||
|
|
|
||
|
|
namespace DocGen4
|
||
|
|
namespace Output
|
||
|
|
|
||
|
|
open scoped DocGen4.Jsx
|
||
|
|
open Lean
|
||
|
|
|
||
|
|
def findRedirectHtml (decl : Name) : HtmlM Html := do
|
||
|
|
let res ← getResult
|
||
|
|
let url ← declNameToLink decl
|
||
|
|
let contentString := s!"0;url={url}"
|
||
|
|
pure $ Html.element "meta" false #[("http-equiv", "refresh"), ("content", contentString)] #[]
|
||
|
|
end Output
|
||
|
|
end DocGen4
|