Don't like ads? PRO users don't see any ads ;-)
Guest

Untitled

By: a guest on Apr 25th, 2012  |  syntax: Lisp  |  size: 0.22 KB  |  hits: 19  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. (defcommand firefox () ()
  2.   "Start Firefox or switch to it, if it is already running."
  3.   (run-or-raise "firefox" '(:class "Firefox")))
  4. (define-key *root-map* (kbd "f") "firefox")
  5. (define-key *top-map* (kbd "C-M-f") "firefox")