[bknr-cvs] r2057 - in trunk/bknr/src: . web

[bknr at bknr.net]

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