diff options
author | Tom Willemsen | 2012-09-12 09:19:19 +0200 |
---|---|---|
committer | Tom Willemsen | 2012-09-12 09:19:19 +0200 |
commit | b07b19d057f0ce809ac06a9df9e68bf7a329595f (patch) | |
tree | 79c4c64024d7a745ab183fc3a425361fcf7e3346 | |
parent | 634d5e4217c21b6f35d761accb6d943c637a65d1 (diff) | |
download | dotfiles-b07b19d057f0ce809ac06a9df9e68bf7a329595f.tar.gz dotfiles-b07b19d057f0ce809ac06a9df9e68bf7a329595f.zip |
.stumpwmrc
-rw-r--r-- | .stumpwmrc | 18 |
1 files changed, 14 insertions, 4 deletions
@@ -37,14 +37,16 @@ :cyan "cyan3"))) (getf colours key))) +(defvar *conkeror-program* "conkeror" + "The executable to run to start Conkeror.") (defvar *emacs-program* "emacsclient -c -a emacs" "The executable to run to start Emacs.") (defvar *firefox-program* "firefox" "The executable to run to start Firefox.") -(defvar *urxvt-program* "urxvt" - "The executable to run to start URxvt.") (defvar *i3lock-program* "i3lock -c 000000" "The executable to run to start i3lock.") +(defvar *urxvt-program* "urxvt" + "The executable to run to start URxvt.") (defun get-mail-count (mailbox &optional (inbox "inbox")) "Check how many new messages there are in MAILBOX." @@ -69,6 +71,14 @@ "Open or show Firefox" (run-or-raise *firefox-program* '(:class "Firefox"))) +(defcommand run-conkeror () () + "Open Conkeror" + (run-shell-command *conkeror-program*)) + +(defcommand raise-conkeror () () + "Open or show Conkeror" + (run-or-raise *conkeror-program* '(:class "Conkeror"))) + (defcommand run-urxvt () () "Open URxvt" (run-shell-command *urxvt-program*)) @@ -125,8 +135,8 @@ (define-key *root-map* (kbd "C") "run-urxvt") (define-key *root-map* (kbd "e") "raise-emacs") (define-key *root-map* (kbd "E") "run-emacs") -(define-key *root-map* (kbd "w") "raise-firefox") -(define-key *root-map* (kbd "W") "run-firefox") +(define-key *root-map* (kbd "w") "raise-conkeror") +(define-key *root-map* (kbd "W") "run-conkeror") (define-key *root-map* (kbd "C-b") "windowlist") (define-key *root-map* (kbd "M-b") "move-window left") |