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

Attaching HTML files to CLOG

Browse source
This commit is contained in:
David Botton 2021-01-17 20:44:52 -05:00
parent 30bbaa2807
commit 01d199abf1
7 changed files with 220 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

26
clog-form.lisp
View file

@ -326,6 +326,32 @@ have this set true. Autofocus on element when form loaded. "))
(setf (property obj "value") value))
(defsetf value set-value)
;;;;;;;;;;;;;;;;;
;; radio-value ;;
;;;;;;;;;;;;;;;;;
(defgeneric radio-value (clog-obj name)
(:documentation "Returns the value of the selected radio button in a
group called NAME."))
(defmethod radio-value ((obj clog-obj) name)
(cc:query (connection-id obj)
(format nil "$('input:radio[name=~A]:checked').val()"
name)))
;;;;;;;;;;;;;;;;
;; name-value ;;
;;;;;;;;;;;;;;;;
(defgeneric name-value (clog-obj name)
(:documentation "Returns the value of input item called NAME."))
(defmethod name-value ((obj clog-obj) name)
(cc:query (connection-id obj)
(format nil "$('input[name=~A]').val()" name)))
;;;;;;;;;;;;;
;; pattern ;;
;;;;;;;;;;;;;