cleans up grids
This commit is contained in:
@@ -9,12 +9,6 @@
|
||||
(fn [request]
|
||||
(handler (assoc request :parsed-query-params (:query-params request)))))
|
||||
|
||||
(defn wrap-parse-query-params [handler parser]
|
||||
(fn parsed-handler [request]
|
||||
(handler (assoc request :parsed-query-params (parser (->> (concat (:hx-query-params request) (:query-params request))
|
||||
(map (fn [[k v]] [(keyword k) v]))
|
||||
(into {})))))))
|
||||
|
||||
(defn parse-key [k parser]
|
||||
(fn [query-params]
|
||||
(if (contains? query-params k)
|
||||
@@ -24,9 +18,6 @@
|
||||
(defn parse-date [d]
|
||||
(atime/parse d atime/normal-date))
|
||||
|
||||
(defn parse-keyword [ns name]
|
||||
(some->> name (keyword ns)))
|
||||
|
||||
(defn parse-sort [grid-spec q]
|
||||
(if (not-empty q)
|
||||
(->>
|
||||
|
||||
Reference in New Issue
Block a user