From d6abad581b66ad0d228dd737b64eccfddef27597 Mon Sep 17 00:00:00 2001
From: Bryce Covert <bryce@brycecovertoperations.com>
Date: Tue, 17 Jan 2023 16:02:45 -0800
Subject: [PATCH] Fixes logout link.

---
 src/clj/auto_ap/ssr/company/company_1099.clj | 14 ++++++--
 src/clj/auto_ap/ssr/core.clj                 |  1 +
 src/clj/auto_ap/ssr/ui.clj                   | 37 ++++++++++++++++++--
 src/cljc/auto_ap/client_routes.cljc          |  3 +-
 src/cljc/auto_ap/ssr_routes.cljc             |  1 +
 5 files changed, 51 insertions(+), 5 deletions(-)

diff --git a/src/clj/auto_ap/ssr/company/company_1099.clj b/src/clj/auto_ap/ssr/company/company_1099.clj
index 5d65b297..11d00c16 100644
--- a/src/clj/auto_ap/ssr/company/company_1099.clj
+++ b/src/clj/auto_ap/ssr/company/company_1099.clj
@@ -302,10 +302,20 @@
 
 
 
+(defn vendor-table [request]
+  (html-response (table request)))
+
 (defn page [{:keys [identity matched-route] :as request}]
   (base-page
-    [:div
-     (table request)]
+    [:div 
+     [:div#vendor-table {:hx-get     (bidi/path-for ssr-routes/only-routes
+                                                    :company-1099-vendor-table
+                                                    :request-method :get) 
+                         :hx-trigger "load"
+                         :hx-swap    "outerHTML"}
+      [:div.container 
+       [:div.column.is-4.is-offset-4.has-text-centered
+        [:div.loader.is-loading.is-active.big.is-centered]]]]]
     [:div
      (company-side-bar matched-route)]))
 
diff --git a/src/clj/auto_ap/ssr/core.clj b/src/clj/auto_ap/ssr/core.clj
index 9da59d1d..794d573b 100644
--- a/src/clj/auto_ap/ssr/core.clj
+++ b/src/clj/auto_ap/ssr/core.clj
@@ -10,6 +10,7 @@
                    :admin-history-search  (wrap-client-redirect-unauthenticated (wrap-secure (wrap-admin admin/history-search)))
                    :admin-history-inspect (wrap-client-redirect-unauthenticated (wrap-secure (wrap-admin admin/inspect)))
                    :company-1099 (wrap-client-redirect-unauthenticated (wrap-secure company-1099/page))
+                   :company-1099-vendor-table (wrap-client-redirect-unauthenticated (wrap-secure company-1099/vendor-table))
                    :company-1099-vendor-dialog (wrap-client-redirect-unauthenticated (wrap-secure company-1099/vendor-dialog))
                    :company-1099-vendor-save (wrap-client-redirect-unauthenticated (wrap-secure company-1099/vendor-save))})
 
diff --git a/src/clj/auto_ap/ssr/ui.clj b/src/clj/auto_ap/ssr/ui.clj
index 332f6d11..25c06bce 100644
--- a/src/clj/auto_ap/ssr/ui.clj
+++ b/src/clj/auto_ap/ssr/ui.clj
@@ -12,6 +12,39 @@
               (hiccup/html
                    {}
                    hiccup))})
+(defn client-dropdown []
+  (let [client           nil
+        matching-clients nil]
+    
+    [:div#company-dropdown.navbar-item.has-dropdown
+     [:a.navbar-link {"_" (hiccup/raw "on click toggle .is-active on <#company-dropdown />")} "Company"]
+     [:div.navbar-dropdown
+      [:input.input.navbar-item {:placeholder "Company name"
+                                 :autoFocus true} ]
+
+      ]]
+    #_[navbar-drop-down {:header (str "Company: " (if @client (:name @client)
+                                                    "All"))
+                       :id     :select-client}
+     [:div
+      [:a {:class    "navbar-item"
+           :on-click (fn []
+                       (re-frame/dispatch [:events/toggle-menu :select-client])
+                       (re-frame/dispatch [:forms/form-closing :client-search])
+                       (re-frame/dispatch [:events/swap-client nil]))} "All" ]
+      [:hr {:class "navbar-divider"}]
+      [form-builder/builder {:id           :client-search
+                             :submit-event [:client-searched]}
+       [form-builder/raw-field-v2  {:field :value}
+        [:input.input.navbar-item {:placeholder "Company name"
+                                   :auto-focus  true}]]]
+      (for [{:keys [name id] :as client} (take 8 matching-clients)]
+        ^{:key id }
+        [:a {:class    "navbar-item"
+             :on-click (fn []
+                         (re-frame/dispatch [:events/toggle-menu :select-client])
+                         (re-frame/dispatch [:events/swap-client client]))
+             } name])]]))
 
 (defn base-page [contents side-bar-contents]
   (html-page 
@@ -59,9 +92,9 @@
              "POS" ]
             [:a.navbar-item {:href "/transactions/"}
              "Transactions" ]
-            
             [:a.navbar-item {:href "/ledger/"}
-             "Ledger" ]]]]]
+             "Ledger" ]
+            (client-dropdown)]]]]
         [:div {:class "columns has-shadow", :id "mail-app", :style "margin-bottom: 0px; height: calc(100vh - 46px);"}
          [:aside {:class "column aside menu is-2 "}
           [:div {:class "main left-nav"}
diff --git a/src/cljc/auto_ap/client_routes.cljc b/src/cljc/auto_ap/client_routes.cljc
index c20a8572..cbaf1c0e 100644
--- a/src/cljc/auto_ap/client_routes.cljc
+++ b/src/cljc/auto_ap/client_routes.cljc
@@ -1,7 +1,8 @@
 (ns auto-ap.client-routes)
 
 (def routes ["/" {"" :index
-                  #"login/?" :login
+                  "login" :login
+                  "login/" :login
                   "needs-activation/" :needs-activation
                   "needs-activation" :needs-activation
                   "payments/" :payments
diff --git a/src/cljc/auto_ap/ssr_routes.cljc b/src/cljc/auto_ap/ssr_routes.cljc
index 2d402c75..4f508d3d 100644
--- a/src/cljc/auto_ap/ssr_routes.cljc
+++ b/src/cljc/auto_ap/ssr_routes.cljc
@@ -6,6 +6,7 @@
                                   ["/" [#"\d+" :entity-id] #"/?"]         :admin-history-search
                                   ["/inspect/" [#"\d+" :entity-id] #"/?"] :admin-history-inspect}}
              "company" {"/1099" :company-1099
+                        "/1099/table" {:get :company-1099-vendor-table}
                         "/1099/vendor-dialog" {["/" [#"\d+" :vendor-id]] {:get :company-1099-vendor-dialog
                                                                           :post :company-1099-vendor-save}}}})