Yodlee page in ssr.

2023-05-13 22:51:03 -07:00
parent 8dca622947
commit b9ae20125b
19 changed files with 417 additions and 160 deletions
--- a/src/clj/auto_ap/ssr/company.clj
+++ b/src/clj/auto_ap/ssr/company.clj
@@ -0,0 +1,66 @@
+(ns auto-ap.ssr.company
+  (:require
+   [auto-ap.datomic :refer [conn]]
+   [auto-ap.datomic.clients :refer [full-read]]
+   [auto-ap.ssr.components :as com]
+   [auto-ap.ssr.svg :as svg]
+   [auto-ap.ssr.ui :refer [base-page]]
+   [cemerick.url :as url]
+   [config.core :refer [env]]
+   [datomic.api :as dc]
+   [auto-ap.ssr-routes :as ssr-routes]
+   [bidi.bidi :as bidi]))
+
+(defn please-select-client-screen* []
+  [:div.grid.grid-cols-3
+   (com/content-card {}
+                     [:div.col-span-1.p-4 {:class "p-4 sm:p-6"}
+                      [:h3 {:class "mb-4 text-xl font-semibold dark:text-white"}
+                       "Please select a company"]
+                      ])])
+
+(defn main-content* [{:keys [client]}]
+  (if-not client
+    (please-select-client-screen*)
+    (let [client (dc/pull (dc/db conn) full-read (:db/id client))]
+      [:div.grid.grid-cols-3.gap-4
+       (com/content-card {}
+                         [:div.col-span-1.p-4 {:class "p-4 sm:p-6"}
+                          [:h3 {:class "mb-4 text-xl font-semibold dark:text-white"}
+                           (:client/name client)]
+                          (when-let [address (-> client :client/address)]
+                            [:div.flex.flex-col.gap-1.text-lg.dark:text-white.text-gray-700
+                             [:p (-> address :address/street1)]
+                             [:p (-> address :address/street2)]
+                             [:p (-> address :address/city) " "
+                              (-> address :address/state) ", "
+                              (-> address :address/zip)]])]
+                         )
+       (com/content-card {}
+                         [:div.col-span-1.p-4 {:class "p-4 sm:p-6"}
+                          [:h3 {:class "mb-4 text-xl font-semibold dark:text-white"}
+                           "Downloads"]
+                          [:a {:href (str (assoc (url/url (str (:base-url env) "/api/vendors/company/export"))
+                                                 :query {"client" (:client/code client)}))}
+                           (com/button {:color :primary}
+                                       "Download vendor list"
+                                       (com/button-icon {} svg/download))]])])))
+
+(defn page [{:keys [identity matched-route] :as request}]
+  (base-page
+    request
+    (com/page {:nav           (com/company-aside-nav)
+               :active-client (:client (:session request))
+               :identity      (:identity request)
+               :app-params {
+                            :hx-get     (bidi/path-for ssr-routes/only-routes
+                                                       :company)
+                            :hx-trigger "clientSelected from:body"
+                            :hx-swap    "outerHTML swap:300ms"}}
+              (com/breadcrumbs {}
+                               [:a {:href (bidi/path-for ssr-routes/only-routes
+                                                         :company)}
+                                "My Company"])
+              (main-content* {:client (:client (:session request))}))
+    nil))
+