More helpers for clog in quicklisp

tutorial/01-tutorial.lisp

@@ -23,7 +23,7 @@
     (set-on-click hello-element      ; Now we set a function to handle clicks
 		  (lambda (obj)      ; In this case we use an anonymous function
 		    (declare (ignore obj))
-		    (setf (color hello-element) "green")))
+		    (setf (color hello-element) :green)))
     
     (run body))) ; Keep our thread alive until connection closes
 		 ; and prevent garbage collection of our CLOG-Objects

tutorial/13-tutorial.lisp

@@ -0,0 +1,16 @@
+(defpackage #:clog-user
+  (:use #:cl #:clog)
+  (:export start-tutorial))
+
+(in-package :clog-user)
+
+(defun start-tutorial ()
+  "Start turtorial."
+
+  (format t "Tutorial 13 is a how to on building your own clog appliction.~%~
+             Copy the directory - ~A~%~
+             to your ~~/common-lisp directory or other asdf / quicklisp~%~
+             directory. Then follow the directions in the tuturial 13 ~%~
+            directory."
+	  (merge-pathnames "./tutorial/tutorial13"
+			   (asdf:system-source-directory :clog))))

tutorial/README.md

@@ -1,4 +1,4 @@
-To run a tutorial, start emacs/slime or your CL Lisp in the common-lisp/clog directory:
+To run a tutorial load clog:
 
 ```
 CL-USER> (ql:quickload :clog)
@@ -10,14 +10,14 @@ To load "clog":
 (:CLOG)
 ```
 
-Load the demo:
+Load the tutorial:
 
 ```
 CL-USER> (load "/Users/dbotton/common-lisp/clog/tutorial/01-tutorial.lisp")
 #P"/Users/dbotton/common-lisp/clog/tutorial/01-tutorial.lisp"
 ```
 
-Start the demo:
+Start the tutorial:
 
 ```
 CL-USER> (clog-user:start-tutorial)