Makes reports page work with new tailwind

2023-05-12 15:17:54 -07:00
parent e78c73e093
commit 8dca622947
13 changed files with 540 additions and 296 deletions
--- a/src/clj/auto_ap/ssr/components/paginator.clj
+++ b/src/clj/auto_ap/ssr/components/paginator.clj
@@ -0,0 +1,61 @@
+(ns auto-ap.ssr.components.paginator)
+
+(defn bound [x y z]
+  (cond
+    (< z x)
+    x
+    (< y x)
+    x
+    (> y z)
+    z
+    :else 
+    y))
+
+(def elipsis-button
+  [:p {:href "#", :class "flex items-center justify-center px-3 py-2 text-sm leading-tight text-gray-500 bg-white border border-gray-300 dark:bg-gray-800 dark:border-gray-700 dark:text-gray-400"} "..."])
+
+(defn paginator-internal- [{:keys [start per-page end total a-params]}]
+  (let [per-page          (or per-page 20)
+        max-buttons       5
+        buttons-before    (Math/floor (/ max-buttons 2))
+        total-pages       (long (Math/max (long 1) (long (Math/ceil (/ total per-page)))))
+        current-page      (long (Math/floor (/ start per-page)))
+        first-page-button (bound 0 (- current-page buttons-before) (- total-pages max-buttons))
+        all-buttons       (into [] (for [x (range total-pages)]
+                                     [:li  
+                                      [:a (-> (a-params x)
+                                              (update 
+                                                :class #(cond-> %
+                                                          true (str  " flex items-center justify-center px-3 py-2 text-sm leading-tight  border ")
+
+                                                          (= current-page x)
+                                                          (str " text-primary-600 bg-primary-50 border-primary-300 hover:bg-primary-100 hover:text-primary-700 dark:border-gray-700 dark:bg-gray-700 dark:text-white")
+
+                                                          (not= current-page x)
+                                                          (str " text-gray-500 bg-white border-gray-300 hover:bg-gray-100 hover:text-gray-700 dark:bg-gray-800 dark:border-gray-700 dark:text-gray-400 dark:hover:bg-gray-700 dark:hover:text-white")))
+                                              (assoc :href "#"))
+                                       (inc x)]]))
+
+
+        last-page-button (Math/min (long total-pages) (long (+ max-buttons first-page-button)))
+
+        extended-last-page-button (when (not= last-page-button total-pages)
+                                    (list
+                                      elipsis-button
+                                      (last all-buttons)))
+
+        extended-first-page-button (when (not= first-page-button 0)
+                                     (list
+                                        (first all-buttons)
+                                        elipsis-button))]
+    [:nav 
+     [:ul {:class "inline-flex items-stretch -space-x-px"}
+      extended-first-page-button
+      (apply list (subvec all-buttons first-page-button last-page-button))
+      extended-last-page-button]]))
+
+(defn paginator- [{:keys [start per-page end total a-params] :as params}]
+  [:nav {:class "flex flex-col items-start justify-between p-4 space-y-3 md:flex-row md:items-center md:space-y-0", :aria-label "Table navigation"}
+   [:span {:class "text-sm font-normal text-gray-500 dark:text-gray-400"}
+    [:span {:class "font-semibold text-gray-900 dark:text-white"} (str (inc start)) "-" (str end) " of " (str total)]]
+   (paginator-internal- params)])