mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2026-04-24 22:30:39 -07:00
Code Issues Projects Releases Wiki Activity

Associate data lists with input

Browse source
This commit is contained in:
David Botton 2022-01-23 10:23:52 -05:00
parent 0a4ef4905b
commit 4cf5483d33
1 changed files with 9 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

10
tools/clog-builder-settings.lisp
View file

@ -346,7 +346,7 @@
(add-select-options dd `(,v
"button" "checkbox" "color" "date"
"datetime" "datetime-local" "email"
"image" "file" "hidden" "image"
"image" "file" "hidden"
"month" "number" "password" "radio"
"range" "reset" "search" "submit"
"tel" "text" "time" "url" "week"))
@ -359,6 +359,14 @@
:width (client-width control)
:height (client-height control))))
nil)))
(:name "data list"
:get ,(lambda (control)
(clog::js-query control (format nil "$('#~A').attr('data-clog-name')"
(attribute control "list"))))
:set ,(lambda (control obj)
(setf (attribute control "list")
(clog::js-query control (format nil "$(\"[data-clog-name='~A']\").attr('id')"
(text obj))))))
,@*props-form-values*
,@*props-css*
,@*props-colors*