change the button to ornament styled

GaiwanTeam · Jul 20, 2024 · cd1fe72 · cd1fe72
1 parent 76ba6b8
commit cd1fe72
Showing 1 changed file with 12 additions and 8 deletions.
diff --git a/src/co/gaiwan/compass/html/home.clj b/src/co/gaiwan/compass/html/home.clj
@@ -10,20 +10,24 @@
    [clojure.datafy :as df]
    [lambdaisland.ornament :as o]))
 
-(defn filters-hidden []
-  [:section#filters
-   [:button
-    {:hx-get "/show-filters"
+(o/defstyled ui-filter-button :button
+  ([hx-action-link caption]
+   [:<>
+    {:hx-get hx-action-link
      :hx-target "#filters"
      :hx-select "#filters"}
+    caption]))
+
+(defn filters-hidden []
+  [:section#filters
+   [ui-filter-button
+    "/show-filters"
     "Open Session Filters"]])
 
 (defn filters-showed []
   [:section#filters
-   [:button
-    {:hx-get "/hide-filters"
-     :hx-target "#filters"
-     :hx-select "#filters"}
+   [ui-filter-button
+    "/hide-filters"
     "Close Session Filters"]
    [:div
     [:label "Starred"]