[beirc-cvs] CVS update: beirc/application.lisp beirc/variables.lisp

[Max-Gerd Retzlaff]

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