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