From b07b19d057f0ce809ac06a9df9e68bf7a329595f Mon Sep 17 00:00:00 2001 From: Tom Willemsen Date: Wed, 12 Sep 2012 09:19:19 +0200 Subject: [PATCH] .stumpwmrc --- .stumpwmrc | 18 ++++++++++++++---- 1 file changed, 14 insertions(+), 4 deletions(-) diff --git a/.stumpwmrc b/.stumpwmrc index 4a08388..e2f6662 100644 --- a/.stumpwmrc +++ b/.stumpwmrc @@ -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")