r
/
bookshelf-doc
mirror of https://github.com/jrpotter/bookshelf-doc
1
Fork 0
Code Issues Packages Projects Releases Wiki Activity

feat: attempt to improve usability of the file tree

main
Henrik Böving 2023-01-01 20:00:42 +01:00
parent d5ef8006b7
commit a18b27f4c1
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
DocGen4/Output/Navbar.lean
View File

@ -31,7 +31,7 @@ partial def moduleListDir (h : Hierarchy) : BaseHtmlM Html := do
let moduleLink ← moduleNameToLink h.getName let moduleLink ← moduleNameToLink h.getName
let summary := let summary :=
if h.isFile then if h.isFile then
<summary>{← moduleToHtmlLink h.getName}</summary> <summary>{s!"{h.getName.getString!} ({<a href={← moduleNameToLink h.getName}>file</a>})"} </summary>
else else
<summary>{h.getName.getString!}</summary> <summary>{h.getName.getString!}</summary>