Don't run existing files through fs/glob (#519)

Fixes #504.

Also improves performance of homepage.

Author: mk

CHANGELOG.md

@@ -20,8 +20,11 @@ Changes can be:
 
 * 💫 Assign `:name` to every viewer in `default-viewers`
 
+* 🐞 Don't run existing files through `fs/glob`, fixes [#504](https://github.com/nextjournal/clerk/issues/504). Also improves performance of homepage.
+
 * 🐞 Show correct non-var return value for deflike form, fixes [#499](https://github.com/nextjournal/clerk/issues/499)
 
+
 ## 0.14.919 (2023-06-13)
 
 * 🚨 Breaking Changes:

src/nextjournal/clerk/builder.clj

@@ -185,7 +185,9 @@
     (if error
       opts
       (->> resolved-paths
-           (mapcat (partial fs/glob "."))
+           (mapcat (fn [path] (if (fs/exists? path)
+                                [path]
+                                (fs/glob "." path))))
            (filter (complement fs/directory?))
            (mapv (comp str fs/file))
            (hash-map :expanded-paths)
@@ -197,7 +199,7 @@
 #_(expand-paths {:index "book.clj"})
 #_(expand-paths {:paths-fn `clerk-docs})
 #_(expand-paths {:paths-fn `clerk-docs-2})
-#_(do (defn my-paths [] ["notebooks/h*.clj"])
+#_(do (defn my-paths [] ["notebooks/h*.clj"])§
       (expand-paths {:paths-fn `my-paths}))
 #_(expand-paths {:paths ["notebooks/viewers**"]})
 

test/nextjournal/clerk/builder_test.clj

@@ -58,6 +58,10 @@
            (builder/expand-paths {:paths ["notebooks/rule_**.clj"]
                                   :index (str (fs/file "notebooks" "rule_30.clj"))}))))
 
+  (testing "supports absolute paths (#504)"
+    (is (= {:expanded-paths [(str (fs/file (fs/cwd) "book.clj"))]}
+           (builder/expand-paths {:paths [(str (fs/file (fs/cwd) "book.clj"))]}))))
+
   (testing "invalid args"
     (is (match? {:error #"must set either"}
                 (builder/expand-paths {})))