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

style changes

Browse source
This commit is contained in:
David Botton 2021-02-01 12:05:57 -05:00
parent 79a31fba88
commit a46f5dbf6f
8 changed files with 39 additions and 83 deletions
Download patch file Download diff file Expand all files Collapse all files

4
tutorial/06-tutorial.lisp
View file

@ -9,7 +9,6 @@
(unless (connection-data-item obj "isRunning") ; So we toggle a connection-data-item
(setf (connection-data-item obj "isRunning") t) ; in order to turn on and off the flashing.
(setf (text obj) "(click me to stop!)")
;; When looping in an event or thread always check if the connection is still
;; valid to close down the event or thread.
(loop
@ -27,15 +26,12 @@
(defun on-new-window (body)
"On-new-window handler."
(setf (title (html-document body)) "Tutorial 6")
(set-on-click (create-section body :h1 :content "(click me to start!)")
#'my-on-click)
(run body))
(defun start-tutorial ()
"Start turtorial."
(initialize #'on-new-window)
(open-browser))