Setting up initial company setup.

src/cljs/auto_ap/effects.cljs

@@ -26,6 +26,7 @@
      (let [headers (if token
                      (assoc headers "Authorization" (str "Token " token))
                      headers)]
+       (println headers)
        (->> (http/request {:method method
                            :body body
                            :headers  headers

src/cljs/auto_ap/events.cljs

@@ -16,17 +16,30 @@
                    :user token)}
        {:db (assoc db/default-db
                    :active-page handler
-                   :user token)}))))
+                   :user token)
+        :http {:method :get
+               :token token
+               :uri (str "/api/companies")
+               :on-success [::received-companies]}}))))
 
 (re-frame/reg-event-db
  ::toggle-menu
  (fn  [db [_ which]]
    (update-in db [:menu which :active?] #(not %))))
 
-(re-frame/reg-event-db
+(re-frame/reg-event-fx
  ::logged-in
- (fn  [db [_ token user]]
-   (assoc db :user (assoc user :token token))))
+ (fn  [{:keys [db]} [_ token user]]
+   {:http {:method :get
+           :token token
+           :uri (str "/api/companies")
+           :on-success [::received-companies]}
+    :db (assoc db :user (assoc user :token token))}))
+
+(re-frame/reg-event-db
+ ::received-companies
+ (fn  [db [_ companies]]
+   (assoc db :companies companies)))
 
 (re-frame/reg-event-db
  ::swap-company

src/cljs/auto_ap/subs.cljs

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

src/cljs/auto_ap/views/main.cljs

@@ -27,6 +27,7 @@
          [:a {:class "navbar-link login" :on-click (fn [e] (re-frame/dispatch [::events/toggle-menu :account]))} (:name @user)]
          [:div {:class "navbar-dropdown"}
           [:a {:class "navbar-item"} "My profile"]
+          [:a {:class "navbar-item"} "Administration"]
           [:hr {:class "navbar-divider"}]
           [:a.navbar-item {:on-click (fn [e] (.preventDefault e) (re-frame/dispatch [::events/logout]))} "Logout"]]]
         [:a.navbar-item {:href login-url} "Login"])]]))