Setting up initial company setup.

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