notid/integreat
1
0
Fork 0
Code Issues Pull Requests 2 Actions Packages Projects Releases Wiki Activity

fixes

Browse Source
This commit is contained in:
Bryce
2023-08-31 23:24:42 -07:00
parent 1d82ec29e0
commit 7d251c8398
40 changed files with 333 additions and 286 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
src/cljs/auto_ap/views/components/layouts.cljs
View File

@@ -94,12 +94,19 @@
(defn client-dropdown []
(let [client (re-frame/subscribe [::subs/client])
clients @(re-frame/subscribe [::subs/selected-clients])
selected-client-raw @(re-frame/subscribe [::subs/selected-clients-raw])
matching-clients @(re-frame/subscribe [::matching-clients])
user (re-frame/subscribe [::subs/user])]
[navbar-drop-down {:header (str "Company: " (cond @client
(:name @client)
(= :mine selected-client-raw)
"My Companies"
(= :all selected-client-raw)
"All Companies"
:else
(str (count (or clients [])) " Clients")))
:id ::select-client}
@@ -126,8 +133,8 @@
^{:key id }
[:a {:class "navbar-item"
:on-click (fn []
(re-frame/dispatch [::events/toggle-menu ::select-client])
(re-frame/dispatch [::events/swap-client client]))
(re-frame/dispatch-sync [::events/toggle-menu ::select-client])
(re-frame/dispatch-sync [::events/swap-client client]))
} name])]]))
(defn navbar []