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