Tutorial 21

README.md

@@ -59,7 +59,7 @@ To load this package and work through tutorials (assuming you
 have Quicklisp configured):
 
 1. Start emacs then M-x slime
-2. In the REPL, run (tutorials currently 1 - 20):
+2. In the REPL, run (tutorials currently 1 - 21):
 
 ```
 CL-USER> (ql:quickload :clog)
@@ -175,6 +175,7 @@ Tutorial Summary
 - 18-tutorial.lisp - Drag and Drop
 - 19-tutorial.lisp - Using JavaScript components
 - 20-tutorial.lisp - New CLOG plugin from JavaScript component
+- 21-tutorial.lisp - New CLOG plugin in Common-Lisp
 
 Demo Summary
 
@@ -192,8 +193,3 @@ Enhancements underway:
   - GUI Builder
     - Grid style
     - Page style
-  
-- Plugin API 
-  - General CL systems
-  - Widgets created from JavaScript
-  - Widgets created in Common Lisp

tutorial/21-tutorial.lisp

@@ -10,6 +10,9 @@
 
 (in-package :clog-drop-list)
 
+;;; Next we will use the clog-unordered-list as the base for our new
+;;; class clog-drop list and allow access to the "drop root" for
+;;; list items to be children of.
 (defclass clog-drop-list (clog-unordered-list)
   ((drop-root :accessor drop-root))
   (:documentation "CLOG Drop List object - a collapsable list component"))
@@ -17,9 +20,9 @@
 (defgeneric drop-root (clog-drop-list)
   (:documentation "Accessor for the drop list root, create clog-list-items
 on the drop-root."))
-  
+
 (defgeneric create-drop-list (clog-obj &key content class html-id auto-place)
-  (:documentation "Create a toggler with CONTENT as the top of tree."))
+  (:documentation "Create a drop-list with CONTENT as the top of tree."))
 
 (defmethod create-drop-list ((obj clog-obj) &key (content "")
 					      (class nil)

tutorial/README.md

@@ -53,3 +53,4 @@ Tutorial Summary
 - 18-tutorial.lisp - Drag and Drop
 - 19-tutorial.lisp - Using JavaScript components
 - 20-tutorial.lisp - New CLOG plugin from JavaScript component
+- 21-tutorial.lisp - New CLOG plugin in Common-Lisp