[Lisppaste-cvs] CVS update: lisppaste2/web-server.lisp

[Brian Mastenbrook]

Update of /project/lisppaste/cvsroot/lisppaste2
In directory common-lisp.net:/home/bmastenbrook/lisppaste2

Modified Files:
	web-server.lisp 
Log Message:
More RSS!

Date: Tue Feb  3 18:47:27 2004
Author: bmastenbrook

Index: lisppaste2/web-server.lisp
diff -u lisppaste2/web-server.lisp:1.20 lisppaste2/web-server.lisp:1.21
--- lisppaste2/web-server.lisp:1.20	Fri Jan 30 11:34:12 2004
+++ lisppaste2/web-server.lisp	Tue Feb  3 18:47:26 2004
@@ -1,4 +1,4 @@
-;;;; $Id: web-server.lisp,v 1.20 2004/01/30 16:34:12 bmastenbrook Exp $
+;;;; $Id: web-server.lisp,v 1.21 2004/02/03 23:47:26 bmastenbrook Exp $
 ;;;; $Source: /project/lisppaste/cvsroot/lisppaste2/web-server.lisp,v $
 
 ;;;; See the LICENSE file for licensing information.
@@ -80,7 +80,8 @@
   (araneida:html-stream
    (araneida:request-stream request)
    `(html
-     (head (title "All pastes"))
+     (head (title "All pastes")
+	   ((link :rel "alternate" :type "application/rss+xml" :title "Lisppaste RSS" :href ,(araneida:urlstring *rss-url*))))
      (body
       (center (h2 "All pastes in system"))
       ((table :width "100%" :cellpadding 2)