- lisppaste-cvs@common-lisp.net - mailman3.common-lisp.net

[Lisppaste-cvs] CVS update: lisppaste2/encode-for-pre.lisp
by Brian Mastenbrook 04 Feb '04

04 Feb '04

Update of /project/lisppaste/cvsroot/lisppaste2 In directory common-lisp.net:/home/bmastenbrook/lisppaste2 Modified Files: encode-for-pre.lisp Log Message: doh, that order causes lots of &nbsp; :-) Date: Tue Feb 3 21:54:24 2004 Author: bmastenbrook Index: lisppaste2/encode-for-pre.lisp diff -u lisppaste2/encode-for-pre.lisp:1.8 lisppaste2/encode-for-pre.lisp:1.9 --- lisppaste2/encode-for-pre.lisp:1.8 Tue Feb 3 21:41:12 2004 +++ lisppaste2/encode-for-pre.lisp Tue Feb 3 21:54:24 2004 @@ -1,4 +1,4 @@ -;;;; $Id: encode-for-pre.lisp,v 1.8 2004/02/04 02:41:12 bmastenbrook Exp $ +;;;; $Id: encode-for-pre.lisp,v 1.9 2004/02/04 02:54:24 bmastenbrook Exp $ ;;;; $Source: /project/lisppaste/cvsroot/lisppaste2/encode-for-pre.lisp,v $ ;;;; See the LICENSE file for licensing information. @@ -41,4 +41,4 @@ (replace-in-string str '(#\& #\< #\>) '("&" "<" ">"))) (defun encode-for-tt (str) - (replace-in-string (replace-in-string-1 str #\space " " t) '(#\& #\< #\> #\newline #\return #\linefeed #\tab) '("&" "<" ">" "" "<br>" "" "    "))) + (replace-in-string-1 (replace-in-string str '(#\& #\< #\> #\newline #\return #\linefeed #\tab) '("&" "<" ">" "" "<br>" "" "    ")) #\space " " t))

1 0

[Lisppaste-cvs] CVS update: lisppaste2/irc-log-link.lisp
by Brian Mastenbrook 04 Feb '04

04 Feb '04

Update of /project/lisppaste/cvsroot/lisppaste2 In directory common-lisp.net:/tmp/cvs-serv15187 Modified Files: irc-log-link.lisp Log Message: oops, this won't work quite right when things fail :-) Date: Tue Feb 3 21:43:57 2004 Author: bmastenbrook Index: lisppaste2/irc-log-link.lisp diff -u lisppaste2/irc-log-link.lisp:1.1 lisppaste2/irc-log-link.lisp:1.2 --- lisppaste2/irc-log-link.lisp:1.1 Tue Feb 3 21:41:12 2004 +++ lisppaste2/irc-log-link.lisp Tue Feb 3 21:43:57 2004 @@ -61,4 +61,4 @@ (let ((link (fetch-irc-log-link (string-left-trim "#" channel)))) (if (stringp link) (araneida:merge-url (araneida:make-url :scheme "http" :host *meme-host*) link) - nil))) + "")))

1 0

[Lisppaste-cvs] CVS update: lisppaste2/irc-log-link.lisp lisppaste2/encode-for-pre.lisp lisppaste2/lisppaste.asd lisppaste2/package.lisp lisppaste2/persistent-pastes.lisp lisppaste2/web-server.lisp
by Brian Mastenbrook 04 Feb '04

04 Feb '04

Update of /project/lisppaste/cvsroot/lisppaste2 In directory common-lisp.net:/tmp/cvs-serv3389 Modified Files: encode-for-pre.lisp lisppaste.asd package.lisp persistent-pastes.lisp web-server.lisp Added Files: irc-log-link.lisp Log Message: IRC log links from the pastebot to the context at meme.b9.com Date: Tue Feb 3 21:41:12 2004 Author: bmastenbrook Index: lisppaste2/encode-for-pre.lisp diff -u lisppaste2/encode-for-pre.lisp:1.7 lisppaste2/encode-for-pre.lisp:1.8 --- lisppaste2/encode-for-pre.lisp:1.7 Sat Jan 17 12:54:13 2004 +++ lisppaste2/encode-for-pre.lisp Tue Feb 3 21:41:12 2004 @@ -1,4 +1,4 @@ -;;;; $Id: encode-for-pre.lisp,v 1.7 2004/01/17 17:54:13 bmastenbrook Exp $ +;;;; $Id: encode-for-pre.lisp,v 1.8 2004/02/04 02:41:12 bmastenbrook Exp $ ;;;; $Source: /project/lisppaste/cvsroot/lisppaste2/encode-for-pre.lisp,v $ ;;;; See the LICENSE file for licensing information. @@ -41,4 +41,4 @@ (replace-in-string str '(#\& #\< #\>) '("&" "<" ">"))) (defun encode-for-tt (str) - (replace-in-string-1 (replace-in-string str '(#\& #\< #\> #\newline #\return #\linefeed #\tab) '("&" "<" ">" "" "<br>" "" "    ")) #\space " " 1)) \ No newline at end of file + (replace-in-string (replace-in-string-1 str #\space " " t) '(#\& #\< #\> #\newline #\return #\linefeed #\tab) '("&" "<" ">" "" "<br>" "" "    "))) Index: lisppaste2/lisppaste.asd diff -u lisppaste2/lisppaste.asd:1.3 lisppaste2/lisppaste.asd:1.4 --- lisppaste2/lisppaste.asd:1.3 Sat Jan 17 13:02:14 2004 +++ lisppaste2/lisppaste.asd Tue Feb 3 21:41:12 2004 @@ -1,4 +1,5 @@ -;;;; $Id: lisppaste.asd,v 1.3 2004/01/17 18:02:14 bmastenbrook Exp $ +;;;; Silly emacs, this is -*- Lisp -*- +;;;; $Id: lisppaste.asd,v 1.4 2004/02/04 02:41:12 bmastenbrook Exp $ ;;;; $Source: /project/lisppaste/cvsroot/lisppaste2/lisppaste.asd,v $ ;;;; See the LICENSE file for licensing information. @@ -26,11 +27,10 @@ :depends-on ("package")) (:file "encode-for-pre" :depends-on ("variable")) + (:file "irc-log-link") (:file "web-server" - :depends-on ("encode-for-pre")) + :depends-on ("encode-for-pre" "irc-log-link")) (:file "lisppaste" :depends-on ("web-server")) (:file "persistent-pastes" :depends-on ("web-server")))) - - Index: lisppaste2/package.lisp diff -u lisppaste2/package.lisp:1.1.1.1 lisppaste2/package.lisp:1.2 --- lisppaste2/package.lisp:1.1.1.1 Mon Nov 3 12:17:53 2003 +++ lisppaste2/package.lisp Tue Feb 3 21:41:12 2004 @@ -1,4 +1,4 @@ -;;;; $Id: package.lisp,v 1.1.1.1 2003/11/03 17:17:53 eenge Exp $ +;;;; $Id: package.lisp,v 1.2 2004/02/04 02:41:12 bmastenbrook Exp $ ;;;; $Source: /project/lisppaste/cvsroot/lisppaste2/package.lisp,v $ ;;;; See the LICENSE file for licensing information. @@ -7,7 +7,7 @@ (eval-when (:execute :load-toplevel :compile-toplevel) (defpackage :lisppaste - (:use :cl) + (:use :cl :sb-bsd-sockets) (:export :start-lisppaste))) Index: lisppaste2/persistent-pastes.lisp diff -u lisppaste2/persistent-pastes.lisp:1.5 lisppaste2/persistent-pastes.lisp:1.6 --- lisppaste2/persistent-pastes.lisp:1.5 Sat Jan 17 13:34:37 2004 +++ lisppaste2/persistent-pastes.lisp Tue Feb 3 21:41:12 2004 @@ -8,7 +8,8 @@ (cons 'contents (paste-contents paste)) (cons 'universal-time (paste-universal-time paste)) (cons 'channel (paste-channel paste)) - (cons 'annotations (mapcar #'paste-alist (paste-annotations paste))))) + (cons 'annotations (mapcar #'paste-alist (paste-annotations paste))) + (cons 'log-link (paste-log-link paste)))) (defun save-pastes-to-file (file-name) (let ((*package* (find-package :lisppaste))) @@ -22,7 +23,7 @@ ,@body)) (defun make-paste-from-alist (e &optional annotation) - (with-assoc-vals (number user title contents universal-time annotations channel) e + (with-assoc-vals (number user title contents universal-time annotations channel log-link) e (unless annotation (setf *paste-counter* (max *paste-counter* number))) (make-paste :number number :user user @@ -30,11 +31,13 @@ :contents contents :universal-time universal-time :channel (if (not channel) (car *channels*) channel) - :annotations (mapcar #'(lambda (e) (make-paste-from-alist e)) annotations)))) + :annotations (mapcar #'(lambda (e) (make-paste-from-alist e)) annotations) + :log-link (if (not log-link) "" log-link)))) (defun read-pastes-from-file (file-name) (setf *pastes* nil) (let ((*package* (find-package :lisppaste))) (with-open-file (file file-name :direction :input :if-does-not-exist nil) - (let ((paste-alist (read file nil))) - (setf *pastes* (mapcar #'make-paste-from-alist paste-alist)))))) \ No newline at end of file + (if file + (let ((paste-alist (read file nil))) + (setf *pastes* (mapcar #'make-paste-from-alist paste-alist))))))) Index: lisppaste2/web-server.lisp diff -u lisppaste2/web-server.lisp:1.22 lisppaste2/web-server.lisp:1.23 --- lisppaste2/web-server.lisp:1.22 Tue Feb 3 20:18:38 2004 +++ lisppaste2/web-server.lisp Tue Feb 3 21:41:12 2004 @@ -1,4 +1,4 @@ -;;;; $Id: web-server.lisp,v 1.22 2004/02/04 01:18:38 bmastenbrook Exp $ +;;;; $Id: web-server.lisp,v 1.23 2004/02/04 02:41:12 bmastenbrook Exp $ ;;;; $Source: /project/lisppaste/cvsroot/lisppaste2/web-server.lisp,v $ ;;;; See the LICENSE file for licensing information. @@ -14,7 +14,8 @@ (is-annotation nil :type boolean) (annotations nil :type list) (annotation-counter 0 :type integer) - (channel "" :type string)) + (channel "" :type string) + (log-link "" :type string)) (defclass new-paste-handler (araneida:handler) ()) @@ -180,7 +181,8 @@ (t (let* ((paste-number (if annotate (parse-integer annotate :junk-allowed t) (incf *paste-counter*))) (paste-to-annotate (if annotate (find paste-number *pastes* :key #'paste-number))) - (annotation-number (if annotate (incf (paste-annotation-counter paste-to-annotate))))) + (annotation-number (if annotate (incf (paste-annotation-counter paste-to-annotate)))) + (log-link (araneida:urlstring (irc-log-link channel)))) (let ((url (araneida:urlstring (araneida:merge-url *display-paste-url* (if annotate @@ -193,7 +195,8 @@ :title title :contents text :universal-time (get-universal-time) - :channel channel))) + :channel channel + :log-link log-link))) (irc:privmsg *connection* channel (if annotate (format nil "~A annotated #~A with \"~A\" at ~A" username paste-number title url) @@ -238,7 +241,10 @@ (tr (td) ((td :align "left" :width "100%") ,(time-delta (paste-universal-time paste)))) (tr (td) - ((td :align "left" :width "100%") ,(encode-for-pre (paste-channel paste)))) + ((td :align "left" :width "100%") ,(encode-for-pre (paste-channel paste)) + ,@(if (not (string= (paste-log-link paste) "")) + `(" | " + ((a :href ,(paste-log-link paste)) "Context in IRC logs"))))) (tr ((td :align "left" :valign "top" :nowrap) "Paste contents:") ((td :width "100%"))) (tr (td (p)))

1 0

[Lisppaste-cvs] CVS update: lisppaste2/web-server.lisp
by Brian Mastenbrook 04 Feb '04

04 Feb '04

Update of /project/lisppaste/cvsroot/lisppaste2 In directory common-lisp.net:/tmp/cvs-serv19328 Modified Files: web-server.lisp Log Message: MORE RSS! Date: Tue Feb 3 20:18:38 2004 Author: bmastenbrook Index: lisppaste2/web-server.lisp diff -u lisppaste2/web-server.lisp:1.21 lisppaste2/web-server.lisp:1.22 --- lisppaste2/web-server.lisp:1.21 Tue Feb 3 18:47:26 2004 +++ lisppaste2/web-server.lisp Tue Feb 3 20:18:38 2004 @@ -1,4 +1,4 @@ -;;;; $Id: web-server.lisp,v 1.21 2004/02/03 23:47:26 bmastenbrook Exp $ +;;;; $Id: web-server.lisp,v 1.22 2004/02/04 01:18:38 bmastenbrook Exp $ ;;;; $Source: /project/lisppaste/cvsroot/lisppaste2/web-server.lisp,v $ ;;;; See the LICENSE file for licensing information. @@ -75,13 +75,16 @@ (first-<-mod delta years months weeks days hours minutes seconds) (1- level))))))) +(defun rss-link-header () + `((link :rel "alternate" :type "application/rss+xml" :title "Lisppaste RSS" :href ,(araneida:urlstring *rss-url*)))) + (defmethod araneida:handle-request-response ((handler list-paste-handler) method request) (araneida:request-send-headers request :expires 0) (araneida:html-stream (araneida:request-stream request) `(html (head (title "All pastes") - ((link :rel "alternate" :type "application/rss+xml" :title "Lisppaste RSS" :href ,(araneida:urlstring *rss-url*)))) + ,(rss-link-header)) (body (center (h2 "All pastes in system")) ((table :width "100%" :cellpadding 2) @@ -122,7 +125,8 @@ (araneida:html-stream (araneida:request-stream request) `(html - (head (title ,(if annotate "Annotate" "Paste"))) + (head (title ,(if annotate "Annotate" "Paste")) + ,(rss-link-header)) (body (h1 ,(if annotate "Enter your annotation" "Enter your paste")) ((font :color red) (h2 ,message)) @@ -201,7 +205,8 @@ (araneida:html-stream (araneida:request-stream request) `(html - (head (title "Paste number " ,*paste-counter*)) + (head (title "Paste number " ,*paste-counter*) + ,(rss-link-header)) (body (h1 "Pasted!") (p ,(if annotate "Your annotation should be available at " "Your paste should be available at ") ((a :href ,url) ,url) ", and was also sent to " ,channel " @ " ,(irc:server-name *connection*)) @@ -222,7 +227,8 @@ (araneida:request-stream request) `(html (head - (title "Paste number " ,paste-number)) + (title "Paste number " ,paste-number) + ,(rss-link-header)) (body ((table :width "100%" :cellpadding 2) (tr ((td :align "left" :width "0%" :nowrap) "Paste number " ,paste-number ": ") @@ -267,7 +273,8 @@ (araneida:request-stream request) `(html (head - (title "Invalid paste number" ,paste-number)) + (title "Invalid paste number" ,paste-number) + ,(rss-link-header)) (body (h3 "No paste numbered " ,paste-number " could be found.") ,@(bottom-links)))))))

1 0

[Lisppaste-cvs] CVS update: lisppaste2/lisppaste.lisp
by Brian Mastenbrook 03 Feb '04

03 Feb '04

Update of /project/lisppaste/cvsroot/lisppaste2 In directory common-lisp.net:/home/bmastenbrook/lisppaste2 Modified Files: lisppaste.lisp Log Message: MORE HUP! Date: Tue Feb 3 18:52:04 2004 Author: bmastenbrook Index: lisppaste2/lisppaste.lisp diff -u lisppaste2/lisppaste.lisp:1.6 lisppaste2/lisppaste.lisp:1.7 --- lisppaste2/lisppaste.lisp:1.6 Tue Feb 3 18:46:20 2004 +++ lisppaste2/lisppaste.lisp Tue Feb 3 18:52:04 2004 @@ -1,4 +1,4 @@ -;;;; $Id: lisppaste.lisp,v 1.6 2004/02/03 23:46:20 bmastenbrook Exp $ +;;;; $Id: lisppaste.lisp,v 1.7 2004/02/03 23:52:04 bmastenbrook Exp $ ;;;; $Source: /project/lisppaste/cvsroot/lisppaste2/lisppaste.lisp,v $ ;;;; See the LICENSE file for licensing information. @@ -25,3 +25,12 @@ (defun join-new-channel (channel) (setf *channels* (nconc *channels* (list channel))) (irc:join *connection* channel)) + +(defun hup-connection (nickname server) + (irc:quit *connection*) + (setf *connection* (irc:connect :nickname nickname + :realname (araneida:urlstring *new-paste-url*) + :server server + :port *default-irc-server-port*)) + (mapcar #'(lambda (channel) (irc:join *connection* channel)) *channels*) + (irc:read-message-loop *connection*)) \ No newline at end of file

1 0

[Lisppaste-cvs] CVS update: lisppaste2/web-server.lisp
by Brian Mastenbrook 03 Feb '04

03 Feb '04

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)

1 0

[Lisppaste-cvs] CVS update: lisppaste2/lisppaste.lisp
by Brian Mastenbrook 03 Feb '04

03 Feb '04

Update of /project/lisppaste/cvsroot/lisppaste2 In directory common-lisp.net:/tmp/cvs-serv22399 Modified Files: lisppaste.lisp Log Message: URL in realname Date: Tue Feb 3 18:46:20 2004 Author: bmastenbrook Index: lisppaste2/lisppaste.lisp diff -u lisppaste2/lisppaste.lisp:1.5 lisppaste2/lisppaste.lisp:1.6 --- lisppaste2/lisppaste.lisp:1.5 Tue Jan 20 09:22:06 2004 +++ lisppaste2/lisppaste.lisp Tue Feb 3 18:46:20 2004 @@ -1,4 +1,4 @@ -;;;; $Id: lisppaste.lisp,v 1.5 2004/01/20 14:22:06 bmastenbrook Exp $ +;;;; $Id: lisppaste.lisp,v 1.6 2004/02/03 23:46:20 bmastenbrook Exp $ ;;;; $Source: /project/lisppaste/cvsroot/lisppaste2/lisppaste.lisp,v $ ;;;; See the LICENSE file for licensing information. @@ -12,6 +12,7 @@ "Connect to specified server, join specified channel and start accepting requests through the web." (let ((connection (irc:connect :nickname nickname + :realname (araneida:urlstring *new-paste-url*) :server server :port port))) (setf *connection* connection) @@ -23,4 +24,4 @@ (defun join-new-channel (channel) (setf *channels* (nconc *channels* (list channel))) - (irc:join *connection* channel)) \ No newline at end of file + (irc:join *connection* channel))

1 0

[Lisppaste-cvs] CVS update: lisppaste2/variable.lisp
by Brian Mastenbrook 30 Jan '04

30 Jan '04

Update of /project/lisppaste/cvsroot/lisppaste2 In directory common-lisp.net:/tmp/cvs-serv28832 Modified Files: variable.lisp Log Message: defparameter is kind of unintuitive there. Spent a frustrated ten minutes wondering why my new page was 404ing until I realized that variable.lisp smashes over the old handler but never replaces it. Date: Fri Jan 30 11:36:41 2004 Author: bmastenbrook Index: lisppaste2/variable.lisp diff -u lisppaste2/variable.lisp:1.8 lisppaste2/variable.lisp:1.9 --- lisppaste2/variable.lisp:1.8 Fri Jan 30 11:09:47 2004 +++ lisppaste2/variable.lisp Fri Jan 30 11:36:37 2004 @@ -1,4 +1,4 @@ -;;;; $Id: variable.lisp,v 1.8 2004/01/30 16:09:47 bmastenbrook Exp $ +;;;; $Id: variable.lisp,v 1.9 2004/01/30 16:36:37 bmastenbrook Exp $ ;;;; $Source: /project/lisppaste/cvsroot/lisppaste2/variable.lisp,v $ ;;;; See the LICENSE file for licensing information. @@ -40,7 +40,7 @@ (defparameter *rss-url* (araneida:merge-url *paste-external-url* "list.rss")) -(defparameter *paste-listener* +(defvar *paste-listener* (let ((fwd-url (araneida:copy-url *paste-url*))) (setf (araneida:url-port fwd-url) *internal-http-port*) (make-instance 'araneida:serve-event-reverse-proxy-listener

1 0

[Lisppaste-cvs] CVS update: lisppaste2/web-server.lisp
by Brian Mastenbrook 30 Jan '04

30 Jan '04

Update of /project/lisppaste/cvsroot/lisppaste2 In directory common-lisp.net:/home/bmastenbrook/lisppaste2 Modified Files: web-server.lisp Log Message: Canonical order Date: Fri Jan 30 11:34:20 2004 Author: bmastenbrook Index: lisppaste2/web-server.lisp diff -u lisppaste2/web-server.lisp:1.19 lisppaste2/web-server.lisp:1.20 --- lisppaste2/web-server.lisp:1.19 Fri Jan 30 11:08:31 2004 +++ lisppaste2/web-server.lisp Fri Jan 30 11:34:12 2004 @@ -1,4 +1,4 @@ -;;;; $Id: web-server.lisp,v 1.19 2004/01/30 16:08:31 bmastenbrook Exp $ +;;;; $Id: web-server.lisp,v 1.20 2004/01/30 16:34:12 bmastenbrook Exp $ ;;;; $Source: /project/lisppaste/cvsroot/lisppaste2/web-server.lisp,v $ ;;;; See the LICENSE file for licensing information. @@ -105,7 +105,7 @@ ,(format nil "<channel><title>Lisppaste pastes</title><link>~A</link><description>Pastes in this pastebot</description>~{~A~}</channel>~%" (araneida:urlstring *list-paste-url*) - (reverse (mapcar #'(lambda (paste) + (mapcar #'(lambda (paste) (format nil "<item><link>~A</link><pubDate>~A</pubDate><title>\"~A\" by ~A</title><description>~A</description></item>" (concatenate 'string (araneida:urlstring @@ -115,7 +115,7 @@ (encode-for-pre (paste-title paste)) (encode-for-pre (paste-user paste)) (format nil "Paste to channel ~A with ~A annotations." (encode-for-pre (paste-channel paste)) (length (paste-annotations paste))))) - *pastes*)))))) + *pastes*))))) (defun new-paste-form (request &key (message "") (annotate nil)) (araneida:html-stream @@ -294,4 +294,4 @@ (araneida:install-handler (araneida:http-listener-handler *paste-listener*) (make-instance 'rss-handler) - (araneida:urlstring *rss-url*) nil) \ No newline at end of file + (araneida:urlstring *rss-url*) nil)

1 0

[Lisppaste-cvs] CVS update: lisppaste2/variable.lisp
by Brian Mastenbrook 30 Jan '04

30 Jan '04

Update of /project/lisppaste/cvsroot/lisppaste2 In directory common-lisp.net:/tmp/cvs-serv17792 Modified Files: variable.lisp Log Message: Er, this time save the file before committing. Date: Fri Jan 30 11:09:48 2004 Author: bmastenbrook Index: lisppaste2/variable.lisp diff -u lisppaste2/variable.lisp:1.7 lisppaste2/variable.lisp:1.8 --- lisppaste2/variable.lisp:1.7 Fri Jan 30 11:08:31 2004 +++ lisppaste2/variable.lisp Fri Jan 30 11:09:47 2004 @@ -1,4 +1,4 @@ -;;;; $Id: variable.lisp,v 1.7 2004/01/30 16:08:31 bmastenbrook Exp $ +;;;; $Id: variable.lisp,v 1.8 2004/01/30 16:09:47 bmastenbrook Exp $ ;;;; $Source: /project/lisppaste/cvsroot/lisppaste2/variable.lisp,v $ ;;;; See the LICENSE file for licensing information. @@ -37,8 +37,8 @@ (defparameter *submit-paste-url* (araneida:merge-url *paste-external-url* "submit")) -(defparameter *rdf-url* - (araneida:merge-url *paste-external-url* "list.rdf")) +(defparameter *rss-url* + (araneida:merge-url *paste-external-url* "list.rss")) (defparameter *paste-listener* (let ((fwd-url (araneida:copy-url *paste-url*)))

1 0