Fixes logout link.

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#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)]))
 

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))})
 

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"}

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

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}}}})