starting to break out into separate folders.

src/cljs/auto_ap/events/admin/companies.cljs

@@ -0,0 +1,40 @@
+(ns auto-ap.events.admin.companies
+  (:require [re-frame.core :as re-frame]
+            [auto-ap.db :as db]
+            [auto-ap.routes :as routes]
+            [auto-ap.effects :as effects]
+            [bidi.bidi :as bidi]))
+
+(re-frame/reg-event-db
+ ::edit
+ (fn  [db [_ company-id]]
+   (assoc-in db [:admin-companies :editing]
+             (get  (:companies db) company-id))))
+
+(re-frame/reg-event-fx
+ ::save
+ (fn  [{:keys [db]} _]
+   (let [edited-company (get-in db [:admin-companies :editing])]
+     {:db (assoc-in db [:admin-companies :editing :saving?] true)
+      :http {:method :put
+             :token (:user db)
+             :body (pr-str (select-keys edited-company [:name :email :data]))
+             :headers {"Content-Type" "application/edn"}
+             :uri (str "/api/companies/" (:id edited-company))
+             :on-success [::save-complete]}})))
+
+(re-frame/reg-event-db
+ ::save-complete
+ (fn  [db [_ company]]
+   (-> db
+       
+       (assoc-in [:admin-companies :editing] nil)
+       (assoc-in [:companies (:id company)] company))))
+
+(re-frame/reg-event-db
+ ::change
+ (fn  [db [_ path value]]
+   (assoc-in db (concat [:admin-companies :editing] path)
+             value)))
+
+