Update of /project/beirc/cvsroot/beirc In directory common-lisp.net:/tmp/cvs-serv20162
Modified Files: application.lisp variables.lisp Log Message: Adds the new variable *default-nick* with the default value "brucio-X" (where X is a random number below 100).
The second parameter NICK of COM-CONNECT is now a &KEY parameter, the default being *default-nick*.
Date: Sun Sep 25 20:57:25 2005 Author: mretzlaff
Index: beirc/application.lisp diff -u beirc/application.lisp:1.9 beirc/application.lisp:1.10 --- beirc/application.lisp:1.9 Sun Sep 25 20:21:08 2005 +++ beirc/application.lisp Sun Sep 25 20:57:25 2005 @@ -479,7 +479,9 @@ (irc:join (current-connection *application-frame*) channel))
(define-beirc-command (com-connect :name t) - ((server 'string :prompt "Server") (nick 'string :prompt "Nick name")) + ((server 'string :prompt "Server") + &key + (nick 'string :prompt "Nick name" :default *default-nick*)) (cond ((current-connection *application-frame*) (format *query-io* "You are already connected.~%")) (t
Index: beirc/variables.lisp diff -u beirc/variables.lisp:1.2 beirc/variables.lisp:1.3 --- beirc/variables.lisp:1.2 Sun Sep 25 14:55:10 2005 +++ beirc/variables.lisp Sun Sep 25 20:57:25 2005 @@ -1,8 +1,9 @@ (in-package :beirc)
-(defparameter *hyperspec-base-url* "file://localhost/Users/dmurray/lisp/HyperSpec/") -(defparameter *default-fill-column* 80) -(defparameter *timestamp-column-orientation* :right) +(defvar *hyperspec-base-url* "file://localhost/Users/dmurray/lisp/HyperSpec/") +(defvar *default-fill-column* 80) +(defvar *timestamp-column-orientation* :right) +(defvar *default-nick* (format nil "Brucio-~d" (random 100)))
(defvar *beirc-user-init-file* (merge-pathnames (make-pathname :name ".beirc.lisp") (user-homedir-pathname)))