From rgoldman at common-lisp.net  Wed Jun 27 23:16:00 2007
From: rgoldman at common-lisp.net (rgoldman)
Date: Wed, 27 Jun 2007 19:16:00 -0400 (EDT)
Subject: [beirc-cvs] CVS beirc
Message-ID: <20070627231600.82A892D073@common-lisp.net>

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

Modified Files:
	application.lisp 
Log Message:
Fixed bad default value for port in com-command.  Possibly this was a
problem created by a change in cl-irc's API?  At any rate the
structure it was using was a plist instead of a number.

Also made it possible to start beirc *without* reading the user's init
file, using a keyword argument to the beirc function.


--- /project/beirc/cvsroot/beirc/application.lisp	2007/02/25 12:29:58	1.88
+++ /project/beirc/cvsroot/beirc/application.lisp	2007/06/27 23:16:00	1.89
@@ -301,7 +301,7 @@
 
 ;;;
 
-(defun beirc (&key (new-process (processes-supported-p)))
+(defun beirc (&key (new-process (processes-supported-p)) (load-init-file t))
   (let* ((syms '(*package* *trace-output*))
          (vals (mapcar #'symbol-value syms))
          (program (lambda ()
@@ -311,7 +311,8 @@
                                                (clim-sys:make-process (lambda () (ticker frame))
                                                                       :name "Beirc Ticker"))))
                         (setf *beirc-frame* frame)
-                        (load-user-init-file)
+			(when load-init-file
+			  (load-user-init-file))
                         (run-frame-top-level frame)
                         (when (processes-supported-p)
                           (clim-sys:destroy-process ticker-process))
@@ -898,7 +899,16 @@
        :tester ((object)
                 (channel object)))
     (object)
-  (channel object))
+    (channel object))
+
+;;;(define-presentation-to-command-translator close-via-tab-button
+;;;    (tab-pane com-close beirc
+;;;	      :menu t
+;;;	      :gesture nil
+;;;	      :documentation "Close this channel"
+;;;	      :pointer-documentation "Close this channel")
+;;;    (object)
+;;;  (list (channel object)))
 
 (define-presentation-translator nickname-to-hostmask-translator
     (nickname hostmask beirc
@@ -928,13 +938,13 @@
      (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*))
+     (port 'number :prompt "Port" :default nil))
   (let ((success nil)
         (maybe-server-receiver (server-receiver-from-args *application-frame* server port nick)))
     (or (and maybe-server-receiver (connection-open-p maybe-server-receiver))
         (let* ((frame *application-frame*)
                (connection (apply #'irc:connect
-                                  :nickname nick :server server :connection-type 'beirc-connection :port port
+                                  :nickname nick :server server :connection-type 'beirc-connection :port (or port :default)
 				  ;; this works because the default in
 				  ;; cl-irc is NIL, so we don't have
 				  ;; to handle this specially as with