Emacs Application Launcher

gistfile1.el

;; --------------------
;; Application Launcher
;; --------------------
;; For OSX, where the "open" command knows most of what you would like to do.

(setq msv-launchers '(("conk" . (shell-command "open -a conkeror"))
		      ("fox" . (shell-command "open -a firefox"))
		      ("pfox" . (shell-command "open -a firefox --args -private"))
		      ("finder" . (shell-command "open ~/Documents"))
		      ("download" . (shell-command "open ~/Downloads"))
		      ("cal" . (shell-command "open -a iCal"))
		      ("skim" . (shell-command "open -a Skim"))
		      ("mail" . (call-interactively 'msv-open-inbox))
		      ("term" . (shell-command "open -a Terminal"))
		      ("its" . (shell-command "open https://www.itslearning.com/elogin/default.aspx?CustomerId=640"))
		      ("google" . (call-interactively 'msv-lmgtfy))
		      ))

(defun msv-launch (arg)
  (interactive
   (list
    (completing-read "Launch: " (loop for (key value) on msv-launchers collect (car key)))))
  (eval (cdr (assoc arg msv-launchers)))
  nil)

(defun msv-lmgtfy (arg)
  "Let me google that for you"
  (interactive "MGoogle: ")  
  (shell-command (concat
   		  "open "
   		  "http://www.google.com/"
   		  "search?q="
   		  (url-hexify-string arg))))

(setq shell-file-name "bash")
(setq shell-command-switch "-ic")