;;; The very basic config for StumpWM.

;; Terminal
(defcommand rxvt () () (run-or-raise "rxvt -fg white -bg black -cr grey +sb -geometry 80x40 -sl 5000" '(:class "rxvt")))
(define-key *root-map* (kbd "c") "rxvt")

;; Web browsers
(defcommand firefox () () (run-or-raise "firefox" '(:class "firefox")))
(defcommand google-chrome () () (run-or-raise "google-chrome" '(:class "google-chrome")))
(define-key *root-map* (kbd "f") "firefox")
(define-key *root-map* (kbd "x") "google-chrome")

;; Office
(defcommand acroread () () (run-or-raise "~/bin/acroread" '(:class "acroread")))
(defcommand libreoffice () () (run-or-raise "/usr/bin/libreoffice" '(:class "libreoffice")))
(define-key *root-map* (kbd "l") "libreoffice")
(define-key *root-map* (kbd "M-a") "acroread")

;; Wi-Fi
(defcommand wicd () () (run-or-raise "/usr/bin/wicd-gtk --no-tray" '(:class "wicd")))
(define-key *root-map* (kbd "w") "wicd")

;; System
(defcommand suspend () () (run-or-raise "sudo /usr/sbin/pm-suspend" '(:class "pm")))
(defcommand aumix () () (run-or-raise "aumix" '(:class "aumix")))
(define-key *root-map* (kbd "M-s") "suspend")
(define-key *root-map* (kbd "a") "aumix")