[beirc-cvs] CVS beirc

[dlichteblau]

Update of /project/beirc/cvsroot/beirc
In directory clnet:/tmp/cvs-serv28686

Modified Files:
	application.lisp 
Log Message:
when /nick is used before /connect, set *default-nick* instead of
erroring out on the non-existing connection


--- /project/beirc/cvsroot/beirc/application.lisp	2007/02/24 19:33:37	1.87
+++ /project/beirc/cvsroot/beirc/application.lisp	2007/02/25 12:29:58	1.88
@@ -691,7 +691,13 @@
                    (format nil "~AACTION ~A~A" (code-char 1) what (code-char 1)))))
 
 (define-beirc-command (com-nick :name t) ((new-nick 'string :prompt "new nick"))
-  (irc:nick (current-connection *application-frame*) new-nick))
+  (let ((connection (current-connection *application-frame*)))
+    (cond
+      (connection
+	(irc:nick connection new-nick))
+      (t
+	(format *standard-input* "Default nickname set to ~A.~%" new-nick)
+	(setf *default-nick* new-nick)))))
 
 (define-beirc-command (com-browse-url :name t) ((url 'url :prompt "url"))
   (handler-case