company 1099 works

2023-10-26 11:04:44 -07:00
parent 351864da1b
commit 8c3d792b28
8 changed files with 279 additions and 281 deletions
--- a/src/clj/auto_ap/ssr/form_cursor.clj
+++ b/src/clj/auto_ap/ssr/form_cursor.clj
@@ -30,6 +30,15 @@
  `(with-cursor (get *current* ~field )
     ~@rest))

+(defmacro with-field-default [field default & rest]
+  `(let [next-cursor# (get *current* ~field )
+         next-cursor# (if (nil? @next-cursor#)
+                        (cursor/update! next-cursor# default)
+                        next-cursor#)]
+     (with-cursor next-cursor#
+         ~@rest)))
+
+
 (defn field-name
  ([] (field-name *current*))
  ([cursor]