| 1 | (in-package :stumpwm)
|
|---|
| 2 |
|
|---|
| 3 | (setq *startup-message* nil)
|
|---|
| 4 | (setq *startup-mode-line* t)
|
|---|
| 5 |
|
|---|
| 6 | (set-module-dir "~/stumpwm/contrib")
|
|---|
| 7 |
|
|---|
| 8 | ;; Modeline Battery
|
|---|
| 9 | (load-module "battery-portable")
|
|---|
| 10 | (load-module "cpu")
|
|---|
| 11 | (load-module "mem")
|
|---|
| 12 |
|
|---|
| 13 | (setf *mode-line-pad-x* 8
|
|---|
| 14 | *mode-line-pad-y* 1
|
|---|
| 15 | *mode-line-timeout* 1
|
|---|
| 16 | *window-border-style* :thin
|
|---|
| 17 | *frame-number-map* "1234567890"
|
|---|
| 18 | *mode-line-position* :top
|
|---|
| 19 | *window-format* "%m%n%s%c"
|
|---|
| 20 | *cpu-modeline-fmt* "%C"
|
|---|
| 21 | *window-name-source* :class
|
|---|
| 22 | *delim* " ^2::^7 "
|
|---|
| 23 | *screen-mode-line-format* (list
|
|---|
| 24 | ;; Windows
|
|---|
| 25 | ;;"[^B%n^b]"
|
|---|
| 26 | "^7%W ^>^7"
|
|---|
| 27 | ;; CPU
|
|---|
| 28 | "%C" *delim*
|
|---|
| 29 | ;; RAM
|
|---|
| 30 | "%M" *delim*
|
|---|
| 31 | ;; Battery
|
|---|
| 32 | "%B" *delim*
|
|---|
| 33 | ;; Date
|
|---|
| 34 | "%d"
|
|---|
| 35 | ))
|
|---|
| 36 |
|
|---|
| 37 | ;; launch Web browser
|
|---|
| 38 | (defcommand next () ()
|
|---|
| 39 | "Start Icecat or switch to it, if it is already running."
|
|---|
| 40 | (run-or-raise "next" '(:class "Next")))
|
|---|
| 41 | (define-key *root-map* (kbd "B") "next")
|
|---|
| 42 |
|
|---|
| 43 | ;; launch terminal
|
|---|
| 44 | (defcommand urxvt () ()
|
|---|
| 45 | "Start Urxvt or switch to it, if it is already running."
|
|---|
| 46 | (run-or-raise "urxvt" '(:class "Urxvt")))
|
|---|
| 47 | (define-key *root-map* (kbd "c") "urxvt")
|
|---|
| 48 |
|
|---|
| 49 | ;; Change xterm to urxvt
|
|---|
| 50 | (define-key *root-map* (kbd "C") "exec urxvt")
|
|---|
| 51 |
|
|---|
| 52 | ;; Change emacs to emacsclient
|
|---|
| 53 | (defcommand emacsclient () ()
|
|---|
| 54 | "Start Urxvt or switch to it, if it is already running."
|
|---|
| 55 | (run-or-raise "emacsclient -c -a emaces" '(:class "Emacs")))
|
|---|
| 56 | (define-key *root-map* (kbd "e") "emacsclient -c -a emaces")
|
|---|
| 57 |
|
|---|
| 58 | ;; Volume Management
|
|---|
| 59 | (progn
|
|---|
| 60 | (define-key *top-map* (kbd "XF86AudioLowerVolume") "exec amixer -q sset Master 3%-")
|
|---|
| 61 | (define-key *top-map* (kbd "XF86AudioRaiseVolume") "exec amixer -q sset Master 3%+")
|
|---|
| 62 | (define-key *top-map* (kbd "XF86AudioMute") "amixer -q sset Master toggle"))
|
|---|
| 63 |
|
|---|
| 64 | ;; Mode-line
|
|---|
| 65 | (progn
|
|---|
| 66 | (enable-mode-line (current-screen) (current-head) t))
|
|---|
