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

Give form-dialog textarea capability

Browse source 
Adds generic function textarea-value in clog-form.lisp

Exports textarea-value in clog.lisp

Adds the option into form-dialog in clog-gui.lisp, with additional key
parameters for size and rows and adds it to the list of special field
types in the doc string.
This commit is contained in:
Sabra Crolleton 2023-10-02 10:32:25 -04:00
parent 6302deb6e6
commit 4a92ce256a
3 changed files with 56 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

12
source/clog-form.lisp
View file

@ -465,6 +465,18 @@ be unique name on entire document."))
(clog-connection:query (connection-id obj) (clog-connection:query (connection-id obj)
(format nil "$('select[name=~A] option:selected').val()" name))) (format nil "$('select[name=~A] option:selected').val()" name)))
;;;;;;;;;;;;;;;;
;; textarea-value ;;
;;;;;;;;;;;;;;;;
(defgeneric textarea-value (clog-obj name)
(:documentation "Returns the value of textarea item called NAME and must
be unique name on entire document."))
(defmethod textarea-value ((obj clog-obj) name)
(clog-connection:query (clog::connection-id obj)
(format nil "$('textarea#~A').val()" name)))
;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;
;; name-value ;; ;; name-value ;;
;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;

65
source/clog-gui.lisp
View file

@ -1614,6 +1614,7 @@ Calls on-input with t if confirmed or nil if canceled."
(cancel-text "Cancel") (cancel-text "Cancel")
(left nil) (top nil) (left nil) (top nil)
(width 400) (height 500) (width 400) (height 500)
(size 40) (rows 4)
(client-movement nil) (client-movement nil)
(html-id nil)) (html-id nil))
"Create a form dialog box with CONTENT followed by FIELDS. "Create a form dialog box with CONTENT followed by FIELDS.
@ -1632,10 +1633,13 @@ Special field types
:checkbox t if checked :checkbox t if checked
:radiobox a-list ((label name)) a third value can be added \"checked\" :radiobox a-list ((label name)) a third value can be added \"checked\"
:select a-list ((label name)) a third value can be added \"selected\" :select a-list ((label name)) a third value can be added \"selected\"
:textarea value
:text value :text value
(any text input types also work :email, :tel, etc. (any text input types also work :email, :tel, etc.
see FORM-ELEMENT-TYPE) see FORM-ELEMENT-TYPE)
The size of any texarea field is controled by the size and rows parameters
Calls on-input after OK or Cancel with an a-list of field name to value Calls on-input after OK or Cancel with an a-list of field name to value
if confirmed or nil if canceled." if confirmed or nil if canceled."
(unless html-id (unless html-id
@ -1666,17 +1670,17 @@ if confirmed or nil if canceled."
(format nil "~{~A~}" (format nil "~{~A~}"
(mapcar (lambda (s) (mapcar (lambda (s)
(format nil (format nil
"<div><input type=radio class='w3-radio' name='~A-~A'~ "<div><input type=radio class='w3-radio' name='~A-~A'~
id='~A-~A-~A' value='~A' ~A> ~ id='~A-~A-~A' value='~A' ~A> ~
<label for='~A-~A-~A'>~A</label></div>" <label for='~A-~A-~A'>~A</label></div>"
html-id (second l) html-id (second l)
html-id (second l) (second s) html-id (second l) (second s)
(second s) (second s)
(if (third s) (if (third s)
(third s) (third s)
"") "")
html-id (second l) (second s) html-id (second l) (second s)
(first s))) (first s)))
(fourth l))))) (fourth l)))))
((eq (third l) :checkbox) ((eq (third l) :checkbox)
(format nil (format nil
@ -1691,26 +1695,41 @@ if confirmed or nil if canceled."
"") "")
html-id (second l) html-id (second l)
(first l))) (first l)))
((eq (third l) :textarea)
(format nil
"<div><label class='w3-text-black'><b>~A</b></label>
<textarea
name='~A-~A' id='~A-~A' cols='~A' rows='~A'>~A</textarea></div>"
(first l)
html-id
(second l)
html-id
(second l)
size
rows
(if (fourth l)
(fourth l)
"")))
((third l) ((third l)
(format nil (format nil
"<div><label class='w3-text-black'><b>~A</b></label>~ "<div><label class='w3-text-black'><b>~A</b></label>~
<input class='w3-input w3-border' type='~A'~ <input class='w3-input w3-border' type='~A'~
name='~A-~A' id='~A-~A' value='~A'></div>" name='~A-~A' id='~A-~A' value='~A'></div>"
(first l) (third l) (first l) (third l)
html-id (second l) html-id (second l) html-id (second l) html-id (second l)
(if (fourth l) (if (fourth l)
(fourth l) (fourth l)
""))) "")))
(t (t
(format nil (format nil
"<div><label class='w3-text-black'><b>~A</b></label>~ "<div><label class='w3-text-black'><b>~A</b></label>~
<input class='w3-input w3-border' type='text' name='~A-~A' id='~A-~A'></div>" <input class='w3-input w3-border' type='text' name='~A-~A' id='~A-~A'></div>"
(first l) html-id (second l) html-id (second l))))) (first l) html-id (second l) html-id (second l)))))
fields))) fields)))
(win (create-gui-window obj (win (create-gui-window obj
:title title :title title
:content (format nil :content (format nil
"<div class='w3-panel'> "<div class='w3-panel'>
~A ~A
<form class='w3-container' onSubmit='return false;'> <form class='w3-container' onSubmit='return false;'>
~A ~A
@ -1722,9 +1741,9 @@ if confirmed or nil if canceled."
</div>" (if content </div>" (if content
(format nil "<center>~A</center><br>" content) (format nil "<center>~A</center><br>" content)
"") "")
fls fls
html-id ok-text ; ok html-id ok-text ; ok
html-id cancel-text) ; cancel html-id cancel-text) ; cancel
:top top :top top
:left left :left left
:width width :width width
@ -1746,8 +1765,8 @@ if confirmed or nil if canceled."
(mapcar (lambda (l) (mapcar (lambda (l)
(when (eq (third l) :filename) (when (eq (third l) :filename)
(let ((fld (attach-as-child body (format nil "~A-~A" (let ((fld (attach-as-child body (format nil "~A-~A"
html-id html-id
(second l)) (second l))
:clog-type 'clog:clog-form-element))) :clog-type 'clog:clog-form-element)))
(set-on-click fld (lambda (obj) (set-on-click fld (lambda (obj)
(declare (ignore obj)) (declare (ignore obj))
@ -1777,6 +1796,8 @@ if confirmed or nil if canceled."
(radio-value win name)) (radio-value win name))
((eq (third l) :checkbox) ((eq (third l) :checkbox)
(checkbox-value win name)) (checkbox-value win name))
((eq (third l) :textarea)
(textarea-value win name))
(t (t
(name-value win name)))))) (name-value win name))))))
fields))) fields)))

1
source/clog.lisp
View file

@ -690,6 +690,7 @@ embedded in a native template application.)"
(radio-value generic-function) (radio-value generic-function)
(checkbox-value generic-function) (checkbox-value generic-function)
(select-value generic-function) (select-value generic-function)
(textarea-value generic-function)
(name-value generic-function) (name-value generic-function)
(pattern generic-function) (pattern generic-function)
(minimum generic-function) (minimum generic-function)