summaryrefslogtreecommitdiffstats
path: root/main.scm
diff options
context:
space:
mode:
Diffstat (limited to 'main.scm')
-rw-r--r--main.scm6
1 files changed, 4 insertions, 2 deletions
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))))