From 8efee15bffbbc2d437aca69c5c8d45cc82740b3e Mon Sep 17 00:00:00 2001 From: Erik Davis Date: Wed, 17 Nov 2021 00:10:11 -0800 Subject: [PATCH] small fixups re: browser & browser commands --- browser.lisp | 4 ++-- plot.lisp | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/browser.lisp b/browser.lisp index 029b4d7..f94f4c6 100644 --- a/browser.lisp +++ b/browser.lisp @@ -21,10 +21,10 @@ ;;; (defparameter *browser-commands* (list (cons :chrome #+windows "C:\\Program Files (x86)\\Google\\Chrome\\Application\\chrome.exe" - #+macos "/Applications/Google Chrome.app/Contents/MacOS/Google Chrome" + #+(or macos darwin) "/Applications/Google Chrome.app/Contents/MacOS/Google Chrome" #+linux "chrome") ;See https://unix.stackexchange.com/questions/436835/universal-path-for-chrome-on-nix-systems (cons :firefox #+windows "C:\\Program Files (x86)\\Mozilla Firefox\\firefox.exe" - #+macos "/Applications/Firefox.app/Contents/MacOS/firefox" + #+(or macos darwin) "/Applications/Firefox.app/Contents/MacOS/firefox" #+linux "firefox") (cons :default #+windows "explorer" #+(or macos darwin) "open" diff --git a/plot.lisp b/plot.lisp index 114cc56..6f16869 100644 --- a/plot.lisp +++ b/plot.lisp @@ -7,7 +7,7 @@ (let ((plot-file (namestring (truename filespec)))) #+windows (setf plot-file (concatenate 'string "file:///" plot-file)) (uiop:launch-program `(,(alexandria:assoc-value plot:*browser-commands* browser) - ,@(case browser + ,(case browser (:chrome (if (assoc "app" browser-options :test 'string=) (setf (cdr (assoc "app" browser-options :test 'string=)) plot-file)) (encode-chrome-options browser-options))