@@ -25,8 +25,20 @@ (<:a :href "/blog/index.zek" "<<Home") (<:h1 (<:as-html (blog-post.title (detail.post self)))) (<:p (<:as-html (blog-post.body (detail.post self)))) - (<:h3 "Comments:") - (dolist (comment (comments-as-list (detail.post self))) - (<:strong (<:as-html (comment.email comment))) - (<:p (<:as-html (comment.body comment))) - (<:hr))) \ No newline at end of file + (<ucw:a :action (edit-blog self) "Edit Post") + (when (have-comments? (detail.post self)) + (<:h3 "Comments:") + (dolist (comment (comments-as-list (detail.post self))) + (<:strong (<:as-html (comment.email comment))) + (<:p (<:as-html (comment.body comment))) + (<:hr)))) + +(defaction edit-blog ((self detail)) + (call 'edit-form :post (detail.post self))) + +(ucw::defcomponent edit-form () + ((post :accessor edit-form.post + :initarg :post))) + +(defmethod ucw::render ((self edit-form)) + (<:a :href "/blog/index.zek" "<<Home")) layout.lisp af65844eddba6ea642281ff22a03479fd1595ae7 Zekeriya KOC zekus@zetbook.(none) http://github.com/zekzekus/zek-blog/commit/dfff67539f9408244e9d45b5da1d7c5fba4f09d6 dfff67539f9408244e9d45b5da1d7c5fba4f09d6 2009-10-31T12:25:30-07:00 2009-10-31T12:25:30-07:00 a component to edit blog posts added b6d7a64e2d0c1722921db3f8ce5c65c4426858a2 Zekeriya KOC zekus@zetbook.(none)