feat: short names in side bar

main
Henrik Böving 2022-12-13 18:58:02 +01:00
parent 84a116ac43
commit 327fdf0ddd
2 changed files with 2 additions and 2 deletions

View File

@ -108,7 +108,7 @@ def moduleNameToLink (n : Name) : BaseHtmlM String := do
Returns the HTML doc-gen4 link to a module name.
-/
def moduleToHtmlLink (module : Name) : BaseHtmlM Html := do
pure <a href={←moduleNameToLink module}>{module.toString}</a>
pure <a href={←moduleNameToLink module}>{module.getString!}</a>
/--
Returns the LeanInk link to a module name.

View File

@ -33,7 +33,7 @@ partial def moduleListDir (h : Hierarchy) : BaseHtmlM Html := do
if h.isFile then
<summary>{←moduleToHtmlLink h.getName}</summary>
else
<summary>{h.getName.toString}</summary>
<summary>{h.getName.getString!}</summary>
pure
<details class="nav_sect" "data-path"={moduleLink} [if (←getCurrentName).any (h.getName.isPrefixOf ·) then #[("open", "")] else #[]]>