Author: hhubner Date: 2006-11-05 15:51:58 -0500 (Sun, 05 Nov 2006) New Revision: 2057
Modified: trunk/bknr/src/packages.lisp trunk/bknr/src/web/handlers.lisp trunk/bknr/src/web/tags.lisp Log: Add RSS meta tag to generated pages.
Modified: trunk/bknr/src/packages.lisp =================================================================== --- trunk/bknr/src/packages.lisp 2006-11-05 20:51:19 UTC (rev 2056) +++ trunk/bknr/src/packages.lisp 2006-11-05 20:51:58 UTC (rev 2057) @@ -290,6 +290,7 @@ #:website-session-info #:website-base-href #:website-make-path + #:website-rss-feed-url #:host #:publish-site #:publish-handler
Modified: trunk/bknr/src/web/handlers.lisp =================================================================== --- trunk/bknr/src/web/handlers.lisp 2006-11-05 20:51:19 UTC (rev 2056) +++ trunk/bknr/src/web/handlers.lisp 2006-11-05 20:51:58 UTC (rev 2057) @@ -45,6 +45,8 @@ :accessor website-site-logo-url) (login-logo-url :initarg :login-logo-url :accessor website-login-logo-url) + (rss-feed-url :initarg :rss-feed-url + :accessor website-rss-feed-url) (import-spool-directory :initarg :import-spool-directory :accessor website-import-spool-directory) (template-base-directory :initarg :template-base-directory @@ -72,7 +74,8 @@ :template-base-directory nil :template-command-packages nil :show-page-function #'show-page - :show-error-page-function #'show-error-page)) + :show-error-page-function #'show-error-page + :rss-feed-url nil))
(defmethod initialize-instance :after ((website website) &key &allow-other-keys) (when *website*
Modified: trunk/bknr/src/web/tags.lisp =================================================================== --- trunk/bknr/src/web/tags.lisp 2006-11-05 20:51:19 UTC (rev 2056) +++ trunk/bknr/src/web/tags.lisp 2006-11-05 20:51:58 UTC (rev 2057) @@ -189,6 +189,12 @@ (loop for javascript in (website-javascript-urls *website*) do (html ((:script :type "text/javascript" :language "JavaScript" :src javascript) ""))) + (when (website-rss-feed-url *website*) + (html + ((:link :rel "alternate" + :type "application/rss+xml" + :title "RSS Feed" + :href (website-rss-feed-url *website*))))) ((:link :rel "shortcut icon" :href "/favicon.ico" :type "image/png")) ((:meta :http-equiv "content-type" :content "text/html;charset=utf-8")) (:title (:princ-safe title))))