further cleans up POS

2023-09-28 20:41:00 -07:00
parent c73c7619d8
commit d1798f6b5c
13 changed files with 684 additions and 381 deletions
--- a/src/clj/auto_ap/query_params.clj
+++ b/src/clj/auto_ap/query_params.clj
@@ -0,0 +1,119 @@
+(ns auto-ap.query-params
+  (:require [auto-ap.time :as atime]
+            [auto-ap.ssr.svg :as svg]
+            [clj-time.core :as time]
+            [clojure.string :as str]))
+
+
+(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)
+      (update query-params k #(some-> % not-empty parser))
+      query-params)))
+
+(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)
+    (->> 
+      (str/split q #",")
+      (map (fn [k]
+             (let [[key asc?]      (str/split k #":")
+                   matching-header (first (filter #(= (str key) (:sort-key %)) (:headers grid-spec)))]
+               {:sort-key        (str key)
+                :asc             (boolean (= "asc" asc?))
+                :matching-header matching-header
+                :name            (:name matching-header)
+                :sort-icon       (if (= (boolean (= "asc" asc?)) true)
+                             svg/sort-down
+                             svg/sort-up)})))
+      (filter :matching-header)
+      (into []))
+    []))
+
+(defn parse-long [l]
+  (try 
+    (Long/parseLong l)
+    (catch Exception e
+      nil)))
+
+(defn parse-double [l]
+  (try 
+    (Double/parseDouble l)
+    (catch Exception e
+      nil)))
+
+(defn apply-date-range [source-key start-date-key end-date-key]
+  (fn [query-params]
+    (dissoc 
+      (condp = (source-key query-params)
+        "week"
+        (assoc query-params
+               start-date-key (time/plus (time/now) (time/days -7))
+               end-date-key (time/now))
+
+        "month"
+        (assoc query-params
+               start-date-key (time/plus (time/now) (time/months -1))
+               end-date-key (time/now))
+
+        "year"
+        (assoc query-params
+               start-date-key (time/plus (time/now) (time/years -1))
+               end-date-key (time/now))
+
+        "all"
+        (assoc query-params
+               start-date-key (time/plus (time/now) (time/years -3))
+               end-date-key (time/now))
+
+        query-params)
+      :date-range)))
+
+(defn apply-toggle-sort [grid-spec]
+  (fn toggle-sort [query-params]
+    (if (:toggle-sort query-params)
+      (let [key-to-toggle     (:toggle-sort query-params)
+            current-sort      (:sort query-params)
+            presently-sorted? ((set (map :sort-key current-sort)) key-to-toggle)
+            new-sort          (if presently-sorted?
+                                (mapv
+                                  (fn [s]
+                                    (if (= (:sort-key s)
+                                           key-to-toggle)
+                                      (-> s 
+                                          (update :asc
+                                                  #(boolean (not %)))
+                                          (update :sort-icon (fn [x]
+                                                               (if (= x svg/sort-down)
+                                                                 svg/sort-up
+                                                                 svg/sort-down))))
+                                      s))
+                                  current-sort)
+                                (conj current-sort {:sort-key  key-to-toggle
+                                                    :asc       true
+                                                    :name      (:name (first (filter #(= (str key-to-toggle) (:sort-key %)) (:headers grid-spec))))
+                                                    :sort-icon svg/sort-down}))]
+        (-> query-params
+            (assoc :sort new-sort)
+            (dissoc :toggle-sort)))
+      query-params)))
+
+(defn apply-remove-sort []
+  (fn remove-sort [query-params]
+    (if-let [remove-sort-key  (:remove-sort query-params)]
+      (-> query-params
+          (update :sort (fn [current-sort]
+                          (filterv (comp (complement #{remove-sort-key}) :sort-key) current-sort)))
+          (dissoc :remove-sort))
+      query-params)))