From 8fd064aaf3a257b0564f4eafb1c8691c4b1f9912 Mon Sep 17 00:00:00 2001 From: Bryce Covert Date: Tue, 28 Apr 2020 13:05:55 -0700 Subject: [PATCH] deleted file. --- src/cljs/auto_ap/views/pages/checks.cljs | 121 ----------------------- 1 file changed, 121 deletions(-) delete mode 100644 src/cljs/auto_ap/views/pages/checks.cljs diff --git a/src/cljs/auto_ap/views/pages/checks.cljs b/src/cljs/auto_ap/views/pages/checks.cljs deleted file mode 100644 index ac3a97aa..00000000 --- a/src/cljs/auto_ap/views/pages/checks.cljs +++ /dev/null @@ -1,121 +0,0 @@ -(ns auto-ap.views.pages.checks - (:require [re-frame.core :as re-frame] - [auto-ap.entities.clients :as client] - [auto-ap.entities.vendors :as vendor] - [auto-ap.entities.invoice :as invoice] - [reagent.core :as reagent] - [goog.string :as gstring] - [clojure.spec.alpha :as s] - [auto-ap.views.components.sorter :refer [sorted-column]] - [auto-ap.views.components.date-range-filter :refer [date-range-filter]] - [auto-ap.views.components.layouts :refer [side-bar-layout]] - [auto-ap.views.components.typeahead :refer [typeahead]] - [auto-ap.views.components.paginator :refer [paginator]] - [auto-ap.views.components.sort-by-list :refer [sort-by-list]] - [auto-ap.events :as events] - [auto-ap.views.utils :refer [dispatch-event date->str bind-field nf with-user]] - [auto-ap.utils :refer [by]] - [auto-ap.views.pages.payments.side-bar :as side-bar] - [auto-ap.views.pages.payments.table :as table] - [auto-ap.views.pages.check :as check] - [auto-ap.views.components.invoice-table :refer [invoice-table] :as invoice-table] - [auto-ap.subs :as subs])) - - - - -(re-frame/reg-sub - ::payment-page - (fn [db] - (-> db ::payment-page))) - -(re-frame/reg-sub - ::params - :<- [::subs/client] - :<- [::side-bar/filter-params] - :<- [::table/table-params] - (fn [[client filter-params table-params]] - (cond-> {} - client (assoc :client-id (:id client)) - (seq filter-params) (merge filter-params) - (seq table-params) (merge @(re-frame/subscribe [::table/table-params]))))) - -(re-frame/reg-event-fx - ::params-change - [with-user] - (fn [{:keys [user db]}[_ ]] - (let [new-params @(re-frame/subscribe [::params])] - (when (not= (::last-params db) new-params) - {:db (-> db - (assoc-in [:status :loading] true) - (assoc-in [::last-params] new-params)) - :graphql {:token user - :query-obj {:venia/queries [[:payment_page - @(re-frame/subscribe [::params]) - [[:payments [:id :status :amount :type :check_number :s3_url - [:bank-account [:name]] - :date [:vendor [:name :id]] [:client [:name :id]]]] - :total - :start - :end]]]} - :on-success [::received] - :on-error [::events/page-failed]}})))) - -(re-frame/reg-event-fx - ::void-check - (fn [{:keys [db]} [_ payment]] - {:graphql - {:token (-> db :user) - :query-obj {:venia/operation {:operation/type :mutation - :operation/name "VoidPayment"} - :venia/queries [{:query/data [:void-payment - {:payment-id (:id payment)} - [:id :status [:bank-account [:name]] :amount :check_number :s3_url :date [:vendor [:name :id]] [:client [:name :id]]]]}]} - :on-success [::payment-voided]}})) - -(re-frame/reg-event-db - ::payment-voided - (fn [db [_ {:keys [void-payment]}]] - (-> db - (update-in [::payment-page :payments] (fn [payments] - (mapv (fn [c] - (if (= (:id c) (:id void-payment)) - (assoc void-payment :class "live-removed") - c)) - payments)))))) - -(re-frame/reg-event-db - ::received - (fn [db [_ data]] - (-> db - (update ::payment-page merge (first (:payment-page data))) - (assoc-in [:status :loading] false)))) - -(re-frame/reg-event-fx - ::unmounted - (fn [{:keys [db]} _] - (println "HERE") - {:db (dissoc db ::last-params ::table/table-params ::side-bar/filters ::payment-page)})) - -(defn content [] - (with-meta - (fn [] - (let [current-client @(re-frame/subscribe [::subs/client])] - [:div - [:h1.title "Payments"] - [table/table {:id :payments - :payment-page (re-frame/subscribe [::payment-page]) - :status (re-frame/subscribe [::subs/status]) - :void-event [::void-check]}]])) - {:component-will-mount #(re-frame/dispatch-sync [::params-change {}]) })) - - -(defn payments-page [] - (reagent/create-class - {:display-name "payments-page" - :component-did-mount #(re-frame/dispatch [::params-change {}]) - :component-will-unmount #(re-frame/dispatch [::unmounted]) - :reagent-render - (fn [] - [side-bar-layout {:side-bar [side-bar/side-bar] - :main [content]}])}))