48 lines
1.1 KiB
Clojure
48 lines
1.1 KiB
Clojure
(ns auto-ap.ssr.form-cursor
|
|
(:require [auto-ap.ssr.utils :refer [path->name2]]
|
|
[auto-ap.cursor :as cursor]))
|
|
|
|
(def ^:dynamic *form-data*)
|
|
(def ^:dynamic *form-errors*)
|
|
(def ^:dynamic *prev-cursor* nil)
|
|
(def ^:dynamic *current* nil)
|
|
|
|
(defmacro start-form [form-data errors & rest]
|
|
`(binding [*form-data* ~form-data
|
|
*form-errors* (or ~errors {})]
|
|
(binding [*current* (cursor/cursor *form-data*)]
|
|
~@rest)))
|
|
|
|
(defmacro with-cursor [cursor & rest]
|
|
`(binding [*current* ~cursor]
|
|
~@rest))
|
|
|
|
(defmacro with-field [field & rest]
|
|
`(with-cursor (get *current* ~field )
|
|
~@rest))
|
|
|
|
(defn field-name
|
|
([] (field-name *current*))
|
|
([cursor]
|
|
(apply path->name2 (cursor/path cursor))))
|
|
|
|
(defn field-value
|
|
([] (field-value *current*))
|
|
([cursor] @cursor))
|
|
|
|
(defn field-errors
|
|
([]
|
|
(field-errors *current*))
|
|
([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)))))
|
|
|
|
|