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

[Andreas Fuchs]

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)