From 2a199fcd6e38b96fc49addfa107471e379c14c10 Mon Sep 17 00:00:00 2001 From: Jan Tuomi Date: Sun, 21 Apr 2024 15:10:58 +0300 Subject: Improve styles, small fixes --- main.scm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'main.scm') diff --git a/main.scm b/main.scm index 08d1377..cedc290 100644 --- a/main.scm +++ b/main.scm @@ -68,10 +68,12 @@ (define alt (submatch m 1)) (define link (submatch m 2)) - ;; if link is absolute or external, leave as is. + ;; if link is absolute, external or in-page, leave as is. ;; otherwise, normalize it to the current directory context (define ret-link - (if (or (substring=? "https://" link) (substring=? "/" link)) + (if (or (substring=? "https://" link) + (substring=? "/" link) + (substring=? "#" link)) link ;; else (normalize-pathname (make-pathname cwd link)))) -- cgit v1.3