[bknr-cvs] r2435 - branches/trunk-reorg/projects/quickhoney/src

[hhubner at common-lisp.net]

Author: hhubner
Date: Fri Feb  1 05:22:06 2008
New Revision: 2435

Modified:
   branches/trunk-reorg/projects/quickhoney/src/image.lisp
   branches/trunk-reorg/projects/quickhoney/src/init.lisp
Log:
Fix default external format, we're using UTF-8.
Display image in encoded content of RSS feed.


Modified: branches/trunk-reorg/projects/quickhoney/src/image.lisp
==============================================================================
--- branches/trunk-reorg/projects/quickhoney/src/image.lisp	(original)
+++ branches/trunk-reorg/projects/quickhoney/src/image.lisp	Fri Feb  1 05:22:06 2008
@@ -6,6 +6,13 @@
 	   :index-reader images-for-client
 	   :index-keys all-clients)))
 
+(defmethod rss-item-pub-date ((item quickhoney-image))
+  (blob-timestamp item))
+
+(defmethod rss-item-encoded-content ((item quickhoney-image))
+  (with-output-to-string (s)
+    (html-stream s ((:img :src (format nil "http://~A/image/~A" (header-in :host) (store-object-id item)))))))
+
 (defvar *last-image-upload-timestamp* 0)
 
 (defmethod initialize-transient-instance :after ((image quickhoney-image))

Modified: branches/trunk-reorg/projects/quickhoney/src/init.lisp
==============================================================================
--- branches/trunk-reorg/projects/quickhoney/src/init.lisp	(original)
+++ branches/trunk-reorg/projects/quickhoney/src/init.lisp	Fri Feb  1 05:22:06 2008
@@ -8,6 +8,7 @@
 	    "/usr/lib/libssl.so"
 	    "/usr/local/lib/libgd.so"
 	    "/home/hans/bknr-svn/thirdparty/cl-gd-0.5.6/cl-gd-glue.so"))
+  (setf *hunchentoot-default-external-format* (flex:make-external-format :utf-8 :eol-style :lf))
   (when *store*
     (close-store))
   (make-instance 'store