Creates vendors by default
This commit is contained in:
@@ -100,6 +100,11 @@
|
||||
(fn [db]
|
||||
(filter #(not (:hidden %)) (vals (:vendors db)))))
|
||||
|
||||
(re-frame/reg-sub
|
||||
::all-vendors
|
||||
(fn [db]
|
||||
(vals (:vendors db))))
|
||||
|
||||
(re-frame/reg-sub
|
||||
::vendors-by-id
|
||||
(fn [db]
|
||||
@@ -120,6 +125,13 @@
|
||||
:<- [::vendors]
|
||||
(fn [vendors]
|
||||
(sort-by :name vendors)))
|
||||
|
||||
(re-frame/reg-sub
|
||||
::sorted-all-vendors
|
||||
:<- [::all-vendors]
|
||||
(fn [all-vendors]
|
||||
(sort-by :name all-vendors)))
|
||||
|
||||
(re-frame/reg-sub
|
||||
::admin
|
||||
(fn [db]
|
||||
|
||||
@@ -23,6 +23,7 @@
|
||||
:save-event save-event
|
||||
:can-submit? (s/valid? ::entity/vendor vendor)}
|
||||
|
||||
(println (s/explain-data ::entity/vendor vendor))
|
||||
|
||||
|
||||
[horizontal-field
|
||||
|
||||
@@ -23,7 +23,7 @@
|
||||
(set (mapcat :in (::s/problems (s/explain-data spec v)))))
|
||||
|
||||
(defn vendors-table []
|
||||
(let [vendors (re-frame/subscribe [::subs/sorted-vendors])
|
||||
(let [vendors (re-frame/subscribe [::subs/sorted-all-vendors])
|
||||
editing-vendor (:editing @(re-frame/subscribe [::subs/admin]))]
|
||||
|
||||
[:table {:class "table", :style {:width "100%"}}
|
||||
|
||||
Reference in New Issue
Block a user