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