Move demos and tutorials to their own packages

demos/01-demo.lisp

@@ -1,8 +1,8 @@
-(defpackage #:clog-user
+(defpackage #:clog-demo-1
   (:use #:cl #:clog)
   (:export start-demo))
 
-(in-package :clog-user)
+(in-package :clog-demo-1)
 
 ;; Game Display
 (defconstant display-width 375)

demos/02-demo.lisp

@@ -1,8 +1,8 @@
-(defpackage #:clog-user
+(defpackage #:clog-demo-2
   (:use #:cl #:clog)
   (:export start-demo))
 
-(in-package :clog-user)
+(in-package :clog-demo-2)
 
 (defvar *global-list-box-hash* (make-hash-table :test 'equalp)
   "Username to update function")

demos/03-demo.lisp

@@ -1,11 +1,11 @@
 ;;; As this demo uses eval do not run over the internet.
 ;;; This app gives access to its users your local files.
 
-(defpackage #:clog-user
+(defpackage #:clog-demo-3
   (:use #:cl #:clog #:clog-gui)
   (:export start-demo))
 
-(in-package :clog-user)
+(in-package :clog-demo-3)
 
 (defclass app-data ()
   ((copy-buf

demos/04-demo.lisp

@@ -1,10 +1,10 @@
 ;;;; Demo 4 - CMS Website
 
-(defpackage #:clog-user
+(defpackage #:clog-demo-4
   (:use #:cl #:clog #:clog-web)
   (:export start-demo))
 
-(in-package :clog-user)
+(in-package :clog-demo-4)
 
 ;; Site Configuration
 (defparameter side-panel-size 200 "Size of menu")

demos/README.md

@@ -15,14 +15,7 @@ To load "clog":
 Load the demo:
 
 ```
-CL-USER> (load "/Users/dbotton/common-lisp/clog/demos/01-demo.lisp")
-#P"/Users/dbotton/common-lisp/clog/demos/01-demo.lisp"
-```
-
-Start the demo:
-
-```
-CL-USER> (clog-user:start-demo)
+CL-USER> (clog:run-demo 1)
 Hunchentoot server is started.
 Listening on 0.0.0.0:8080.
 HTTP listening on : 0.0.0.0:8080