notid/integreat
1
0
Fork 0
Code Issues Pull Requests 3 Actions Packages Projects Releases Wiki Activity

keyboard navigation

Browse Source
This commit is contained in:
Bryce
2024-03-27 15:57:03 -07:00
parent 13a083e053
commit 0d75df522d
5 changed files with 82 additions and 39 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
src/clj/auto_ap/ssr/hx.clj
View File

@@ -20,13 +20,13 @@
(str/join ", " triggers))
(defn alpine-appear [m]
(assoc m
(assoc m
"x-transition:enter" "transition-opacity duration-500"
"x-transition:enter-start" "opacity-0"
"x-transition:enter-end" "opacity-100"))
(defn alpine-disappear [m]
(assoc m
(assoc m
"x-transition:leave" "transition duration-500"
"x-transition:leave-start" "opacity-100"
"x-transition:leave-end" "opacity-0"))
@@ -41,12 +41,15 @@
(defn bind-alpine-vals [m field->alpine-field]
(assoc m "x-bind:hx-vals"
(format "JSON.stringify({%s})"
(str/join ", "
(map
(fn [[field alpine-field]]
(format "\"%s\": $data.%s || ''" field alpine-field))
(fn [[field alpine-field]]
(format "\"%s\": $data.%s || ''" field alpine-field))
field->alpine-field)))))
field->alpine-field)))))
(defn trigger-click-or-enter [m]
(assoc m :hx-trigger "click, keyup[keyCode==13]"))