improvements

src/clj/auto_ap/ssr/components/dialog.clj

@@ -1,17 +1,26 @@
 (ns auto-ap.ssr.components.dialog
   (:require [hiccup2.core :as hiccup]
-            [auto-ap.ssr.hx :as hx]))
+            [auto-ap.ssr.hx :as hx]
+            [auto-ap.ssr.hiccup-helper :as hh]))
 
 (defn modal- [params & children]
-  [:div#modal-content {:class ""}
-   children])
+  [:div {:class (-> (:class params)
+                    (or "max-w-4xl w-1/4 overflow-visible")
+                    (hh/add-class "h-min"))
+         "@click.outside"           "open=false"
+         } children])
 
 (defn modal-card- [params header content footer]
-  [:div#modal-card params
-   [:div {:class "bg-white rounded-lg shadow dark:bg-gray-700 dark:text-white  modal-content w-full"}
-    [:div {:class "flex items-start justify-between p-4 border-b rounded-t dark:border-gray-600"} header]
-    [:div {:class "p-6 space-y-6 overflow-scroll "}
+  [:div#modal-card (update params
+                           :class (fn [c] (-> c
+                                              (or "w-full")
+                                              )))
+   [:div {:class "bg-white rounded-lg shadow dark:bg-gray-700 dark:text-white  modal-content w-full flex flex-col max-h-[80vh]"}
+    [:div {:class "flex items-start justify-between p-4 border-b rounded-t dark:border-gray-600 shrink-0"} header]
+    [:div {:class "px-6 space-y-6 overflow-y-scroll w-full shrink"}
+     #_[:div.bg-green-300.w-full.h-64
+        "hello"]
      content]
-    (when footer [:div {:class "p-4 "} footer])]])
+    (when footer [:div {:class "p-4 shrink-0"} footer])]])
 
 ;; fade-in-settle slide-up-settle duration-300 transition-all