[cl-blog-cvs] CVS update: cl-blog/cl-blog.lisp

[Brian Mastenbrook]

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) ())