really improved vendor dialog code.

figwheel-main.edn

@@ -1,4 +1,4 @@
-{:watch-dirs ["src/cljs"]
+{:watch-dirs ["src/cljs", "src/cljc"]
  :css-dirs ["resources/public/css"]
  :ring-server-options {:port  3449}
  :ring-handler auto-ap.handler/app

src/cljc/auto_ap/entities/vendors.cljc

@@ -11,6 +11,7 @@
 (s/def ::name ::required-identifier)
 (s/def ::hidden boolean?)
 (s/def ::print-as (s/nilable string?))
+(s/def ::terms (s/nilable int?))
 
 (s/def ::invoice-reminder-schedule (s/nilable #{"Weekly" "Never" nil}))
 
@@ -25,6 +26,7 @@
                  (s/keys :req-un [::name]
                          :opt-un [::code
                                   ::default-account-id
+                                  ::terms
                                   ::hidden
                                   ::id
                                   ::print-as
@@ -34,8 +36,7 @@
                                   ::address])
 
                  (s/or :hidden #(= (:hidden %) true)
-                       :has-expense-account (and (s/keys :req-un [::default-account-id])
+                       :has-expense-account #(not (nil? (:id (:default-account %)))))))
-                                                 #(not (nil? (:default-account-id %)))))))
 
 
 (def vendor-spec (apply hash-map  (drop 1 (s/form ::vendor))))

src/cljs/auto_ap/effects.cljs

@@ -137,6 +137,7 @@
  :graphql
  (fn [{:keys [query on-success on-error token variables query-obj]}]
    (go
+     (println on-error)
      (let [headers (if token
                      {"Authorization" (str "Token " token)} 
                      {})
@@ -155,12 +156,12 @@
                                        :body (when = (:post method) query)
                                        :url (str "/api/graphql?query=" (when (= :get method) (js/encodeURIComponent query))
                                                  "&variables=" (pr-str (or variables {})))}))]
+       
        (cond
          (= (:status response) 401)
          (re-frame/dispatch [:auto-ap.events/logout "Your session has expired. Please log in again."])
          
 
-
          (>= (:status response) 400)
          (when on-error
            (->> response

src/cljs/auto_ap/events.cljs

@@ -213,35 +213,8 @@
               (fn [x]
                 (assoc-in x more value)))))
 
-(re-frame/reg-event-fx
- ::save-vendor
- (fn  [{:keys [db]} _]
-   (let [edited-vendor (get-in db [:user-editing-vendor])]
-     (assoc {} :graphql
-            {:token (-> db :user)
-             :query-obj {:venia/operation {:operation/type :mutation
-                                           :operation/name "UpsertVendor"}
 
-                         :venia/queries [{:query/data [:upsert-vendor
-                                                       {:vendor (dissoc edited-vendor :default-account)}
-                                                       vendor-query]}]}  
-             :on-success [::save-complete]
-             :on-error [::save-error]}))))
 
-(re-frame/reg-event-db
- ::save-error
- (fn  [db [_ vendor]]
-   (-> db
-       (assoc-in [:modal-state :auto-ap.views.main/user-editing-vendor :error] true)
-       (assoc-in [:modal-state :auto-ap.views.main/user-editing-vendor :saving?] false))))
-
-(re-frame/reg-event-fx
- ::save-complete
- (fn  [{:keys [db]} [_ vendor]]
-   {:dispatch [::modal-completed :auto-ap.views.main/user-editing-vendor ]
-    :db       (-> db
-                  (dissoc :user-editing-vendor)
-                  (assoc-in [:vendors (:id (:upsert-vendor vendor))] (:upsert-vendor vendor)))}))
 (re-frame/reg-event-db
  ::page-failed
  (fn [db [_ result]]

src/cljs/auto_ap/events/admin/vendors.cljs

@@ -1,146 +0,0 @@
-(ns auto-ap.events.admin.vendors
-  (:require [re-frame.core :as re-frame]
-            [clojure.spec.alpha :as s]
-            [auto-ap.db :as db]
-            [auto-ap.routes :as routes]
-            [auto-ap.effects :as effects]
-            [auto-ap.forms :as forms]
-            [auto-ap.subs :as subs]
-            [auto-ap.entities.vendors :as entity]
-            [auto-ap.events :as events]
-            [auto-ap.utils :refer [by]]
-
-            [bidi.bidi :as bidi]))
-
-
-
-(re-frame/reg-event-fx
- ::edit
- (fn  [{:keys [db]} [_ vendor-id]]
-   {:db (assoc-in db [:user-editing-vendor]
-                  (-> (get  (:vendors db) vendor-id)
-                      (assoc :default-account-id (:id (:default-account (get (:vendors db) vendor-id))))))
-    :dispatch [::events/modal-status :auto-ap.views.main/user-editing-vendor {:visible? true}]}))
-
-(re-frame/reg-event-fx
- ::new
- (fn  [{:keys [db]} _]
-   {:db (assoc-in db [:admin :vendor]
-                  {})
-   :dispatch [::events/modal-status :auto-ap.views.pages.admin.vendors/admin-vendor {:visible? true}]}))
-
-
-
-#_(re-frame/reg-event-fx
- ::merge-submit-clicked
- [(forms/in-form :auto-ap.views.pages.admin.vendors/merge-vendors)]
- (fn  [{{{:keys [from-id to-id]} :data :as merge-vendors-form} :db :as g} _]
-   (println g)
-   (let [user @(re-frame/subscribe [::subs/token])]
-     (if (and from-id to-id)
-       {:db (-> merge-vendors-form
-                (assoc :status :loading)
-                (assoc :error nil))
-        :graphql
-        {:token user
-         :query-obj {:venia/operation {:operation/type :mutation
-                                       :operation/name "MergeVendors"}
-                     :venia/queries [{:query/data [:merge-vendors
-                                                   {:from from-id :to to-id}
-                                                   [:id]]}]}
-         :on-success [::merge-vendors-complete]
-         :on-error [::forms/save-error :auto-ap.views.pages.admin.vendors/merge-vendors]}}
-       {:db merge-vendors-form}))))
-
-(re-frame/reg-event-fx
- ::save
- (fn  [{:keys [db]} _]
-   (let [edited-vendor (get-in db [:admin :vendor])
-         fx {:db (assoc-in db [:admin :vendor :saving?] true)}
-         _ (println "EDITED" edited-vendor)]
-     (when (s/valid? ::entity/vendor edited-vendor)
-       (assoc fx :graphql
-              {:token (-> db :user)
-               :query-obj {:venia/operation {:operation/type :mutation
-                                             :operation/name "UpsertVendor"}
-                           
-                           :venia/queries [{:query/data [:upsert-vendor
-                                                         {:vendor (-> edited-vendor
-                                                                      (dissoc :default-account))}
-                                                         events/vendor-query]}]}  
-               :on-success [::save-complete]
-               :on-error [::save-error]})))))
-
-(re-frame/reg-event-fx
- ::remind
- (fn  [{:keys [db] :as fx} [_ id]]
-   { :http {:method :post
-            :token (:user db)
-            :headers {"Content-Type" "application/edn"}
-            :uri (str "/api/vendors/" id "/remind")
-            :on-success [::reminder-sent]
-            :on-error [::failed "Failed to send reminder"]}
-    :db (assoc-in db [:admin :banner] nil)}))
-
-(re-frame/reg-event-db
- ::reminder-sent
- (fn  [db [_ error]]
-   (-> db
-       (assoc-in [:admin :banner] "Reminder sent!"))))
-
-(re-frame/reg-event-db
- ::failed
- (fn  [db [_ error]]
-   (-> db
-       (assoc-in [:admin :banner] error))))
-
-(re-frame/reg-event-fx
- ::save-complete
- (fn  [{:keys [db]} [_ {vendor :upsert-vendor} ]]
-   {:dispatch [::events/modal-completed :auto-ap.views.pages.admin.vendors/admin-vendor ]
-    :db (-> db
-            
-            (assoc-in [:admin :vendor] nil)
-            (assoc-in [:vendors (:id vendor)] vendor))}))
-
-(re-frame/reg-event-db
- ::save-error
- (fn  [db [_ vendor]]
-   (println "ERROR?")
-   (-> db
-       (assoc-in [:admin :vendor :error] true)
-       (assoc-in [:admin :vendor :saving?] false))))
-
-(re-frame/reg-event-db
- ::change
- (fn  [db [_ path value]]
-   (println path value)
-   (assoc-in db (concat [:admin :vendor] path)
-             value)))
-
-(re-frame/reg-event-db
- ::add-relationship
- (fn  [db [_ ]]
-   (-> db
-       (update-in [:admin :vendor :relationships] #(conj (or % [])
-                                                         {:account-number (get-in db [:admin :vendor :new-relationship-account-number])
-                                                          :client-id (get-in db [:admin :vendor :new-relationship-client])}))
-       (update-in [:admin :vendor] dissoc :new-relationship-account-number :new-relationship-client))))
-
-(re-frame/reg-event-db
- ::remove-relationship
- (fn  [db [_ i]]
-   (-> db
-       (update-in [:admin :vendor :relationships] #(vec (concat (subvec % 0 i) (subvec % (min (count %) (inc i)))))))))
-
-(re-frame/reg-event-fx
- ::mounted
- (fn  [{:keys [db]} _]
-   {:graphql {:token (:user db)
-              :query-obj {:venia/queries [[:vendor events/vendor-query]]} 
-              :on-success [::received-vendors]}}))
-
-(re-frame/reg-event-db
- ::received-vendors
- (fn  [db [_ vendors]]
-   (assoc db :vendors (by :id (:vendor vendors )))))

src/cljs/auto_ap/forms.cljs

@@ -74,6 +74,7 @@
 (re-frame/reg-event-db
  ::save-error
  (fn  [db [_ form result]]
+   (println form result)
    (-> db
        (assoc-in [::forms form :status] :error)
        (assoc-in [::forms form :error] (or (:message (first result))

src/cljs/auto_ap/subs.cljs

@@ -156,15 +156,6 @@
  (fn [db]
    (:admin db)))
 
-(re-frame/reg-sub
- ::user-editing-vendor
- (fn [db]
-   (update (-> db :user-editing-vendor)
-           :hidden
-           #(if (nil? %)
-              false
-              %))))
-
 (re-frame/reg-sub
  ::is-admin?
  :<- [::user]

src/cljs/auto_ap/views/components/layouts.cljs

@@ -10,7 +10,9 @@
    [auto-ap.views.utils :refer [active-when active-when= login-url dispatch-event appearing css-transition-group]]
    [auto-ap.views.components.vendor-dialog :refer [vendor-dialog]]
    
-   [auto-ap.views.components.vendor-dialog :refer [vendor-dialog]]))
+   [auto-ap.views.components.vendor-dialog :refer [vendor-dialog]]
+   [auto-ap.entities.vendors :as vendor]
+   [auto-ap.views.components.vendor-dialog :as vendor-dialog]))
 
 
 (defn navbar-drop-down-contents [{:keys [id]} children ]
@@ -85,7 +87,7 @@
         [:div.navbar-end
          [:div.navbar-item
           [:a.button.is-primary.is-outlined
-           {:on-click (dispatch-event [::events/modal-status :auto-ap.views.main/user-editing-vendor {:visible? true}])}
+           {:on-click (dispatch-event [::vendor-dialog/started {}])}
            [:span.icon [:i.fa.fa-plus] ] [:span "Vendor"]]]
          
 
@@ -140,9 +142,7 @@
       ]
      #_[footer]
      [:div 
-      [vendor-dialog {:vendor @(re-frame/subscribe [::subs/user-editing-vendor])
+      [vendor-dialog {}]
-                      :save-event [::events/save-vendor]
-                      :change-event [::events/change-nested-form-state [:user-editing-vendor]] :id :auto-ap.views.main/user-editing-vendor}]
       bottom]
      [:div#dz-hidden]]))
 

src/cljs/auto_ap/views/components/modal.cljs

@@ -24,6 +24,7 @@
 
 (defn action-modal [{:keys [title warning action-text id save-event can-submit? status-from] :or {can-submit? true}} & rest]
   (let [{:keys [visible? saving? error-message]} @(re-frame/subscribe [::subs/modal-state id status-from])]
+    (println id visible?)
     (when visible?
       [:form {:id id
               :on-submit (fn [e]

src/cljs/auto_ap/views/components/vendor_dialog.cljs

@@ -1,15 +1,17 @@
 (ns auto-ap.views.components.vendor-dialog
   (:require [re-frame.core :as re-frame]
-            [auto-ap.views.utils :refer [dispatch-event horizontal-field bind-field]]
+            [auto-ap.views.utils :refer [dispatch-event horizontal-field bind-field with-user]]
             [auto-ap.views.components.modal :refer [action-modal]]
             [auto-ap.views.components.address :refer [address-field]]
-           [auto-ap.views.components.typeahead :refer [typeahead]]
+            [auto-ap.views.components.typeahead :refer [typeahead-entity]]
+            [auto-ap.events :as events]
             [clj-fuzzy.metrics :refer [jaccard jaro-winkler]]
             [clojure.spec.alpha :as s]
             [clojure.string :as str]
             [auto-ap.entities.vendors :as entity]
             [auto-ap.entities.contact :as contact]
-           [auto-ap.subs :as subs]))
+            [auto-ap.subs :as subs]
+            [auto-ap.forms :as forms]))
 (defn ngrams [text len]
   (mapv #(.toLowerCase (str/join "" %))
         (partition len 1 text)))
@@ -24,29 +26,70 @@
             (fn [v] (mapv
                      (fn [n] [v (jaro-winkler text n ) n text])
                      (ngrams v (count text)))))
-           #_(sort-by second)
            (filter #(> (second %) 0.9))
            #_(map (fn [x] (doto x println)))
            (map first)
            first))))
 
-(defn vendor-dialog [{:keys [vendor save-event change-event id] {:keys [name]} :vendor}]
+(re-frame/reg-event-fx
+ ::started
+ (fn  [{:keys [db]} [_ vendor]]
+   {:db (-> db (forms/start-form ::vendor-form (-> vendor
+                                                   (update :hidden #(if (nil? %)
+                                                                      false
+                                                                      %))
+                                                   (update :default-account
+                                                           (fn [da]
+                                                             @(re-frame/subscribe [::subs/account (:id da)]))))))
+    
+    :dispatch [::events/modal-status ::dialog {:visible? true}]}))
+
+(re-frame/reg-event-fx
+ ::save-complete
+ [(forms/triggers-stop ::vendor-form)]
+ (fn  [{:keys [db]} [_ {vendor :upsert-vendor} ]]
+   {:dispatch [::events/modal-completed ::dialog ]
+    :db (-> db
+            (assoc-in [:vendors (:id vendor)] vendor))}))
+
+(re-frame/reg-event-fx
+ ::save
+ [with-user (forms/triggers-loading ::vendor-form) (forms/in-form ::vendor-form)]
+ (fn  [{:keys [user] {:keys [data]} :db} _]
+   (when (s/valid? ::entity/vendor data)
+     { :graphql
+      {:token user
+       :query-obj {:venia/operation {:operation/type :mutation
+                                     :operation/name "UpsertVendor"}
+                   :venia/queries [{:query/data [:upsert-vendor
+                                                 {:vendor (-> data
+                                                              (assoc :default-account-id (:id (:default-account data)))
+                                                              (dissoc :default-account))}
+                                                 events/vendor-query]}]}  
+       :on-success [::save-complete]
+       :on-error [::forms/save-error ::vendor-form]}})))
+
+(defn vendor-dialog [{:keys [save-event] {:keys [name]} :vendor}]
   
   (let [clients-by-id @(re-frame/subscribe [::subs/clients-by-id])
         all-vendors @(re-frame/subscribe [::subs/vendors])
-        chooseable-expense-accounts @(re-frame/subscribe [::subs/chooseable-expense-accounts])]
+        chooseable-expense-accounts @(re-frame/subscribe [::subs/chooseable-expense-accounts])
-    [action-modal {:id id
+        {:keys [data error ] :as f} @(re-frame/subscribe [::forms/form ::vendor-form])
-                   :title [:span (if (:id vendor)
+        change-event [::forms/change ::vendor-form]]
-                                   (str "Edit " (or name "<vendor>"))
+    [action-modal {:id ::dialog
-                                   (str "Add " (or name "<new vendor>")))
+                   :title [:span (if (:id data)
-                           (when (:error vendor)
+                                   (str "Edit " (or (:name data) "<vendor>"))
+                                   (str "Add " (or (:name data) "<new vendor>")))
+                           (when error
                              [:span.icon.has-text-danger
                               [:i.fa.fa-exclamation-triangle]])]
-                   :warning (when-let [vendor (partial-matches-vendor? vendor all-vendors)]
+                   :status-from ::vendor-form
+                   :warning
+                   (when-let [vendor (partial-matches-vendor? data all-vendors)]
                      (str "Are you sure you don't mean " vendor "?"))
                    :action-text "Save"
-                   :save-event save-event
+                   :save-event [::save]
-                   :can-submit? (s/valid? ::entity/vendor vendor)}
+                   :can-submit? (s/valid? ::entity/vendor data)}
 
      [horizontal-field
       [:label.label "Name"]
@@ -57,7 +100,7 @@
                        :field :name
                        :spec ::entity/name
                        :event change-event
-                       :subscription vendor}]]]]
+                       :subscription data}]]]]
 
      [horizontal-field
       [:label.label "Print Checks As"]
@@ -67,7 +110,18 @@
                        :field :print-as
                        :spec ::entity/print-as
                        :event change-event
-                       :subscription vendor}]]]]
+                       :subscription data}]]]]
+
+     [horizontal-field
+      [:label.label "Terms"]
+      [:div.control
+       [bind-field
+        [:input.input {:type "number"
+                       :step "1"
+                       :field :terms
+                       :spec ::entity/terms
+                       :event change-event
+                       :subscription data}]]]]
 
      [horizontal-field
       [:label.label "Hidden"]
@@ -77,26 +131,24 @@
                        :field :hidden
                        :spec ::entity/hidden
                        :event change-event
-                       :subscription vendor}]]]]
+                       :subscription data}]]]]
 
      [:h2.subtitle "Expense Accounts"]
      [horizontal-field
       [:label.label "Default"]
-      [bind-field
-       [typeahead {:matches (map (fn [x] [(:id x) (str (:numeric-code x) " - " (:name x))]) chooseable-expense-accounts)
-                   :type "typeahead"
-                   :field [:default-account-id]
-                   :event change-event
-                   :subscription vendor}]]]     
 
+      [bind-field
+       [typeahead-entity {:matches chooseable-expense-accounts
+                          :match->text (fn [x ] (str (:numeric-code x) " - " (:name x)))
+                          :type "typeahead-entity"
+                          :field [:default-account]
+                          :event change-event
+                          :subscription data}]]]
 
      [:h2.subtitle "Address"]
      [address-field {:field [:address]
                      :event change-event
-                     :subscription vendor}]
+                     :subscription data}]
-     
-     
-     
      [:h2.subtitle "Contact"]
      [horizontal-field
       [:label.label "Primary"]
@@ -106,7 +158,7 @@
                                    :field [:primary-contact :name]
                                    :spec ::contact/name
                                    :event change-event
-                                   :subscription vendor}]]
+                                   :subscription data}]]
        [:span.icon.is-small.is-left
         [:i.fa.fa-user]]]
 
@@ -118,7 +170,7 @@
                        :field [:primary-contact :email]
                        :spec ::contact/email
                        :event change-event
-                       :subscription vendor}]]]
+                       :subscription data}]]]
 
       [:div.control.has-icons-left
        [bind-field
@@ -126,7 +178,7 @@
                        :field [:primary-contact :phone]
                        :spec ::contact/phone
                        :event change-event
-                       :subscription vendor}]]
+                       :subscription data}]]
        [:span.icon.is-small.is-left
         [:i.fa.fa-phone]]]]
      [horizontal-field
@@ -137,7 +189,7 @@
                                    :field [:secondary-contact :name]
                                    :spec ::contact/name
                                    :event change-event
-                                   :subscription vendor}]]
+                                   :subscription data}]]
        [:span.icon.is-small.is-left
         [:i.fa.fa-user]]]
       [:div.control.has-icons-left
@@ -148,14 +200,14 @@
                        :field [:secondary-contact :email]
                        :spec ::contact/email
                        :event change-event
-                       :subscription vendor}]]]
+                       :subscription data}]]]
       [:div.control.has-icons-left
        [bind-field
         [:input.input {:type "phone"
                        :field [:secondary-contact :phone]
                        :spec ::contact/phone
                        :event change-event
-                       :subscription vendor}]]
+                       :subscription data}]]
        [:span.icon.is-small.is-left
         [:i.fa.fa-phone]]]]
      [horizontal-field
@@ -169,7 +221,7 @@
                   :field :invoice-reminder-schedule
                   :spec ::entity/invoice-reminder-schedule
                   :event change-event
-                  :subscription vendor}]]
+                  :subscription data}]]
         " Send weekly"]
 
        [:label.radio 
@@ -180,6 +232,6 @@
                   :field :invoice-reminder-schedule
                   :spec ::entity/invoice-reminder-schedule
                   :event change-event
-                  :subscription vendor}]]
+                  :subscription data}]]
         " Never"]]]
-     (when (:saving? vendor) [:div.is-overlay {:style {"backgroundColor" "rgba(150,150,150, 0.5)"}}])]))
+     (when (:saving? data) [:div.is-overlay {:style {"backgroundColor" "rgba(150,150,150, 0.5)"}}])]))

src/cljs/auto_ap/views/main.cljs

@@ -9,7 +9,6 @@
    [auto-ap.views.components.layouts :refer [side-bar-layout]]
    [auto-ap.views.pages.unpaid-invoices :refer [unpaid-invoices-page]]
    [auto-ap.views.pages.import-invoices :refer [import-invoices-page]]
-   [auto-ap.views.pages.paid-invoices :refer [paid-invoices-page]]
    [auto-ap.views.pages.needs-activation :refer [needs-activation-page]]
    [auto-ap.views.pages.transactions :refer [transactions-page]]
    [auto-ap.views.pages.ledger :refer [ledger-page]]

src/cljs/auto_ap/views/pages/admin/vendors.cljs

@@ -1,15 +1,17 @@
 (ns auto-ap.views.pages.admin.vendors
-  (:require-macros [cljs.core.async.macros :refer [go]])
+  (:require-macros [cljs.core.async.macros :refer [go]]
+                   [auto-ap.entities.vendors :as vendor])
   (:require [re-frame.core :as re-frame]
             [reagent.core :as reagent]
             [clojure.string :as str]
             [auto-ap.subs :as subs]
-            [auto-ap.events :as main-events]
+            [auto-ap.events :as events]
             [auto-ap.forms :as forms]
-            [auto-ap.events.admin.vendors :as events]
+            [auto-ap.utils :refer [by]]
             [auto-ap.entities.vendors :as entity]
             [auto-ap.views.components.address :refer [address-field]]
-            [auto-ap.views.components.vendor-dialog :refer [vendor-dialog]]
+            [auto-ap.views.components.vendor-dialog :refer [vendor-dialog] :as vendor-dialog]
+            
             [auto-ap.views.components.modal :refer [modal action-modal]]
             [auto-ap.views.components.admin.side-bar :refer [admin-side-bar]]
             [auto-ap.views.components.layouts :refer [side-bar-layout]]
@@ -21,13 +23,98 @@
             [auto-ap.routes :as routes]
             [bidi.bidi :as bidi]))
 
+
+(re-frame/reg-event-fx
+ ::new
+ (fn  [{:keys [db]} _]
+   {:db (assoc-in db [:admin :vendor]
+                  {})
+   :dispatch [::events/modal-status ::admin-vendor {:visible? true}]}))
+
+
+
+
+
+(re-frame/reg-event-fx
+ ::remind
+ (fn  [{:keys [db] :as fx} [_ id]]
+   { :http {:method :post
+            :token (:user db)
+            :headers {"Content-Type" "application/edn"}
+            :uri (str "/api/vendors/" id "/remind")
+            :on-success [::reminder-sent]
+            :on-error [::failed "Failed to send reminder"]}
+    :db (assoc-in db [:admin :banner] nil)}))
+
+(re-frame/reg-event-db
+ ::reminder-sent
+ (fn  [db [_ error]]
+   (-> db
+       (assoc-in [:admin :banner] "Reminder sent!"))))
+
+(re-frame/reg-event-db
+ ::failed
+ (fn  [db [_ error]]
+   (-> db
+       (assoc-in [:admin :banner] error))))
+
+(re-frame/reg-event-fx
+ ::save-complete
+ (fn  [{:keys [db]} [_ {vendor :upsert-vendor} ]]
+   {:dispatch [::events/modal-completed ::admin-vendor ]
+    :db (-> db
+            
+            (assoc-in [:admin :vendor] nil)
+            (assoc-in [:vendors (:id vendor)] vendor))}))
+
+(re-frame/reg-event-db
+ ::save-error
+ (fn  [db [_ vendor]]
+   (println "ERROR?")
+   (-> db
+       (assoc-in [:admin :vendor :error] true)
+       (assoc-in [:admin :vendor :saving?] false))))
+
+(re-frame/reg-event-db
+ ::change
+ (fn  [db [_ path value]]
+   (println path value)
+   (assoc-in db (concat [:admin :vendor] path)
+             value)))
+
+(re-frame/reg-event-db
+ ::add-relationship
+ (fn  [db [_ ]]
+   (-> db
+       (update-in [:admin :vendor :relationships] #(conj (or % [])
+                                                         {:account-number (get-in db [:admin :vendor :new-relationship-account-number])
+                                                          :client-id (get-in db [:admin :vendor :new-relationship-client])}))
+       (update-in [:admin :vendor] dissoc :new-relationship-account-number :new-relationship-client))))
+
+(re-frame/reg-event-db
+ ::remove-relationship
+ (fn  [db [_ i]]
+   (-> db
+       (update-in [:admin :vendor :relationships] #(vec (concat (subvec % 0 i) (subvec % (min (count %) (inc i)))))))))
+
+(re-frame/reg-event-fx
+ ::mounted
+ (fn  [{:keys [db]} _]
+   {:graphql {:token (:user db)
+              :query-obj {:venia/queries [[:vendor events/vendor-query]]} 
+              :on-success [::received-vendors]}}))
+
+(re-frame/reg-event-db
+ ::received-vendors
+ (fn  [db [_ vendors]]
+   (assoc db :vendors (by :id (:vendor vendors )))))
+
+
 (defn invalid-fields [spec v]
   (set (mapcat :in (::s/problems (s/explain-data spec v)))))
 
 (defn vendors-table []
-  (let [vendors (re-frame/subscribe [::subs/sorted-all-vendors])
+  (let [vendors (re-frame/subscribe [::subs/sorted-all-vendors])]
-        editing-vendor (:editing @(re-frame/subscribe [::subs/admin]))]
-    
     [:table {:class "table", :style {:width "100%"}}
      [:thead  
       [:tr  
@@ -37,7 +124,7 @@
        [:th]]]
      [:tbody (for [v @vendors]
                ^{:key (str (:id v))}
-               [:tr {:on-click (dispatch-event [::events/edit (:id v)])
+               [:tr {:on-click (dispatch-event [::vendor-dialog/started v])
                      :style {"cursor" "pointer"}}
                 [:td (:name v)]
                 [:td (:primary-email v)]
@@ -61,14 +148,14 @@
  ::merge-clicked
  (fn  [{:keys [db]} _]
    {:db (forms/start-form db ::merge-vendors {})
-    :dispatch [::main-events/modal-status ::merge-vendors {:visible? true :saving? false}]}))
+    :dispatch [::events/modal-status ::merge-vendors {:visible? true :saving? false}]}))
 
 (re-frame/reg-event-fx
  ::merge-vendors-complete
  (fn  [{:keys [db]} _]
    {:db (forms/stop-form db ::merge-vendors)
-    :dispatch-n (list [::main-events/modal-status ::merge-vendors {:visible? false}]
+    :dispatch-n (list [::events/modal-status ::merge-vendors {:visible? false}]
-                      [::events/mounted])}))
+                      [::mounted])}))
 
 (re-frame/reg-event-fx
  ::merge-submit-clicked
@@ -138,14 +225,15 @@
            [vendors-table]
 
            [:div.is-pulled-right
-            [:a.button.is-primary.is-large {:on-click (dispatch-event [::main-events/modal-status :auto-ap.views.main/user-editing-vendor {:visible? true}])} "New vendor"]]
+            [:a.button.is-primary.is-large {:on-click (dispatch-event [::vendor-dialog/started {}])} "New vendor"]]
            [merge-vendors-dialog]
-           [vendor-dialog {:vendor editing-vendor
+           #_[vendor-dialog {:vendor editing-vendor
                            :save-event [::events/save]
                            :change-event ::events/change
+                           :form ::admin-vendor
                            :id ::admin-vendor}]])])
      {:component-did-mount (fn []
-                             (re-frame/dispatch [::events/mounted]))})])
+                             (re-frame/dispatch [::mounted]))})])
 
 (defn admin-vendors-page []
   [side-bar-layout {:side-bar [admin-side-bar {}]

src/cljs/auto_ap/views/pages/paid_invoices.cljs

@@ -1,85 +0,0 @@
-(ns auto-ap.views.pages.paid-invoices
-  (:require [re-frame.core :as re-frame]
-            [auto-ap.entities.clients :as client]
-            [auto-ap.entities.vendors :as vendor]
-            [auto-ap.events :as events]
-            [auto-ap.views.utils :refer [dispatch-event]]
-            [auto-ap.utils :refer [by replace-if]]
-            [auto-ap.views.components.layouts :refer [side-bar-layout]]
-            [auto-ap.views.components.invoices.side-bar :refer [invoices-side-bar]]
-            [auto-ap.views.pages.check :as check]
-            [auto-ap.views.components.invoice-table :refer [invoice-table] :as invoice-table]
-            [auto-ap.views.components.expense-accounts-dialog :as expense-accounts-dialog]
-            [auto-ap.views.components.vendor-dialog :refer [vendor-dialog]]
-            [auto-ap.subs :as subs]))
-
-
-(re-frame/reg-sub
- ::invoice-page
- (fn [db]
-   (-> db ::invoice-page)))
-
-(re-frame/reg-sub
- ::params
- (fn [db]
-   (-> db (::params {}))))
-
-(re-frame/reg-event-fx
- ::params-change
- (fn [cofx [_ params]]
-   {:db (-> (:db cofx)
-            (assoc-in [:status :loading] true)
-            (assoc-in [::params] params))
-    :graphql {:token (-> cofx :db :user)
-              :query-obj (invoice-table/query (assoc params :imported true :status "paid")) 
-              :on-success [::received]}}))
-
-(re-frame/reg-event-db
- ::received
- (fn [db [_ data]]
-   (-> db
-       (assoc ::invoice-page (first (:invoice-page data)))
-       (assoc-in [:status :loading] false))))
-
-(re-frame/reg-event-fx
- ::invalidated
- (fn [cofx [_ params]]
-   {:dispatch [::params-change @(re-frame/subscribe [::params])]}))
-
-(re-frame/reg-event-fx
- ::expense-accounts-updated
- (fn [{:keys [db]} [_ data]]
-   (let [updated (:edit-expense-accounts data)]
-     {:dispatch [::events/modal-completed ::expense-accounts-dialog/change-expense-accounts]
-      :db (-> db
-              (update-in [::invoice-page :invoices]
-                         
-                         (fn [is]
-                           
-                           (replace-if #(= (:id %1) (:id %2)) updated is)))
-              (dissoc ::change-expense-accounts))})))
-
-(def paid-invoices-content
-  (with-meta
-    (fn []
-      (let [current-client @(re-frame/subscribe [::subs/client])]
-        [:div 
-         [:h1.title "Paid invoices"]
-         [invoice-table {:id :paid
-                         :params (re-frame/subscribe [::params])
-                         :invoice-page (re-frame/subscribe [::invoice-page])
-                         :status (re-frame/subscribe [::subs/status])
-                         :expense-event [::expense-accounts-dialog/change-expense-accounts]
-                         :on-params-change (fn [params]
-                                             (re-frame/dispatch [::params-change params]))
-                         :check-boxes false}]
-         [expense-accounts-dialog/change-expense-accounts-modal
-          {:updated-event [::expense-accounts-updated]}]]))
-    {:component-will-mount #(do (println "HERE2") (re-frame/dispatch-sync [::params-change {}])) }))
-
-(defn paid-invoices-page []
-  [side-bar-layout {:side-bar [invoices-side-bar]
-                    :main [paid-invoices-content]
-                    :bottom [vendor-dialog {:vendor @(re-frame/subscribe [::subs/user-editing-vendor])
-                                            :save-event [::events/save-vendor]
-                                            :change-event [::events/change-nested-form-state [:user-editing-vendor]] :id :auto-ap.views.main/user-editing-vendor}]}])