.stumpwmrc

.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")