LICENCE README @@ -86,7 +86,11 @@ (webapp ((my name) :head-contents (with-ml-output (<link :rel "alternate" :type "application/atom+xml" :href (my atom-feed-url)) - (<link :rel "alternate" :type "application/rss+xml" :href (my rss-feed-url)))) + +; disable the RSS feed as RSS wants to have absolute URLs +; (<link :rel "alternate" :type "application/rss+xml" :href (my rss-feed-url))) + + ) (let ((n (byte-vector-parse-integer n))) (let ((entries (my ready-entries :start n)) (count 10)) (<div :class "blog" src/blog/blog.lisp @@ -42,4 +42,4 @@ (tpd2.ml.rss:<link (entry-url-path entry)) (tpd2.ml.rss:<description (tpd2.io:sendbuf-to-byte-vector (entry-story-ml entry)))))))) - (byte-vector-cat "Content-Type: application/rss+xml" tpd2.io:+newline+))) \ No newline at end of file + (byte-vector-cat "Content-Type: application/rss+xml" tpd2.io:+newline+))) src/blog/feed.lisp 35ff8ab1d911370960ce36341280654483991f3c John Fremlin john@fremlin.org http://github.com/vii/teepeedee2/commit/3171a1f303dcc600e51f7fd4b7a7f31e7eed0ab5 3171a1f303dcc600e51f7fd4b7a7f31e7eed0ab5 2009-05-24T02:51:50-07:00 2009-05-24T02:51:50-07:00 release d07579b4dc937e07fcf6b0839964f4cd84cf3668 John Fremlin john@fremlin.org