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