Update of /project/beirc/cvsroot/beirc In directory clnet:/tmp/cvs-serv16201
Modified Files: application.lisp variables.lisp Log Message: Added *default-realname* variable and made com-connect set realname.
--- /project/beirc/cvsroot/beirc/application.lisp 2006/04/21 16:58:58 1.80 +++ /project/beirc/cvsroot/beirc/application.lisp 2006/04/26 18:22:54 1.81 @@ -922,6 +922,7 @@ ((server 'string :prompt "Server") &key (nick 'string :prompt "Nick name" :default *default-nick*) + (realname 'string :prompt "Real name (phrase)" :default *default-realname*) (pass 'string :prompt "Password" :default nil) (port 'number :prompt "Port" :default irc::*default-irc-server-port*)) (let ((success nil) @@ -930,6 +931,11 @@ (let* ((frame *application-frame*) (connection (apply #'irc:connect :nickname nick :server server :connection-type 'beirc-connection :port port + ;; this works because the default in + ;; cl-irc is NIL, so we don't have + ;; to handle this specially as with + ;; password. + :realname realname (if (null pass) nil `(:password ,pass)))) --- /project/beirc/cvsroot/beirc/variables.lisp 2006/04/07 01:42:56 1.15 +++ /project/beirc/cvsroot/beirc/variables.lisp 2006/04/26 18:22:54 1.16 @@ -4,6 +4,8 @@ (defvar *default-fill-column* 80) (defvar *timestamp-column-orientation* :right) (defvar *default-nick* (format nil "Brucio-~d" (random 100))) +(defvar *default-realname* NIL + "Either a string or NIL.") (defvar *default-web-browser* #+darwin "/usr/bin/open" ;; assuming a debian system running X: #+linux "/usr/bin/x-www-browser")