diff --git a/tutorial/04-tutorial.lisp b/tutorial/04-tutorial.lisp index fe3c8fa..e87fcf6 100644 --- a/tutorial/04-tutorial.lisp +++ b/tutorial/04-tutorial.lisp @@ -17,6 +17,6 @@ 'my-on-click)) (defun start-tutorial () - "Start turtorial." + "Start tutorial." (initialize 'on-new-window) (open-browser)) diff --git a/tutorial/05-tutorial.lisp b/tutorial/05-tutorial.lisp index 0d325f0..d4377e3 100644 --- a/tutorial/05-tutorial.lisp +++ b/tutorial/05-tutorial.lisp @@ -20,6 +20,6 @@ (create-section body :h1 :content "I change"))) (defun start-tutorial () - "Start turtorial." + "Start tutorial." (initialize 'on-new-window) (open-browser)) diff --git a/tutorial/06-tutorial.lisp b/tutorial/06-tutorial.lisp index 720f571..4296b96 100644 --- a/tutorial/06-tutorial.lisp +++ b/tutorial/06-tutorial.lisp @@ -31,6 +31,6 @@ 'my-on-click)) (defun start-tutorial () - "Start turtorial." + "Start tutorial." (initialize 'on-new-window) (open-browser)) diff --git a/tutorial/07-tutorial.lisp b/tutorial/07-tutorial.lisp index f70ab0a..619dca3 100644 --- a/tutorial/07-tutorial.lisp +++ b/tutorial/07-tutorial.lisp @@ -79,6 +79,6 @@ (format t "Lost connection.~%~%~A" c)))) (defun start-tutorial () - "Start turtorial." + "Start tutorial." (initialize 'on-new-window) (open-browser)) diff --git a/tutorial/08-tutorial.lisp b/tutorial/08-tutorial.lisp index 38bbb70..fe06ad9 100644 --- a/tutorial/08-tutorial.lisp +++ b/tutorial/08-tutorial.lisp @@ -84,6 +84,6 @@ (set-on-pointer-down div3 'on-mouse-down :cancel-event t :capture-pointer t))) (defun start-tutorial () - "Start turtorial." + "Start tutorial." (initialize 'on-new-window) (open-browser)) diff --git a/tutorial/09-tutorial.lisp b/tutorial/09-tutorial.lisp index 619d885..25e7145 100644 --- a/tutorial/09-tutorial.lisp +++ b/tutorial/09-tutorial.lisp @@ -172,6 +172,6 @@ (setf (editablep panel3) t))) ; turn panel 3 into an editable area (defun start-tutorial () - "Start turtorial." + "Start tutorial." (initialize 'on-new-window) (open-browser)) diff --git a/tutorial/10-tutorial.lisp b/tutorial/10-tutorial.lisp index 36217d6..4b78740 100644 --- a/tutorial/10-tutorial.lisp +++ b/tutorial/10-tutorial.lisp @@ -33,6 +33,6 @@ (put-image-data cx dat 30 200))) (defun start-tutorial () - "Start turtorial." + "Start tutorial." (initialize 'on-new-window) (open-browser)) diff --git a/tutorial/12-tutorial.lisp b/tutorial/12-tutorial.lisp index f7d64e2..3b38b0d 100644 --- a/tutorial/12-tutorial.lisp +++ b/tutorial/12-tutorial.lisp @@ -98,7 +98,7 @@ content)) (defun start-tutorial () - "Start turtorial." + "Start tutorial." ;; Setup the default route / to on-main ;; :boot-function allows us to add or modify our boot-files content ;; for search engine optimization. We choose long-polling-first so diff --git a/tutorial/14-tutorial.lisp b/tutorial/14-tutorial.lisp index 72f00a5..fc319b4 100644 --- a/tutorial/14-tutorial.lisp +++ b/tutorial/14-tutorial.lisp @@ -52,6 +52,6 @@ Changes made to a local key will fire an event and print below:
" (storage-element (window body) :session "my-session-key")))) (defun start-tutorial () - "Start turtorial." + "Start tutorial." (initialize 'on-new-window) (open-browser)) diff --git a/tutorial/15-tutorial.lisp b/tutorial/15-tutorial.lisp index bcb2f4e..738c80b 100644 --- a/tutorial/15-tutorial.lisp +++ b/tutorial/15-tutorial.lisp @@ -28,6 +28,6 @@ (set-on-time-update aud (lambda (obj)(declare (ignore obj))(setf (value alc) (media-position aud)))))) (defun start-tutorial () - "Start turtorial." + "Start tutorial." (initialize 'on-new-window) (open-browser)) diff --git a/tutorial/16-tutorial.lisp b/tutorial/16-tutorial.lisp index 958a03e..b34dfb7 100644 --- a/tutorial/16-tutorial.lisp +++ b/tutorial/16-tutorial.lisp @@ -72,7 +72,7 @@ (declare (ignore l1) (ignore l2) (ignore l3) (ignore l4) (ignore jname)))) (defun start-tutorial () - "Start turtorial." + "Start tutorial." (initialize 'on-index) (set-on-new-window 'on-page2 :path "/page2") (open-browser)) diff --git a/tutorial/22-tutorial.lisp b/tutorial/22-tutorial.lisp index 79fb860..9347e3b 100644 --- a/tutorial/22-tutorial.lisp +++ b/tutorial/22-tutorial.lisp @@ -266,6 +266,6 @@ ""))) (defun start-tutorial () - "Start turtorial." + "Start tutorial." (initialize 'on-new-window) (open-browser)) diff --git a/tutorial/23-tutorial.lisp b/tutorial/23-tutorial.lisp index b3573b7..702593a 100644 --- a/tutorial/23-tutorial.lisp +++ b/tutorial/23-tutorial.lisp @@ -50,6 +50,6 @@ :one-time t)) (defun start-tutorial () - "Start turtorial." + "Start tutorial." (initialize 'on-new-window) (open-browser)) diff --git a/tutorial/24-tutorial.lisp b/tutorial/24-tutorial.lisp index 75a1763..a6ef45f 100644 --- a/tutorial/24-tutorial.lisp +++ b/tutorial/24-tutorial.lisp @@ -102,6 +102,6 @@ (open-browser))"))) (defun start-tutorial () - "Start turtorial." + "Start tutorial." (initialize 'on-new-window) (open-browser)) diff --git a/tutorial/25-tutorial.lisp b/tutorial/25-tutorial.lisp index 9bb1a62..953da85 100644 --- a/tutorial/25-tutorial.lisp +++ b/tutorial/25-tutorial.lisp @@ -64,6 +64,6 @@ (set-height)))))) (defun start-tutorial () - "Start turtorial." + "Start tutorial." (initialize 'on-new-window) (open-browser)) diff --git a/tutorial/26-tutorial.lisp b/tutorial/26-tutorial.lisp index 8c30266..9f0de7c 100644 --- a/tutorial/26-tutorial.lisp +++ b/tutorial/26-tutorial.lisp @@ -96,7 +96,7 @@ (setf (box-width image) "100%"))) (defun start-tutorial () - "Start turtorial." + "Start tutorial." ;; We would probably set :host to my IP and :port 80 here if running a live site (initialize 'on-new-window) ;; In real life, if we openning a browser here it would likely be diff --git a/tutorial/27-tutorial.lisp b/tutorial/27-tutorial.lisp index a189c5c..4a5a2a3 100644 --- a/tutorial/27-tutorial.lisp +++ b/tutorial/27-tutorial.lisp @@ -52,5 +52,6 @@ (center-children (bottom-panel console) :horizontal nil))) (defun start-tutorial () + "Start tutorial." (initialize 'on-new-window) (open-browser)) diff --git a/tutorial/29-tutorial.lisp b/tutorial/29-tutorial.lisp index 3058502..2987818 100644 --- a/tutorial/29-tutorial.lisp +++ b/tutorial/29-tutorial.lisp @@ -62,5 +62,6 @@ (return)))))) (defun start-tutorial () + "Start tutorial." (initialize 'on-new-window) (open-browser)) diff --git a/tutorial/30-tutorial.lisp b/tutorial/30-tutorial.lisp index 91c7cae..14581f3 100644 --- a/tutorial/30-tutorial.lisp +++ b/tutorial/30-tutorial.lisp @@ -61,6 +61,7 @@ ;; Start the webserver (defun start-tutorial () + "Start tutorial." ;; Initialize CLOG and the / url path (since / in our menu could just be nil) (initialize 'on-main ;; Use long polling technique so pages are crawled by google diff --git a/tutorial/31-tutorial.lisp b/tutorial/31-tutorial.lisp index 65f9301..ab7c485 100644 --- a/tutorial/31-tutorial.lisp +++ b/tutorial/31-tutorial.lisp @@ -33,6 +33,7 @@ "Setup website menu") (defun start-tutorial () + "Start tutorial." ;; Setup authorizations between roles and actions (add-authorization '(:guest) '(:login :signup :main)) (add-authorization '(:member) '(:logout :main)) diff --git a/tutorial/32-tutorial.lisp b/tutorial/32-tutorial.lisp index cd8b948..a536ec5 100644 --- a/tutorial/32-tutorial.lisp +++ b/tutorial/32-tutorial.lisp @@ -42,6 +42,7 @@ "Setup website menu") (defun start-tutorial () + "Start tutorial." ;; Here we add authorizations for content and editting content, not just ;; access to pages. (add-authorization '(:guest :member) '(:content-show-comments)) diff --git a/tutorial/33-tutorial.lisp b/tutorial/33-tutorial.lisp index 6ac0212..bdda9ed 100644 --- a/tutorial/33-tutorial.lisp +++ b/tutorial/33-tutorial.lisp @@ -12,7 +12,6 @@ (:export start-tutorial)) (in-package :clog-tut-33) - (defun on-new-window (body) (setf (title (html-document body)) "Tutorial 33") (with-connection-cache (body) @@ -172,6 +171,6 @@ (select-tab p3)))))))) (defun start-tutorial () - "Start turtorial." + "Start tutorial." (initialize 'on-new-window) (open-browser)) diff --git a/tutorial/34-tutorial.lisp b/tutorial/34-tutorial.lisp index f2c24bd..3d8a824 100644 --- a/tutorial/34-tutorial.lisp +++ b/tutorial/34-tutorial.lisp @@ -73,6 +73,6 @@ void main() { (draw-arrays gl :TRIANGLES 0 3))) (defun start-tutorial () - "Start turtorial." + "Start tutorial." (initialize 'on-new-window) (open-browser)) diff --git a/tutorial/35-tutorial.lisp b/tutorial/35-tutorial.lisp index c1af49f..e837c4b 100644 --- a/tutorial/35-tutorial.lisp +++ b/tutorial/35-tutorial.lisp @@ -182,6 +182,6 @@ (draw-scene)))) (defun start-tutorial () - "Start turtorial." + "Start tutorial." (initialize 'on-new-window) (open-browser))