Makes cursor-seq for lists

2023-10-23 15:02:36 -07:00
parent be9d777a17
commit 84d6f455ff
4 changed files with 15 additions and 15 deletions
--- a/src/clj/auto_ap/ssr/form_cursor.clj
+++ b/src/clj/auto_ap/ssr/form_cursor.clj
@@ -45,3 +45,13 @@
          (every? string? errors)))))


+(defn cursor-map
+  ([f] (cursor-map *current* f))
+  ([cursor f]
+   (when (field-value)
+     (doall
+       (for [n cursor]
+         (with-cursor n
+           (f n)))))))
+
+