Fix relative links (#784)

By removing trailing slash.

Author: mk

CHANGELOG.md

@@ -9,6 +9,7 @@ Changes can be:
 ## Unreleased
 
 * 💫 Detect and throw on infinte loops during presentation
+* 🐜 Fix relative links by removing trailing slash, fixes [#783](https://github.com/nextjournal/clerk/issues/783)
 
 ## 0.18.1158 (2025-11-17)
 

notebooks/links.md

@@ -63,4 +63,6 @@ The same functionality is available in the SCI context when building render func
 Links should work inside markdown as well.
 
 * [HTML](../notebooks/viewers/html) (relative link)
+* [HTML](./viewers/html) (relative link)
+* [HTML](viewers/html) (relative link)
 * [HTML](clerk/doc-url,"notebooks/viewers/html") (doc url, currently not functional)

src/nextjournal/clerk/render.cljs

@@ -861,9 +861,7 @@
       (let [path (.-pathname url)
             edn-path (str path (when (str/ends-with? path "/") "index") ".edn")]
         (.pushState js/history #js {:edn_path edn-path} ""
-                    (str (cond-> path
-                           (not (str/ends-with? path "/"))
-                           (str "/")) (.-hash url))) ;; a trailing slash is needed to make relative paths work
+                    (str path (.-hash url)))
         (fetch+set-state edn-path)))))
 
 (defn load->fetch [{:keys [current-path]} _e]