Builds client SSR approach, sunsets old cljs.

2024-01-09 21:40:43 -08:00
parent d824cdfff4
commit 8063a8fcbd
74 changed files with 4603 additions and 4047 deletions
--- a/src/clj/auto_ap/cursor.clj
+++ b/src/clj/auto_ap/cursor.clj
@@ -143,3 +143,10 @@
 (defn update! [cursor v]
  "Replaces value supplied by cursor with value v."
  (-transact! cursor (constantly v)))
+
+(defn ensure-path! [cursor p default]
+  (let [next-to-last (get-in cursor (butlast p))
+        next-to-last-v @next-to-last]
+    (when (not (get next-to-last-v (last p)))
+      (transact! next-to-last #(assoc % (last p) default))))
+  cursor)