source: dotfiles/wm/.stumpwmrc@ c39b1a4

(in-package :stumpwm)

(setq *startup-message* nil)
(setq *startup-mode-line* t)

(set-module-dir "~/stumpwm/contrib")

;; Modeline Battery
(load-module "battery-portable")
(load-module "cpu")
(load-module "mem")

(setf *mode-line-pad-x* 8
      *mode-line-pad-y* 1
      *mode-line-timeout* 2
      *window-border-style* :thin
      *frame-number-map* "1234567890"
      *mode-line-position* :top
      *window-format* "%m%n%s%c"
      *cpu-modeline-fmt* "%C"
      *delim* " ^2::^7 "
      *screen-mode-line-format* (list
                                 ;; Windows
                                 ;;"[^B%n^b]"
                                 "^7%W ^>^7"
                                 ;; CPU
                                 "%C" *delim*
                                 ;; RAM
                                 "%M" *delim*
                                 ;; Battery
                                 "%B" *delim*
                                 ;; Date
                                 "%d"
                                 ))

;; launch Web browser
(defcommand icecat () ()
  "Start Icecat or switch to it, if it is already running."
  (run-or-raise "icecat" '(:class "IceCat")))
(define-key *root-map* (kbd "B") "icecat")

;; Change xterm to urxvt
(define-key *root-map* (kbd "c") "exec urxvt")

;; Volume Management
(progn
  (define-key *top-map* (kbd "XF86AudioLowerVolume") "exec amixer -q sset Master 3%-")
  (define-key *top-map* (kbd "XF86AudioRaiseVolume") "exec amixer -q sset Master 3%+")
  (define-key *top-map* (kbd "XF86AudioMute") "amixer -q sset Master toggle"))

;; Mode-line
(progn
  (enable-mode-line (current-screen) (current-head) t))