[beirc-cvs] CVS beirc

[rgoldman]

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