Makes testing of transaction rules work

2023-10-26 21:23:52 -07:00
parent 5ed23f26be
commit 7f7458d54a
12 changed files with 196 additions and 40 deletions
--- a/src/clj/auto_ap/ssr/utils.clj
+++ b/src/clj/auto_ap/ssr/utils.clj
@@ -37,6 +37,15 @@
                       (assoc-in [:headers "hx-retarget"] "#modal-content")
                       (assoc-in [:headers "hx-reswap"] "innerHTML"))))))

+(defn next-step-modal-response [hiccup & {:as opts}]
+  (apply html-response
+         (into  
+           [hiccup]
+           (mapcat identity 
+                   (-> opts
+                       (assoc-in [:headers "hx-retarget"] "#modal-content")
+                       (assoc-in [:headers "hx-reswap"] "innerHTML"))))))
+
 (defn wrap-error-response [handler]
  (fn  [request]
    (try