added suggestions
This commit is contained in:
@@ -2,7 +2,6 @@
|
||||
(:require [re-frame.core :as re-frame]
|
||||
[re-frame.interceptor :as i]
|
||||
[auto-ap.status :as status]
|
||||
[auto-ap.views.utils :refer [dispatch-event]]
|
||||
[malli.core :as m]))
|
||||
|
||||
|
||||
@@ -20,13 +19,6 @@
|
||||
:data
|
||||
(get-in f))))
|
||||
|
||||
(re-frame/reg-sub
|
||||
::loading-class
|
||||
(fn [db [_ x]]
|
||||
(if (#{"loading" :loading} (get-in db [::forms x :status]) )
|
||||
"is-loading"
|
||||
"")))
|
||||
|
||||
(defn start-form
|
||||
([db form data]
|
||||
(start-form db form data nil))
|
||||
@@ -131,17 +123,13 @@
|
||||
(assoc-in [::forms form :error] (or (:message (first result))
|
||||
result)))))
|
||||
|
||||
|
||||
(defn ^:deprecated side-bar-form [{:keys [form]} children]
|
||||
[:div [:a.delete.is-pulled-right {:on-click (dispatch-event [::form-closing form])}] [:div children]])
|
||||
|
||||
|
||||
;; TODO ^:deprecated
|
||||
(defn loading [db id]
|
||||
(-> db
|
||||
(assoc-in [::forms id :status] :loading)
|
||||
(assoc-in [::forms id :error] nil)))
|
||||
|
||||
#_{:clj-kondo/ignore [:clojure-lsp/unused-public-var]}
|
||||
(defn settles [{:keys [event time key]}]
|
||||
(i/->interceptor
|
||||
:id :settles
|
||||
|
||||
Reference in New Issue
Block a user