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

Move span to use :content

Browse source
This commit is contained in:
David Botton 2021-01-15 17:06:50 -05:00
parent 019fb2b68c
commit cc9cf14b17
4 changed files with 8 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

5
tutorial/09-tutorial.lisp
View file

@ -84,7 +84,8 @@
(setf (title (html-document body)) (value fe1))
(setf (background-color p1) (value fe2))
(setf (hiddenp f1) t)
(create-span p1 "<br><b>Your form has been submitted</b>")))
(create-span p1 :content
"<br><b>Your form has been submitted</b>")))
(setf (width p1) "100%")
(setf (width p2) "100%")
@ -126,7 +127,7 @@
(set-on-submit f2
(lambda (obj)
(setf (hiddenp f2) t)
(create-span p2
(create-span p2 :content
(format nil "<br><b>Your form has been submitted:</b>
<br>~A<hr>1 - ~A<br>2 - ~A<br>3 - ~A"
(value ta1)