Update of /project/cl-blog/cvsroot/cl-blog In directory common-lisp.net:/tmp/cvs-serv4188
Modified Files: cl-blog.lisp Log Message: More integration
Date: Tue Oct 19 03:38:12 2004 Author: bmastenbrook
Index: cl-blog/cl-blog.lisp diff -u cl-blog/cl-blog.lisp:1.2 cl-blog/cl-blog.lisp:1.3 --- cl-blog/cl-blog.lisp:1.2 Tue Oct 19 03:33:06 2004 +++ cl-blog/cl-blog.lisp Tue Oct 19 03:38:12 2004 @@ -522,6 +522,19 @@ ((a :class "entry-footer" :href ,(delete-entry-link entry)) "Delete"))))))
+(defun format-trackback (trackback) + `((div :class "entry") + ((div :class "entry-head") + ((:a :href ,(encode-for-http (trackback-url trackback))) + ,(encode-for-pre (trackback-title trackback))) + ((div :class "entry-data") + "From " + ,(encode-for-pre (trackback-blog-name trackback)) + )) + ((div :class "entry-text") + ,(encode-for-pre (trackback-excerpt trackback))) + )) + (defmethod handle-request-response ((handler main-handler) method request) (request-send-headers request :expires 0 :content-type "text/html; charset=iso-8859-1") @@ -817,7 +830,8 @@ (blog-wrap-page (format nil "~A: ~A" *blog-short-name* (blog-entry-title entry)) - (list (format-entry entry)))))) + (cons (format-entry entry) + (mapcar #'format-trackback (blog-entry-trackbacks entry)))))))
(defclass email-redirect-handler (handler) ())