Support showing notebooks outside of working dir

By preserving absolute url for them.

Author: mk

src/nextjournal/clerk/render.cljs

@@ -154,7 +154,8 @@
 
 (defn history-push-state [{:as opts :keys [path fragment replace?]}]
   (when (not= path (some-> js/history .-state .-path))
-    (j/call js/history (if replace? :replaceState :pushState) (clj->js opts) "" (str "/" path (when fragment (str "#" fragment))))  ))
+    (j/call js/history (if replace? :replaceState :pushState) (clj->js opts) "" (str (.. js/document -location -origin)
+                                                                                     "/" path (when fragment (str "#" fragment))))))
 
 (defn handle-history-popstate [^js e]
   (when-let [{:as opts :keys [path]} (js->clj (.-state e) :keywordize-keys true)]

src/nextjournal/clerk/webserver.clj

@@ -182,7 +182,8 @@
         (string? file-or-ns)
         (when (fs/exists? file-or-ns)
           (fs/unixify (cond->> file-or-ns
-                        (fs/absolute? file-or-ns)
+                        (and (fs/absolute? file-or-ns)
+                             (not (str/starts-with? (fs/relativize (fs/cwd) file-or-ns) "..")))
                         (fs/relativize (fs/cwd)))))
 
         :else (str file-or-ns)))