[Basic weblog entry list
clinton@unknownlamer.org**20081209111904] hunk ./src/web-admin.lisp 32
-(defcomponent weblog-admin (composite-container)
+(defcomponent weblog-entry-list (golgonooza:query-view
+				 golgonooza-db:elephant-query-view-mixin)
hunk ./src/web-admin.lisp 36
-      :contents `((new . ,(make-instance 'weblog-entry-editor)))))
+   :index-class 'beesknees.weblog:weblog-entry
+   :index-slot 'beesknees.weblog::posted))
+
+(defmethod render ((list weblog-entry-list))
+  (<:ul
+   (mapc (lambda (entry)
+	   (<:li (<:progn
+		   (<:h1 (entry-title entry))
+		   (<:h1 (<:as-html (metatilities:date-and-time-string
+				     (entry-posted entry))))
+		   (<:h2 (<:format "Author: ~A"
+				   (beesknees.auth:username (entry-author entry))))
+		   (<:p (<:as-html (entry-body entry))))))
+	 (golgonooza:current-items list))))
+
+(defcomponent toplevel (standard-component)
+  ((wrapped-class :initarg :wrap :accessor wrapped-class)))
+
+(defmethod render ((c toplevel))
+  (<:p (<ucw:a :action (call (wrapped-class c))
+	       (<:as-html "Call"))))
+
+(defcomponent weblog-admin (tabbed-pane)
+  ()
+  (:default-initargs
+      :current-component-key 'list
+      :contents `((new . ,(make-instance 'toplevel :wrap 'weblog-entry-editor))
+		  (list  . ,(make-instance 'weblog-entry-list)))))