github/repo2html
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

whoops! commit f1c42b4 broke the link prefix thing. fixed.

Browse source
This commit is contained in:
pho4cexa 2022-12-26 21:56:09 -08:00
parent e411b57c54
commit 5fe00426b1
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
main.scm
View file

@ -116,7 +116,7 @@
(a (@ (title "Permalink to this section")
(href "#" ,slug))))))
(define (adjust-relative-link tag inner)
(define ((adjust-relative-link adjust-relative) tag inner)
(let ((linkurl (alist-ref-in '(@ href) inner)))
`(,tag .
,(if (or (not adjust-relative)
@ -134,7 +134,7 @@
(h5 . ,enumerate-tag)
;; if adjust-relative is true, all relative links should get prefixed with
;; the relative-root.
`(a . ,adjust-relative-link)
`(a . ,(adjust-relative-link adjust-relative))
;; this copied from lowdown html-serialization-rules* because it
;; is for some reason not exported??
(*COMMENT* . ,(lambda (_ str) (list #\< "!--" str "--" #\>)))