haskal
/
capybara
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

add up nav link

This commit is contained in:
xenia 2021-06-11 06:14:34 -04:00
parent 44878e8510
commit 2f928b88dd
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
render.rkt
View File

@ -164,10 +164,14 @@
name
`(li () (a ([href ,link])
,(if (equal? p exploded) `(strong () ,name) name))))))
(define parent-name (simplify-path (build-path xref-name 'up) #f))
(define site-toc
(apply list 'ol '()
(for/list ([def (in-list (sort site-toc-defs string<? #:key first))])
`(ol ()
,@(if (equal? (build-path "/") xref-name)
'()
`((li () (a ([href ,(format "~a~a" base-url (path->string parent-name))]) "<up>"))))
,@(for/list ([def (in-list (sort site-toc-defs string<? #:key first))])
(second def))))
(let ([content (lower-specials content base-url)])