@@ -4,7 +4,7 @@ ((title :accessor blog-post.title :initarg :title :type string - :index t) + :index t)u (body :accessor blog-post.body :initarg :body :type string @@ -20,14 +20,22 @@ (defmethod remove-comment ((self blog-post) (comm comment)) (remove-item comm (blog-post.comments self))) +(defmethod have-comments? ((self blog-post)) + (slot-boundp self 'comments)) + (defmethod map-comments (fn (self blog-post)) - (map-pset fn (blog-post.comments self))) + (when (have-comments? self) + (map-pset fn (blog-post.comments self)))) (defmethod comments-as-list ((self blog-post)) - (pset-list (blog-post.comments self))) + (if (have-comments? self) + (pset-list (blog-post.comments self)) + '())) (defun comment-count (blog-post) - (length (comments-as-list blog-post))) + (if (have-comments? blog-post) + (length (comments-as-list blog-post)) + 0)) (defun add-post (title body) (with-transaction () blog-post.lisp data2.db @@ -8,7 +8,25 @@ (defmethod ucw::render ((self summary)) (<:h1 "Summary of posts") (dolist (post (summary.posts self)) - (<:h2 (<:as-html (blog-post.title post))) + (<:h2 (<:as-html (blog-post.title post))) (<:p (<:as-html (blog-post.body post))) + (<:as-html "Yorum: " (comment-count post)) (<:br) + (<ucw:a :action (post-detail self post) "Detail") (<:hr))) +(defaction post-detail ((self summary) post) + (call 'detail :post post)) + +(ucw::defcomponent detail () + ((post :accessor detail.post + :initarg :post))) + +(defmethod ucw::render ((self detail)) + (<: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 "Yorumlar:") + (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 layout.lisp e564e0ec050f404a2b55fc69d8d076bba41016a7 Zekeriya KOC zekus@zetbook.(none) http://github.com/zekzekus/zek-blog/commit/5daf6c8602798e6589372a2e80797daad4e97745 5daf6c8602798e6589372a2e80797daad4e97745 2009-10-31T03:01:14-07:00 2009-10-31T03:01:14-07:00 comments slot unbound problem fixed. 8d4fc81548d6fab22113025270ebd106bd926fdd Zekeriya KOC zekus@zetbook.(none)