Makes background jobs work again

2023-10-25 15:35:33 -07:00
parent a2d834794f
commit 506d2ac782
10 changed files with 138 additions and 3860 deletions
--- a/src/clj/auto_ap/ssr/utils.clj
+++ b/src/clj/auto_ap/ssr/utils.clj
@@ -322,7 +322,9 @@
 (defn path->name2 [k & rest]
  (let [k->n (fn [k]
               (if (keyword? k)
-                 (str (namespace k) "/" (name k))
+                 (str (when (namespace k)
+                        (str (namespace k) "/"))
+                      (name k))
                 k))]
    (str (k->n k)
         (str/join ""