;;;;
;;;; source file of the GNU LilyPond music typesetter
;;;;
-;;;; (c) 2005 Jan Nieuwenhuizen <janneke@gnu.org>
+;;;; (c) 2005--2006 Jan Nieuwenhuizen <janneke@gnu.org>
;; gui debug helper
;; (define (exit x) (system "sleep 10"))
(exit 1)))))
(define (run-browser uri)
-
- ;; TODO: make educated guess which browser to run.
- (system (format #f "firefox -remote 'OpenURL(~a,new-tab)'" uri)))
+ (system
+ (if (getenv "BROWSER")
+ (format "~a ~a" (getenv "BROWSER") uri)
+ (format #f "firefox -remote 'OpenURL(~a,new-tab)'" uri))))
(define (main args)
(let ((files (parse-options args)))