lots of progress

2023-10-24 11:52:55 -07:00
parent 91f7e79aed
commit a8cce0377d
9 changed files with 170 additions and 155 deletions
--- a/src/clj/auto_ap/ssr/hx.clj
+++ b/src/clj/auto_ap/ssr/hx.clj
@@ -38,3 +38,15 @@
             alpine-appear
             alpine-disappear)
         (dissoc params :data-key)))
+
+(defn bind-alpine-vals [m field->alpine-field]
+  (assoc m "x-bind:hx-vals"
+         
+         (format "JSON.stringify({%s})"
+                 (str/join ", "
+                           (map
+                             (fn [[field alpine-field]]
+                               (format "\"%s\": $data.%s" field alpine-field))
+
+                             field->alpine-field)))))
+