notid/integreat
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

can set up multiple locations

Browse Source
This commit is contained in:
Bryce Covert
2018-06-15 12:32:40 -07:00
parent f9c0e55b01
commit b06a6651ca
7 changed files with 88 additions and 55 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
src/cljs/auto_ap/events/admin/companies.cljs
View File

@@ -1,21 +1,25 @@
(ns auto-ap.events.admin.companies
(:require [re-frame.core :as re-frame]
[auto-ap.db :as db]
[auto-ap.events :as events]
[auto-ap.routes :as routes]
[auto-ap.effects :as effects]
[auto-ap.entities.companies :as entity]
[bidi.bidi :as bidi]))
(re-frame/reg-event-db
(re-frame/reg-event-fx
::edit
(fn [db [_ company-id]]
(assoc-in db [:admin :company]
(get (:companies db) company-id))))
(fn [{:keys [db]} [_ company-id]]
{:dispatch [::events/modal-status :auto-ap.views.pages.admin.companies/edit {:visible? true}]
:db (assoc-in db [:admin :company]
(get (:companies db) company-id))}))
(re-frame/reg-event-fx
::save
(fn [{:keys [db]} _]
(let [edited-company (get-in db [:admin :company])]
(let [edited-company (-> (get-in db [:admin :company])
(dissoc :location))]
{:db (assoc-in db [:admin :company :saving?] true)
:http {:method :put
:token (:user db)
@@ -25,13 +29,14 @@
:on-success [::save-complete]
:on-error [::save-error]}})))
(re-frame/reg-event-db
(re-frame/reg-event-fx
::save-complete
(fn [db [_ company]]
(-> db
(assoc-in [:admin :company] nil)
(assoc-in [:companies (:id company)] company))))
(fn [{:keys [db]} [_ company]]
{:dispatch [::events/modal-completed :auto-ap.views.pages.admin.companies/edit]
:db (-> db
(assoc-in [:admin :company] nil)
(assoc-in [:companies (:id company)] company))}))
(re-frame/reg-event-db
::save-error