mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-07 03:00:49 -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

10
tutorial/02-tutorial.lisp
View file

@ -6,7 +6,6 @@
(defun on-new-window (body)
"On-new-window handler."
;; Give your app a name that apears in the browser tab/window
(setf (title (html-document body)) "Tutorial 2")
;; The CLOG-body object gives you access to a number of other CLOG-Objects
@ -16,18 +15,16 @@
;; (location body) is the CLOG-Location object
;; (navigator body) is the CLOG-Navigator object
(let ((hello-element
;; CREATE-SECTION is a lispier way of create any of the HTML 5
(let ((hello-element
;; CREATE-SECTION is a lispier way of creating any of the HTML 5
;; section elements:
;;
;; :address :article :aside :header :main :nav :hgroup
;; :p :pre :section :blockquote :h1 :h2 :h3 :h4 :h5 :h6
;;
;; Take a look at clog-element-common.lisp or the clog-manual
(create-section body :h1 :content "Hello World! (click me!)")))
(let ((x 0)) ; A closure - each call to on-new-window will
(set-on-click hello-element ; create a different version of this closer.
(lambda (obj)
@ -41,6 +38,5 @@
(defun start-tutorial ()
"Start turtorial."
(initialize #'on-new-window)
(open-browser))