Form builder as a way to simplify some things
This commit is contained in:
@@ -17,15 +17,7 @@
|
||||
:data
|
||||
(get-in f))))
|
||||
|
||||
|
||||
(re-frame/reg-sub
|
||||
::is-loading?
|
||||
(fn [db [_ x]]
|
||||
(if (#{"loading" :loading} (get-in db [::forms x :status]) )
|
||||
true
|
||||
false)))
|
||||
|
||||
(re-frame/reg-sub
|
||||
(re-frame/reg-sub
|
||||
::loading-class
|
||||
(fn [db [_ x]]
|
||||
(if (#{"loading" :loading} (get-in db [::forms x :status]) )
|
||||
@@ -43,10 +35,6 @@
|
||||
:data data
|
||||
:complete-listener complete-listener})))
|
||||
|
||||
(defn ^:depracated saved-form [db form data]
|
||||
(update-in db [::forms form]
|
||||
assoc :error nil :status nil :data data))
|
||||
|
||||
(defn triggers-saved [form data-key]
|
||||
(i/->interceptor
|
||||
:id :triggers-saved
|
||||
@@ -55,7 +43,6 @@
|
||||
:after (fn [context]
|
||||
(let [db (i/get-coeffect context :db)
|
||||
result (get-in (i/get-coeffect context :event) [1 data-key])]
|
||||
|
||||
(cond-> context
|
||||
true
|
||||
(i/assoc-effect :db (update-in db
|
||||
|
||||
Reference in New Issue
Block a user