Makes appear logic work right

2023-10-21 13:25:00 -07:00
parent 9ddbd31cc8
commit 34f4a12b2e
5 changed files with 107 additions and 72 deletions
--- a/src/clj/auto_ap/ssr/form_cursor.clj
+++ b/src/clj/auto_ap/ssr/form_cursor.clj
@@ -26,8 +26,9 @@
  ([cursor]
   (apply path->name2 (cursor/path cursor))))

-(defn field-value []
-  @*current*)
+(defn field-value
+  ([] (field-value *current*))
+  ([cursor] @cursor))

 (defn field-errors
  ([]