cleans stuff up.

src/clj/auto_ap/ssr/hx.clj

@@ -67,6 +67,14 @@
              alpine-disappear)
          (dissoc params :data-key)))
 
+(defn alpine-mount-then-disappear [{:keys [data-key] :as params :or {data-key "show"}} ]
+  (merge (-> {:x-data (json {data-key true})
+              :x-init (format "$nextTick(() => %s=false)" (name data-key))
+              :x-show (name data-key)}
+             alpine-appear
+             alpine-disappear)
+         (dissoc params :data-key)))
+
 (defn bind-alpine-vals [m field->alpine-field]
   (assoc m "x-bind:hx-vals"