tweak the web browser detection
authorD Herring <dherring@at.tentpost.dot.com>
Mon, 7 Nov 2011 03:08:24 +0000 (22:08 -0500)
committerD Herring <dherring@at.tentpost.dot.com>
Mon, 7 Nov 2011 03:08:24 +0000 (22:08 -0500)
- don't clutter *features*
- make sure *web-browser* is always in a proper defparameter form

This could use some more robust code (e.g. a probe-file or the like)
or at least better platform detection.

config.lisp
defpackage.lisp

index 669fea0..ccd8c46 100644 (file)
   by the browser specified in *web-browser* below")
 
 (defparameter *web-browser*
-  #+:able-windows "C:/Progra~1/Intern~1/iexplore.exe"
-  #+:able-linux "/usr/bin/firefox"
-  #+:able-macosx "open")
+  (first
+   (list
+    #+(or (and :clisp :win32) (and :sbcl :win32) (and :ccl :windows))
+    "C:/Progra~1/Intern~1/iexplore.exe"
+    #+(or (and :clisp :unix (not :macos)) (and :sbcl :linux) (and :ccl :linux))
+    "/usr/bin/firefox"
+    #+(or (and :ccl :darwin) (and :clisp :macos) (and :sbcl :darwin))
+    "open"
+    ;; default
+    "firefox")))
 
 (defparameter *user-load-paths* nil
   "A list of additional user specified places to find systems")
index 711164f..419e90e 100644 (file)
 
 ;;; SBCL needs to load it's introspection library.
 #+:sbcl (require :sb-introspect)
-
-;;; Operating system detection.
-#+(or (and :clisp :win32) (and :sbcl :win32) (and :ccl :windows))
-  (push :able-windows *features*)
-#+(or (and :clisp :unix (not :macos)) (and :sbcl :linux) (and :ccl :linux))
-  (push :able-linux *features*)
-#+(or (and :ccl :darwin) (and :clisp :macos) (and :sbcl :darwin))
-  (push :able-macosx *features*)
-
-
-
-
-
-
-
-
-
-
-