Setting up initial company setup.

This commit is contained in:
Bryce Covert
2018-04-03 18:19:51 -07:00
parent 222bcbdf5c
commit b810deb609
11 changed files with 55 additions and 20 deletions

View File

@@ -12,8 +12,7 @@
::companies
(fn [db]
(when (:user db)
(let [{:strs [companies] :as x} (js->clj (.parse js/JSON (base64/decodeString (second (str/split (:user db) #"\.")))))]
(map (fn [c] {:name c}) companies)))))
(:companies db))))
(re-frame/reg-sub
::menu