adding new vendors

This commit is contained in:
Bryce Covert
2019-02-14 21:18:26 -08:00
parent b5ea345532
commit 7e1de79fea
8 changed files with 202 additions and 4 deletions

View File

@@ -54,6 +54,12 @@
(fn [db]
(vals (:vendors db))))
(re-frame/reg-sub
::sorted-vendors
:<- [::vendors]
(fn [vendors]
(sort-by :name vendors)))
(re-frame/reg-sub
::admin
(fn [db]

View File

@@ -24,7 +24,7 @@
(set (mapcat :in (::s/problems (s/explain-data spec v)))))
(defn vendors-table []
(let [vendors (re-frame/subscribe [::subs/vendors])
(let [vendors (re-frame/subscribe [::subs/sorted-vendors])
editing-vendor (:editing @(re-frame/subscribe [::subs/admin]))]
[:table {:class "table", :style {:width "100%"}}