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

[Andreas Fuchs]

Update of /project/beirc/cvsroot/beirc
In directory common-lisp.net:/tmp/cvs-serv3317

Modified Files:
	application.lisp variables.lisp 
Log Message:
Make the web browser program customizable.

Date: Sun Oct  2 10:30:41 2005
Author: afuchs

Index: beirc/application.lisp
diff -u beirc/application.lisp:1.20 beirc/application.lisp:1.21
--- beirc/application.lisp:1.20	Sun Oct  2 10:25:37 2005
+++ beirc/application.lisp	Sun Oct  2 10:30:41 2005
@@ -388,14 +388,10 @@
   (irc:nick (current-connection *application-frame*) new-nick))
 
 (define-beirc-command (com-browse-url :name t) ((url 'url :prompt "url"))
-  #+ (and sbcl darwin)
-  (sb-ext:run-program "/usr/bin/open" `(,url) :wait nil)
-  #+ (and openmcl darwin)
-  (ccl:run-program "/usr/bin/open" `(,url) :wait nil)
-  ;; XXX: daring assumption. perhaps this should use x-www-browser on
-  ;; debian/debian systems?
-  #+ (and sbcl linux) 
-  (sb-ext:run-program "/usr/bin/x-www-browser" `(,url) :wait nil))
+  #+sbcl
+  (sb-ext:run-program *default-web-browser* `(,url) :wait nil)
+  #+openmcl
+  (ccl:run-program *default-web-browser* `(,url) :wait nil))
 
 (define-presentation-to-command-translator nickname-to-ignore-translator
     (nickname com-ignore beirc


Index: beirc/variables.lisp
diff -u beirc/variables.lisp:1.3 beirc/variables.lisp:1.4
--- beirc/variables.lisp:1.3	Sun Sep 25 20:57:25 2005
+++ beirc/variables.lisp	Sun Oct  2 10:30:41 2005
@@ -4,6 +4,9 @@
 (defvar *default-fill-column* 80)
 (defvar *timestamp-column-orientation* :right)
 (defvar *default-nick* (format nil "Brucio-~d" (random 100)))
+(defvar *default-web-browser* #+darwin "/usr/bin/open"
+                              ;; assuming a debian system running X:
+                              #+linux  "/usr/bin/x-www-browser")
 
 (defvar *beirc-user-init-file* (merge-pathnames (make-pathname :name ".beirc.lisp")
                                                 (user-homedir-pathname)))