Instantiate re-pattern once

hisaitami · Nov 5, 2023 · 04a8930 · 04a8930
1 parent 787db69
commit 04a8930
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/tldr.cljs b/tldr.cljs
@@ -129,12 +129,12 @@
                  "local database")))))
 
 (defn list-localdb [platform]
-  (let [path (cache-path platform)]
+  (let [path (cache-path platform)
+        re (re-pattern (str page-suffix "$"))]
     (or (io/exists? path) (die "Can't open cache directory:" path))
     (println (format "# Pages for"))
     (doseq [file (io/list-files path)]
-      (let [r (re-pattern (str page-suffix "$"))
-            entry (s/replace (io/file-name file) r "")]
+      (let [entry (s/replace (io/file-name file) re "")]
         (println entry)))))
 
 (defn check-localdb []