From 074ef2c2e5567beb382775607ffa5f51037301bc Mon Sep 17 00:00:00 2001 From: Robert Burnett Date: Wed, 4 Dec 2024 18:33:17 -0600 Subject: [PATCH] fixed 'turtorial' type --- tutorial/04-tutorial.lisp | 2 +- tutorial/05-tutorial.lisp | 2 +- tutorial/06-tutorial.lisp | 2 +- tutorial/07-tutorial.lisp | 2 +- tutorial/08-tutorial.lisp | 2 +- tutorial/09-tutorial.lisp | 2 +- tutorial/10-tutorial.lisp | 2 +- tutorial/12-tutorial.lisp | 2 +- tutorial/14-tutorial.lisp | 2 +- tutorial/15-tutorial.lisp | 2 +- tutorial/16-tutorial.lisp | 2 +- tutorial/22-tutorial.lisp | 2 +- tutorial/23-tutorial.lisp | 2 +- tutorial/24-tutorial.lisp | 2 +- tutorial/25-tutorial.lisp | 2 +- tutorial/26-tutorial.lisp | 2 +- tutorial/27-tutorial.lisp | 1 + tutorial/29-tutorial.lisp | 1 + tutorial/30-tutorial.lisp | 1 + tutorial/31-tutorial.lisp | 1 + tutorial/32-tutorial.lisp | 1 + tutorial/33-tutorial.lisp | 3 +-- tutorial/34-tutorial.lisp | 2 +- tutorial/35-tutorial.lisp | 2 +- 24 files changed, 24 insertions(+), 20 deletions(-) diff --git a/tutorial/04-tutorial.lisp b/tutorial/04-tutorial.lisp index fe3c8faf..e87fcf64 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 0d325f00..d4377e32 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 720f571a..4296b961 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 f70ab0ae..619dca3f 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 38bbb706..fe06ad91 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 619d8859..25e7145b 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 36217d6e..4b78740d 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 f7d64e2a..3b38b0d2 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 72f00a51..fc319b4f 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 bcb2f4eb..738c80b2 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 958a03ed..b34dfb78 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 79fb860d..9347e3b7 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 b3573b71..702593aa 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 75a17631..a6ef45fb 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 9bb1a624..953da850 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 8c30266e..9f0de7ce 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 a189c5c1..4a5a2a3b 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 3058502c..2987818c 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 91c7cae6..14581f3b 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 65f93013..ab7c4857 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 cd8b9489..a536ec56 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 6ac0212d..bdda9ed4 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 f2c24bdd..3d8a824e 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 c1af49f7..e837c4b1 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))