Adds reports page.

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

@@ -46,7 +46,8 @@
       [navbar-drop-down {:header [:span [:span.icon [:i.fa.fa-user] ]
                                   [:span (:user/name @user)]] :id ::account}
        [:div
-        [:a {:class "navbar-item"} "My profile"]
+        [:a {:class "navbar-item"
+             :href (bidi/path-for routes/routes :reports)} "My company"]
         (when (= "admin" (:user/role @user))
           [:a {:class "navbar-item" :href (bidi/path-for routes/routes :admin)} "Administration"])
         [:hr {:class "navbar-divider"}]

src/cljs/auto_ap/views/main.cljs

@@ -1,17 +1,14 @@
 (ns auto-ap.views.main
   (:require
    [re-frame.core :as re-frame]
-   [bidi.bidi :as bidi]
-   [auto-ap.routes :as routes]
    [auto-ap.subs :as subs]
-   [auto-ap.events :as events]
-   [auto-ap.views.utils :refer [active-when active-when= login-url dispatch-event]]
-   [auto-ap.views.components.layouts :refer [side-bar-layout loading-layout]]
+   [auto-ap.views.components.layouts :refer [loading-layout]]
    [auto-ap.views.pages.unpaid-invoices :refer [unpaid-invoices-page paid-invoices-page all-invoices-page voided-invoices-page]]
    [auto-ap.views.pages.import-invoices :refer [import-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]]
+   [auto-ap.views.pages.reports :refer [reports-page]]
    [auto-ap.views.pages.error :refer [error-page]]
    [auto-ap.views.pages.ledger.balance-sheet :refer [balance-sheet-page]]
    [auto-ap.views.pages.ledger.external-import :refer [external-import-page]]
@@ -32,8 +29,7 @@
    [auto-ap.views.pages.admin.import-batches :refer [import-batches-page]]
    [auto-ap.views.pages.admin.yodlee :refer [admin-yodlee-page]]
    [auto-ap.views.pages.admin.yodlee2 :as yodlee2]
-   [auto-ap.views.pages.admin.plaid :as plaid]
-   [auto-ap.entities.clients :as clients]))
+   [auto-ap.views.pages.admin.plaid :as plaid]))
 
 (defmulti page (fn [active-page] active-page))
 (defmethod page :unpaid-invoices [_]
@@ -43,6 +39,8 @@
 (defmethod page :import-invoices [_]
   (import-invoices-page ))
 
+(defmethod page :reports [_]
+  (reports-page ))
 
 (defmethod page :paid-invoices [_]
   ^{:key :paid}

src/cljs/auto_ap/views/pages/company/side_bar.cljs

@@ -0,0 +1,17 @@
+(ns auto-ap.views.pages.company.side-bar
+  (:require
+   [auto-ap.routes :as routes]
+   [auto-ap.subs :as subs]
+   [auto-ap.views.utils :refer [active-when]]
+   [bidi.bidi :as bidi]
+   [re-frame.core :as re-frame]))
+
+(defn company-side-bar []
+  (let [ap @(re-frame/subscribe [::subs/active-page])]
+    [:div
+     [:ul.menu-list
+      [:li.menu-item
+       [:a.item {:href (bidi/path-for routes/routes :reports)
+                 :class [(active-when ap = :reports)]}
+        [:span {:class "icon icon-receipt" :style {:font-size "25px"}}]
+        [:span {:class "name"} "Reports"]]]]]))

src/cljs/auto_ap/views/pages/reports.cljs

@@ -0,0 +1,78 @@
+(ns auto-ap.views.pages.reports
+  (:require
+   [auto-ap.subs :as subs]
+   [auto-ap.views.components.layouts :refer [side-bar-layout]]
+   [auto-ap.views.pages.data-page :as data-page]
+   [auto-ap.views.pages.company.side-bar
+    :as side-bar
+    :refer [company-side-bar]]
+   [auto-ap.views.pages.reports.table :as table]
+   [auto-ap.views.utils :refer [with-user]]
+   [clojure.set :as set]
+   [re-frame.core :as re-frame]
+   [reagent.core :as reagent]
+   [vimsical.re-frame.fx.track :as track]))
+
+(defn data-params->query-params [params]
+  {:start (:start params 0)
+   :sort (:sort params)
+   :per-page (:per-page params)
+   :client-id (:id @(re-frame/subscribe [::subs/client]))})
+
+
+(re-frame/reg-event-fx
+ ::params-change
+ [with-user]
+ (fn [{:keys [user]} [_ params]]
+   {:graphql {:token user
+              :owns-state {:single [::data-page/page ::page]}
+              :query-obj {:venia/queries [[:report-page
+                                           {:filters (data-params->query-params params)}
+                                           [[:reports [:id
+                                                       :name
+                                                       :created
+                                                       :url]]
+                                            :total
+                                            :start
+                                            :end]]]} 
+              :on-success (fn [result]
+                            [::data-page/received ::page (set/rename-keys (:report-page result)
+                                                                          {:reports :data})])}}))
+
+(re-frame/reg-event-fx
+ ::unmounted
+ (fn [_ _]
+   {:dispatch [::data-page/dispose ::page]
+    ::track/dispose {:id ::params}}))
+
+(re-frame/reg-event-fx
+ ::mounted
+ (fn [_ _]
+   {::track/register {:id ::params
+                      :subscription [::data-page/params ::page]
+                      :event-fn (fn [params] [::params-change params])}}))
+
+
+
+(defn ledger-content []
+  (let [_ @(re-frame/subscribe [::subs/client])]
+    [:div 
+     [:h1.title "Reports"]
+     [table/table {:id :reports
+                   :data-page ::page}]]))
+
+
+(defn reports-page []
+  (let [user (re-frame/subscribe [::subs/user])]
+    (reagent/create-class
+     {:display-name "report-page"
+      :component-did-mount #(re-frame/dispatch [::mounted])
+      :component-will-unmount #(re-frame/dispatch [::unmounted])
+      :reagent-render
+      (fn []
+        (if (not= "manager" (:user/role @user))
+          [side-bar-layout
+           {:side-bar [company-side-bar {:data-page ::page}]
+            :main [ledger-content]}]
+          [:div "Not authorized"]))})))
+

src/cljs/auto_ap/views/pages/reports/table.cljs

@@ -0,0 +1,64 @@
+(ns auto-ap.views.pages.reports.table
+  (:require
+   [auto-ap.status :as status]
+   [auto-ap.subs :as subs]
+   [auto-ap.views.components.buttons :as buttons]
+   [auto-ap.views.components.grid :as grid]
+   [auto-ap.views.pages.data-page :as data-page]
+   [auto-ap.views.utils :refer [action-cell-width date->str dispatch-event]]
+   [re-frame.core :as re-frame]))
+
+(re-frame/reg-event-fx
+  ::delete-report
+  (fn [{:keys [db]} [_ {id :id data-page :data-page}]]
+    {:graphql
+     {:token      (-> db :user)
+      :owns-state {:single ::delete}
+      :query-obj  {:venia/operation {:operation/type :mutation
+                                     :operation/name "DeleteReport"}
+                   :venia/queries   [{:query/data [:delete-report
+                                                   {:id id}
+                                                   [:message]]}]}  
+      :on-success (fn [result]
+                    [::data-page/updated-entity data-page {:name "deleted"}]
+                    #_[::invoice-updated ()(:void-invoice result)])}}))
+
+(defn row [{{:keys [name created url id] :as i} :row is-admin? :is-admin? data-page :data-page}]
+  [:<>
+   [grid/row {:class (:class i) :id id}
+    [grid/cell {} name]
+    [grid/cell {} (date->str created) ]
+    [grid/button-cell {}
+     [:div.buttons 
+      (when (not= "deleted" name)
+        [buttons/fa-icon {:icon "fa-external-link"
+                          :href url}])
+      (when (not= "deleted" name)
+        
+        (when is-admin? 
+          [buttons/fa-icon {:icon     "fa-trash"
+                            :on-click (dispatch-event [::delete-report {:id id :data-page data-page}])}]))]]]])
+
+(defn table [{:keys [data-page id]}]
+  (let [{:keys [data]} @(re-frame/subscribe [::data-page/page data-page])
+        is-admin? @(re-frame/subscribe [::subs/is-admin?])]
+    [:div
+     [status/status-notification {:statuses [[::status/single ::delete]]}]
+     [grid/grid {:data-page    data-page
+                 :column-count 3}
+      [grid/controls data]
+      [grid/table {:fullwidth true :class ["wrappable"]}
+       [grid/header 
+        [grid/row {}
+         [grid/sortable-header-cell {:sort-key "name" :sort-name "Name"} "Name"]
+         [grid/sortable-header-cell {:sort-key "created" :sort-name "Created" :style {:width "8em"}} "Created"]
+         [grid/header-cell {:style {:width (action-cell-width (if 
+                                                                  is-admin?
+                                                                2
+                                                                1))}}]
+         ]]
+       [grid/body
+        (for [i (:data data)]
+          ^{:key (:id i)}
+          [row {:row i :is-admin? is-admin? :data-page data-page}])]]]]))
+