mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 02:30:42 -08:00
Code Issues Projects Releases Wiki Activity

:checkbox, :email and other text based inputs support for form-dialog

Browse source
This commit is contained in:
David Botton 2021-02-24 16:39:02 -05:00
parent d16f17d0d7
commit 61853feccb
4 changed files with 39 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

13
source/clog-form.lisp
View file

@ -382,6 +382,19 @@ group called NAME."))
(cc:query (connection-id obj)
(format nil "$('input:radio[name=~A]:checked').val()"
name)))
;;;;;;;;;;;;;;;;;;;;
;; checkbox-value ;;
;;;;;;;;;;;;;;;;;;;;
(defgeneric checkbox-value (clog-obj name)
(:documentation "Returns t or nil on the selected checkbox button."))
(defmethod checkbox-value ((obj clog-obj) name)
(js-on-p (cc:query (connection-id obj)
(format nil "$('input:checkbox[name=~A]:checked').val()"
name))))
;;;;;;;;;;;;;;;;;;
;; select-value ;;
;;;;;;;;;;;;;;;;;;