mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 10:40:45 -08:00
Code Issues Projects Releases Wiki Activity

updates to use specifc element types

Browse source
This commit is contained in:
David Botton 2021-01-29 01:16:05 -05:00
parent 264cef0db2
commit 04b2fd316f
7 changed files with 27 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

6
tutorial/03-tutorial.lisp
View file

@ -10,7 +10,7 @@
(setf (title (html-document body)) "Tutorial 3")
(let ((hello-element
(create-child body "<h1>Hello World! (click me!)</h1>")))
(create-section body :h1 :content "Hello World! (click me!)")))
(let ((x 0))
(set-on-click hello-element
@ -18,8 +18,8 @@
(declare (ignore obj))
(incf x)
(dotimes (n x)
(create-child body
(format nil "<p>Clicked ~A times.</p>" x))
(create-p body
:content (format nil "Clicked ~A times." x))
(sleep x)))))
(run body)))