From 1b6f2356e7f439e0755637dced62ddfb142199a7 Mon Sep 17 00:00:00 2001 From: Konrad Hinsen Date: Sun, 28 Jun 2015 16:53:40 -0500 Subject: [PATCH] Simplified browser configuration for MacOS X Add an optional #:browser argument to send-url/mac and export it. This makes it straightforward to use different browsers and/or to configure a different one: (require net/sendurl) (external-browser (lambda (url) (send-url/mac url #:browser "Conkeror"))) --- net-lib/net/sendurl.rkt | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/net-lib/net/sendurl.rkt b/net-lib/net/sendurl.rkt index cee936887a..37c19cede1 100644 --- a/net-lib/net/sendurl.rkt +++ b/net-lib/net/sendurl.rkt @@ -5,7 +5,7 @@ (require racket/system racket/file racket/promise racket/port) -(provide send-url send-url/file send-url/contents +(provide send-url send-url/file send-url/contents send-url/mac unix-browser-list browser-preference? external-browser) (define separate-by-default? @@ -156,8 +156,12 @@ (send-url/file temp))) (define osascript (delay/sync (find-executable-path "osascript" #f))) -(define (send-url/mac url) - (browser-run (force osascript) "-e" (format "open location \"~a\"" url))) +(define (send-url/mac url #:browser [browser #f]) + (browser-run (force osascript) "-e" + (if browser + (format "tell application \"~a\" to open location \"~a\"" + browser url) + (format "open location \"~a\"" url)))) (define (send-url/unix url separate-window?) ;; in cases where a browser was uninstalled, we might get a preference that