[Admin tool refactoring part eins
clinton@unknownlamer.org**20090427175944
 Ignore-this: e397159c40d694687778aa3e490edfd1
 web-admin.lisp is far too large and so the components will be split
 into their own files as needed. Prepare for at least splitting out the
 weblog related code (as it will eventually move into to its own
 package...)
] hunk ./beesknees.asd 21
-     (:file "web-admin" :depends-on ("packages" "web-common" "image-manager"))
+     (:file "admin-common" :depends-on ("packages" "web-common"))
+     (:file "web-admin" :depends-on ("packages" "web-common"
+				     "admin-common" "image-manager"))
addfile ./src/admin-common.lisp
hunk ./src/admin-common.lisp 1
-
+(in-package :beesknees.web)
+
+(defcomponent bee-admin-pane (tabbed-pane)
+  ())
+
+(defcomponent bee-admin-list (golgonooza:query-paged-view-mixin
+			      golgonooza-db:elephant-query-view-mixin
+			      golgonooza:query-view)
+  ())
+
+(defmethod render ((list bee-admin-list))
+  (<:ul (mapc (lambda (entry)
+		(<:li (golgonooza:render-query-view-result entry list)))
+	      (golgonooza:current-items list))))
+
+(defcomponent toplevel (task-component)
+  ((wrapped-class :initarg :wrap :accessor wrapped-class)))
+
+(defaction start ((c toplevel))
+  (loop (call (wrapped-class c))))
hunk ./src/web-admin.lisp 3
-(defcomponent bee-admin-pane (tabbed-pane)
-  ())
-
hunk ./src/web-admin.lisp 78
-(defcomponent bee-admin-list (golgonooza:query-paged-view-mixin
-			      golgonooza-db:elephant-query-view-mixin
-			      golgonooza:query-view)
-  ())
-
-(defmethod render ((list bee-admin-list))
-  (<:ul (mapc (lambda (entry)
-		(<:li (golgonooza:render-query-view-result entry list)))
-	      (golgonooza:current-items list))))
-
hunk ./src/web-admin.lisp 123
-(defcomponent toplevel (task-component)
-  ((wrapped-class :initarg :wrap :accessor wrapped-class)))
-
-(defaction start ((c toplevel))
-  (loop (call (wrapped-class c))))
-