Lots of less customization when creating and editing forms

src/clj/auto_ap/ssr/form_cursor.clj

@@ -35,4 +35,12 @@
   ([cursor]
    (get-in *form-errors* (cursor/path cursor))))
 
+(defn error?
+  ([]
+   (error? *current*))
+  ([cursor]
+   (let [errors (get-in *form-errors* (cursor/path cursor))]
+     (and (sequential? errors)
+          (every? string? errors)))))
+