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

change to use flet

Browse source
This commit is contained in:
David Botton 2021-01-19 22:19:40 -05:00
parent e490084e93
commit fb71ff846c
2 changed files with 30 additions and 30 deletions
Download patch file Download diff file Expand all files Collapse all files

30
tutorial/12-tutorial.lisp
View file

@ -67,30 +67,30 @@
(good-button (attach-as-child body "button1id"))
(scary-button (attach-as-child body "button2id")))
(defun on-click-good (obj)
(let ((alert-div (create-div body)))
(flet ((on-click-good (obj)
(let ((alert-div (create-div body)))
(place-before form alert-div)
(setf (hiddenp form) t)
(place-before form alert-div)
(setf (hiddenp form) t)
; Bootstrap specific markup
(setf (css-class-name alert-div) "alert alert-success")
(setf (attribute alert-div "role") "alert")
(setf (inner-html alert-div)
(format nil "<pre>radios value : ~A</pre><br>
;; Bootstrap specific markup
(setf (css-class-name alert-div) "alert alert-success")
(setf (attribute alert-div "role") "alert")
(setf (inner-html alert-div)
(format nil "<pre>radios value : ~A</pre><br>
<pre>textinput value : ~A</pre><br>"
(radio-value form "radios")
(name-value form "textinput")))))
(radio-value form "radios")
(name-value form "textinput")))))
(defun on-click-scary (obj)
(reset form))
(on-click-scary (obj)
(reset form)))
;; We need to overide the boostrap default to submit the form html style
(set-on-submit form (lambda (obj)()))
(set-on-click good-button #'on-click-good)
(set-on-click scary-button #'on-click-scary)
(set-on-click scary-button #'on-click-scary))
(run body)))