Addes expense report card

src/clj/auto_ap/ssr/hx.clj

@@ -1,6 +1,7 @@
 (ns auto-ap.ssr.hx
   (:require [cheshire.core :as cheshire]
-            [clojure.string :as str]))
+            [clojure.string :as str]
+            [auto-ap.ssr.hiccup-helper :as hh]))
 
 
 (defn vals [m]
@@ -53,3 +54,9 @@
 (defn trigger-click-or-enter [m]
   (assoc m :hx-trigger "click, keyup[keyCode==13]"))
 
+(defn htmx-transition-appear [params]
+  (-> params 
+      (update :class (fn [c]
+                       (-> (or c "")
+                           (hh/add-class "opacity-100 transition htmx-added:opacity-0 duration-300")))))
+  )