January 2004 - lisppaste-cvs@common-lisp.net

[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

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

30 Jan '04

Update of /project/lisppaste/cvsroot/lisppaste2 In directory common-lisp.net:/tmp/cvs-serv31311 Modified Files: variable.lisp web-server.lisp Log Message: RSS! RSS! RSS! Date: Fri Jan 30 11:08:31 2004 Author: bmastenbrook Index: lisppaste2/variable.lisp diff -u lisppaste2/variable.lisp:1.6 lisppaste2/variable.lisp:1.7 --- lisppaste2/variable.lisp:1.6 Sat Jan 17 13:07:21 2004 +++ lisppaste2/variable.lisp Fri Jan 30 11:08:31 2004 @@ -1,4 +1,4 @@ -;;;; $Id: variable.lisp,v 1.6 2004/01/17 18:07:21 bmastenbrook Exp $ +;;;; $Id: variable.lisp,v 1.7 2004/01/30 16:08:31 bmastenbrook Exp $ ;;;; $Source: /project/lisppaste/cvsroot/lisppaste2/variable.lisp,v $ ;;;; See the LICENSE file for licensing information. @@ -36,6 +36,9 @@ (defparameter *submit-paste-url* (araneida:merge-url *paste-external-url* "submit")) + +(defparameter *rdf-url* + (araneida:merge-url *paste-external-url* "list.rdf")) (defparameter *paste-listener* (let ((fwd-url (araneida:copy-url *paste-url*))) Index: lisppaste2/web-server.lisp diff -u lisppaste2/web-server.lisp:1.18 lisppaste2/web-server.lisp:1.19 --- lisppaste2/web-server.lisp:1.18 Sat Jan 17 13:07:21 2004 +++ lisppaste2/web-server.lisp Fri Jan 30 11:08:31 2004 @@ -1,4 +1,4 @@ -;;;; $Id: web-server.lisp,v 1.18 2004/01/17 18:07:21 bmastenbrook Exp $ +;;;; $Id: web-server.lisp,v 1.19 2004/01/30 16:08:31 bmastenbrook Exp $ ;;;; $Source: /project/lisppaste/cvsroot/lisppaste2/web-server.lisp,v $ ;;;; See the LICENSE file for licensing information. @@ -24,6 +24,8 @@ (defclass display-paste-handler (araneida:handler) ()) +(defclass rss-handler (araneida:handler) ()) + (defmethod araneida:handle-request-response ((handler new-paste-handler) method request) (araneida:request-send-headers request :expires 0) (let* ((annotate-string (araneida:body-param "annotate" (araneida:request-body request))) @@ -94,6 +96,27 @@ *pastes*))) ,@(bottom-links))))) +(defmethod araneida:handle-request-response ((handler rss-handler) method request) + (araneida:request-send-headers request :expires 0) + (format (araneida:request-stream request) "<?xml version=\"1.0\" encoding=\"ISO-8859-1\"?>~%") + (araneida:html-stream + (araneida:request-stream request) + `((|rss| :|version| "2.0") + ,(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) + (format nil "<item><link>~A</link><pubDate>~A</pubDate><title>\"~A\" by ~A</title><description>~A</description></item>" + (concatenate 'string + (araneida:urlstring + (araneida:merge-url *display-paste-url* + (prin1-to-string (paste-number paste)))) "#" (prin1-to-string (paste-number paste))) + (date:universal-time-to-rfc-date (paste-universal-time paste)) + (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*)))))) + (defun new-paste-form (request &key (message "") (annotate nil)) (araneida:html-stream (araneida:request-stream request) @@ -268,3 +291,7 @@ (make-instance 'display-paste-handler) (araneida:urlstring *display-paste-url*) nil) +(araneida:install-handler + (araneida:http-listener-handler *paste-listener*) + (make-instance 'rss-handler) + (araneida:urlstring *rss-url*) nil) \ No newline at end of file

1 0

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

20 Jan '04

Update of /project/lisppaste/cvsroot/lisppaste2 In directory common-lisp.net:/home/bmastenbrook/lisppaste2 Modified Files: lisppaste.lisp Log Message: Programmatic join-new-channel Date: Tue Jan 20 09:22:06 2004 Author: bmastenbrook Index: lisppaste2/lisppaste.lisp diff -u lisppaste2/lisppaste.lisp:1.4 lisppaste2/lisppaste.lisp:1.5 --- lisppaste2/lisppaste.lisp:1.4 Sat Jan 17 13:22:35 2004 +++ lisppaste2/lisppaste.lisp Tue Jan 20 09:22:06 2004 @@ -1,4 +1,4 @@ -;;;; $Id: lisppaste.lisp,v 1.4 2004/01/17 18:22:35 bmastenbrook Exp $ +;;;; $Id: lisppaste.lisp,v 1.5 2004/01/20 14:22:06 bmastenbrook Exp $ ;;;; $Source: /project/lisppaste/cvsroot/lisppaste2/lisppaste.lisp,v $ ;;;; See the LICENSE file for licensing information. @@ -19,4 +19,8 @@ (read-pastes-from-file *paste-file*) (mapcar #'(lambda (channel) (irc:join connection channel)) channels) (araneida:start-listening *paste-listener*) - (irc:read-message-loop connection))) \ No newline at end of file + (irc:read-message-loop connection))) + +(defun join-new-channel (channel) + (setf *channels* (nconc *channels* (list channel))) + (irc:join *connection* channel)) \ No newline at end of file

1 0

[Lisppaste-cvs] CVS update: public_html/index.html
by Brian Mastenbrook 17 Jan '04

17 Jan '04

Update of /project/lisppaste/cvsroot/public_html In directory common-lisp.net:/tmp/cvs-serv19723 Modified Files: index.html Log Message: New release! Date: Sat Jan 17 13:47:01 2004 Author: bmastenbrook Index: public_html/index.html diff -u public_html/index.html:1.3 public_html/index.html:1.4 --- public_html/index.html:1.3 Wed Nov 5 09:01:41 2003 +++ public_html/index.html Sat Jan 17 13:47:01 2004 @@ -14,13 +14,21 @@ on IRC. 'lisppaste' on #lisp is available through common-lisp.net <a href="/paste/new">here</a>. - No downloads are available but the code in CVS (<a - href="/faq.shtml">checkout instructions</a>) is considered fairly - usable. You'll also need <a - href="http://araneida.telent.net">araneida</a> and <a + Compared to the <a + href="http://sourceforge.net/projects/pastebot/">perl version</a> + a lot of people use, lisppaste features paste annotations, useful + paste timestamps, and a listing page for all pastes in the system. + + Lisppaste 2 can be downloaded from here: <a + href="ftp://common-lisp.net/pub/project/lisppaste/lisppaste2-latest.tar.gz">lisppaste2-latest.tar.gz</a>. The + latest version is 2.0, released January 17 2004. + + The code in CVS (<a href="/faq.shtml">checkout + instructions</a>) is also considered fairly usable. You'll also + need <a href="http://araneida.telent.net">araneida</a> and <a href="http://www.sbcl.org"> SBCL</a>. If you do install it, read the <a - href="/cgi-bin/viewcvs.cgi/lisppaste/README.lisp?rev=HEAD&cvsroot=lisppaste&content-type=text/vnd.viewcvs-markup">README.lisp</a> + href="/cgi-bin/viewcvs.cgi/lisppaste2/README.lisp?rev=HEAD&cvsroot=lisppaste&content-type=text/vnd.viewcvs-markup">README.lisp</a> file which contains all the information you need to run a lisppaste on your own. @@ -28,18 +36,20 @@ href="/cgi-bin/viewcvs.cgi/?cvsroot=lisppaste">ViewCVS</a> for the curious. - There's a second version of lisppaste in CVS called lisppaste2. - It uses the <a href="/project/net-nittin-irc">net-nittin-irc</a> - library and features an ASDF system. + The current version of lisppaste in CVS called lisppaste2, + after having undergone a fairly major rewrite. It uses the <a + href="/project/cl-irc">cl-irc</a> library and features an ASDF + system. 'lisppaste' is written and copyrighted by Brian Mastenbrook. The sources are covered by an MIT-type license. <hr> <address><a href="mailto:Erik Enge <erik-lisppaste(a)nittin.net>">Erik Enge</a></address> + <address><a href="http://www.cs.indiana.edu/~bmastenb/">Brian Mastenbrook</a></address>   -Last modified: Fri Oct 31 17:17:45 EST 2003 +Last modified: Sat Jan 17 13:49:09 EST 2004  </body> </html>

1 0

[Lisppaste-cvs] CVS update: lisppaste2/.cvsignore
by Brian Mastenbrook 17 Jan '04

17 Jan '04

Update of /project/lisppaste/cvsroot/lisppaste2 In directory common-lisp.net:/tmp/cvs-serv29216 Added Files: .cvsignore Log Message: Foo Bar Date: Sat Jan 17 13:35:45 2004 Author: bmastenbrook

1 0

[Lisppaste-cvs] CVS update: lisppaste2/README.lisp lisppaste2/persistent-pastes.lisp
by Brian Mastenbrook 17 Jan '04

17 Jan '04

Update of /project/lisppaste/cvsroot/lisppaste2 In directory common-lisp.net:/tmp/cvs-serv21216 Modified Files: README.lisp persistent-pastes.lisp Log Message: More bugfixen Date: Sat Jan 17 13:34:37 2004 Author: bmastenbrook Index: lisppaste2/README.lisp diff -u lisppaste2/README.lisp:1.2 lisppaste2/README.lisp:1.3 --- lisppaste2/README.lisp:1.2 Sat Jan 17 13:22:35 2004 +++ lisppaste2/README.lisp Sat Jan 17 13:34:37 2004 @@ -1,4 +1,4 @@ -;;;; $Id: README.lisp,v 1.2 2004/01/17 18:22:35 bmastenbrook Exp $ +;;;; $Id: README.lisp,v 1.3 2004/01/17 18:34:37 bmastenbrook Exp $ ;;;; $Source: /project/lisppaste/cvsroot/lisppaste2/README.lisp,v $ ;;;; See the LICENSE file for licensing information. @@ -12,8 +12,8 @@ ;;; from your httpd.conf. Then, run SBCL and invoke the magical ;;; invocation as follows, or simply (load "README"). -(load "lisppaste.asd") -(asdf:oos 'asdf:load-op :lisppaste) +(require :asdf) +(require :lisppaste) (lisppaste:start-lisppaste :channels '("#lisppaste") :nickname "devpaste" Index: lisppaste2/persistent-pastes.lisp diff -u lisppaste2/persistent-pastes.lisp:1.4 lisppaste2/persistent-pastes.lisp:1.5 --- lisppaste2/persistent-pastes.lisp:1.4 Sat Jan 17 13:29:41 2004 +++ lisppaste2/persistent-pastes.lisp Sat Jan 17 13:34:37 2004 @@ -11,10 +11,11 @@ (cons 'annotations (mapcar #'paste-alist (paste-annotations paste))))) (defun save-pastes-to-file (file-name) - (with-open-file (file file-name :direction :output :if-exists :supersede) - (let ((*print-readably* t)) - (format file "~A~%" (prin1-to-string - (mapcar #'paste-alist *pastes*)))))) + (let ((*package* (find-package :lisppaste))) + (with-open-file (file file-name :direction :output :if-exists :supersede) + (let ((*print-readably* t)) + (format file "~A~%" (prin1-to-string + (mapcar #'paste-alist *pastes*))))))) (defmacro with-assoc-vals (entry-list alist &body body) `(let ,(mapcar #'(lambda (e) (list e `(cdr (assoc ',e ,alist)))) entry-list) @@ -33,6 +34,7 @@ (defun read-pastes-from-file (file-name) (setf *pastes* nil) - (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 + (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

1 0

[Lisppaste-cvs] CVS update: lisppaste2/persistent-pastes.lisp
by Brian Mastenbrook 17 Jan '04

17 Jan '04

Update of /project/lisppaste/cvsroot/lisppaste2 In directory common-lisp.net:/tmp/cvs-serv28903 Modified Files: persistent-pastes.lisp Log Message: stupid bugfix Date: Sat Jan 17 13:29:41 2004 Author: bmastenbrook Index: lisppaste2/persistent-pastes.lisp diff -u lisppaste2/persistent-pastes.lisp:1.3 lisppaste2/persistent-pastes.lisp:1.4 --- lisppaste2/persistent-pastes.lisp:1.3 Sat Jan 17 13:07:21 2004 +++ lisppaste2/persistent-pastes.lisp Sat Jan 17 13:29:41 2004 @@ -28,7 +28,7 @@ :title title :contents contents :universal-time universal-time - :channel (if (not channel) (car *channels*)) + :channel (if (not channel) (car *channels*) channel) :annotations (mapcar #'(lambda (e) (make-paste-from-alist e)) annotations)))) (defun read-pastes-from-file (file-name)

1 0

[Lisppaste-cvs] CVS update: lisppaste2/README.lisp lisppaste2/lisppaste.lisp
by Brian Mastenbrook 17 Jan '04

17 Jan '04

Update of /project/lisppaste/cvsroot/lisppaste2 In directory common-lisp.net:/tmp/cvs-serv13984 Modified Files: README.lisp lisppaste.lisp Log Message: Make lisppaste read pastes from a file on startup, and fix the README Date: Sat Jan 17 13:22:35 2004 Author: bmastenbrook Index: lisppaste2/README.lisp diff -u lisppaste2/README.lisp:1.1.1.1 lisppaste2/README.lisp:1.2 --- lisppaste2/README.lisp:1.1.1.1 Mon Nov 3 12:17:53 2003 +++ lisppaste2/README.lisp Sat Jan 17 13:22:35 2004 @@ -1,4 +1,4 @@ -;;;; $Id: README.lisp,v 1.1.1.1 2003/11/03 17:17:53 eenge Exp $ +;;;; $Id: README.lisp,v 1.2 2004/01/17 18:22:35 bmastenbrook Exp $ ;;;; $Source: /project/lisppaste/cvsroot/lisppaste2/README.lisp,v $ ;;;; See the LICENSE file for licensing information. @@ -15,7 +15,7 @@ (load "lisppaste.asd") (asdf:oos 'asdf:load-op :lisppaste) -(lisppaste:start-lisppaste :channel "#lisppaste" - :nickname "toby" +(lisppaste:start-lisppaste :channels '("#lisppaste") + :nickname "devpaste" :server "irc.freenode.net" :port 6667) Index: lisppaste2/lisppaste.lisp diff -u lisppaste2/lisppaste.lisp:1.3 lisppaste2/lisppaste.lisp:1.4 --- lisppaste2/lisppaste.lisp:1.3 Sat Jan 17 12:54:13 2004 +++ lisppaste2/lisppaste.lisp Sat Jan 17 13:22:35 2004 @@ -1,4 +1,4 @@ -;;;; $Id: lisppaste.lisp,v 1.3 2004/01/17 17:54:13 bmastenbrook Exp $ +;;;; $Id: lisppaste.lisp,v 1.4 2004/01/17 18:22:35 bmastenbrook Exp $ ;;;; $Source: /project/lisppaste/cvsroot/lisppaste2/lisppaste.lisp,v $ ;;;; See the LICENSE file for licensing information. @@ -16,6 +16,7 @@ :port port))) (setf *connection* connection) (setf *channels* channels) + (read-pastes-from-file *paste-file*) (mapcar #'(lambda (channel) (irc:join connection channel)) channels) (araneida:start-listening *paste-listener*) (irc:read-message-loop connection)))

1 0