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

Tutorial 17

Browse source
This commit is contained in:
David Botton 2021-01-26 17:07:48 -05:00
parent 203c34d878
commit 12f1b22e46
7 changed files with 118 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

8
tutorial/11-tutorial.lisp
View file

@ -50,7 +50,13 @@
;; Bootstrap specific markup
(setf (css-class-name alert-div) "alert alert-success")
(setf (attribute alert-div "role") "alert")
;; We collect the data from the hidden form elements
;; using radio-value and name-value (for other types if
;; input other than radio buttons) or we could bind each
;; control (using ATTACH-AS-CHILD)and seek their value
;; directly. See tutorial 17 and to deal with forms in
;; the old html page model of "put" and "get"
(setf (inner-html alert-div)
(format nil "<pre>radios value : ~A</pre><br>
<pre>textinput value : ~A</pre><br>"