]> ruderich.org/simon Gitweb - config/dotfiles.git/blob - stumpwmrc
1545d33767d17ecd81151079d86b97f5fb61330d
[config/dotfiles.git] / stumpwmrc
1 ;; Configuration file for Stumpwm.
2
3
4 (in-package :stumpwm)
5
6
7 ;;; MODE LINE
8
9 ;; Display mode line at the bottom of the screen.
10 (setf *mode-line-position* :bottom)
11 ;; Display mode line and allow loading of stumpwmrc multiple times. Thanks to
12 ;; http://prael.wordpress.com/stumpwmrc/ and
13 ;; http://hcl-club.lu/svn/development/lisp/.stumpwmrc
14 (if (not (head-mode-line (current-head)))
15      (toggle-mode-line (current-screen) (current-head)))
16
17
18 ;;; KEY MAPPINGS
19
20 ;; Remove bindings to kill a window. Too dangerous for a Vim user.
21 (undefine-key *group-root-map* (kbd "k"))
22 (undefine-key *group-root-map* (kbd "C-k"))
23 (undefine-key *group-root-map* (kbd "K"))
24
25 ;; vim: ft=lisp