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

Modified Files: beirc.lisp Log Message: on linux systems, use the binary x-www-browser to open URLs.

This assumes that every linux system runs debian. Umm. Don't they?

Date: Wed Sep 14 23:24:01 2005 Author: afuchs

Index: beirc/beirc.lisp diff -u beirc/beirc.lisp:1.5 beirc/beirc.lisp:1.6 --- beirc/beirc.lisp:1.5 Wed Sep 14 23:00:35 2005 +++ beirc/beirc.lisp Wed Sep 14 23:24:00 2005 @@ -400,6 +400,7 @@ (let ((btmp (pane-scrolled-to-bottom-p pane))) (setf (pane-needs-redisplay pane) t) (time (redisplay-frame-pane frame pane)) + (redisplay-frame-pane frame (find-pane-named frame 'receiver-bar)) (when btmp (scroll-pane-to-bottom pane))) (medium-force-output (sheet-medium pane)) ;### @@ -522,7 +523,11 @@ #+ (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)) + (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))

(define-presentation-to-command-translator url-to-browse-url-translator (url com-browse-url beirc)