Creates vendors by default

This commit is contained in:
Bryce Covert
2019-05-05 08:12:26 -07:00
parent 3dafdd66c2
commit 86d9c1c10c
5 changed files with 42 additions and 12 deletions

View File

@@ -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]

View File

@@ -23,6 +23,7 @@
:save-event save-event
:can-submit? (s/valid? ::entity/vendor vendor)}
(println (s/explain-data ::entity/vendor vendor))
[horizontal-field

View File

@@ -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%"}}