From 5fe00426b1860f7b12d9bffc4f65d0a8fafe0d42 Mon Sep 17 00:00:00 2001 From: pho4cexa Date: Mon, 26 Dec 2022 21:56:09 -0800 Subject: [PATCH] whoops! commit f1c42b4 broke the link prefix thing. fixed. --- main.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/main.scm b/main.scm index 37caed1..b4409dd 100755 --- a/main.scm +++ b/main.scm @@ -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 "--" #\>)))