Sidebars link correctly

This commit is contained in:
Bryce
2024-03-20 19:47:41 -07:00
parent 0cdf908acd
commit e914f8b994
5 changed files with 87 additions and 45 deletions

View File

@@ -372,7 +372,6 @@
(pay-button* {:ids (selected->ids request
(:query-params request))})))
;; TODO fix parsing of query params
(def grid-page
(helper/build {:id "entity-table"
:nav com/main-aside-nav
@@ -407,7 +406,7 @@
"Invoices"]]
:title (fn [r]
(str
(some-> r :query-params :status name str/capitalize (str " "))
(some-> r :route-params :status name str/capitalize (str " "))
"Invoices"))
:entity-name "invoices"
:route ::route/table
@@ -520,7 +519,6 @@
{:class "live-removed"})
:headers {"hx-retarget" (format "#entity-table tr[data-id=\"%d\"]" (:db/id invoice))}))
;; TODO use decoding here
(defn bulk-delete-dialog [request]
(let [all-selected (:all-selected (:query-params request))
selected (:selected (:query-params request))
@@ -1115,7 +1113,6 @@
(-> h
(wrap-status-from-source)
(wrap-apply-sort grid-page)
(wrap-merge-prior-hx)
(wrap-schema-enforce :query-schema query-schema)
(wrap-schema-enforce :hx-schema query-schema)
(wrap-merge-prior-hx)
(wrap-client-redirect-unauthenticated)))))