[Weblog admin comment review
clinton@unknownlamer.org**20090427185642
 Ignore-this: ab8a74012bbcc26b20c1ec43233e64d8
] hunk ./src/admin-weblog.lisp 29
+(defcomponent weblog-comment-review (golgonooza:query-keyed-view-mixin
+				     golgonooza-db:elephant-query-view-mixin
+				     golgonooza:query-view)
+  ()
+  (:default-initargs
+    :index-class 'beesknees.weblog:weblog-comment
+    :index-slot 'beesknees.weblog::parent))
+
+(defmethod render ((cr weblog-comment-review))
+  (labels ((render-comment (comment)
+	     (<:li
+	      (<:progn
+		(<:ah (beesknees.weblog:comment-title comment))
+		(<:ah " by ")
+		(<:ah (beesknees.weblog:comment-author comment))
+		(<ucw:form
+		 :action (refresh-component list)
+		 :method "post"
+		 :style "display: inline;"
+		 (<ucw:submit :action (call 'markdown-preview
+					    :text (beesknees.weblog:comment-body comment))
+			      :value "View Body")
+		 (<ucw:submit :action (elephant:drop-instances (list comment))
+			      "Delete")))
+	      (when-bind children (beesknees.weblog:child-comments comment)
+			 (<:ul (mapc #'render-comment children))))))
+    (<:ul (mapc #'render-comment (golgonooza:current-items cr)))))
+
hunk ./src/admin-weblog.lisp 76
+		      (<ucw:submit :action (call 'weblog-comment-review
+						 :query-key entry)
+				   "Comments")