X-Git-Url: https://ruderich.org/simon/gitweb/?a=blobdiff_plain;f=stumpwmrc;h=1545d33767d17ecd81151079d86b97f5fb61330d;hb=1b60bd1aff81fdcdf655ffcc09481a0f5288987b;hp=8e93597ff955be11a1aa2213c28d2a53285b3df9;hpb=ad32c67723150f9d323581956e277b17e416fd92;p=config%2Fdotfiles.git

diff --git a/stumpwmrc b/stumpwmrc
index 8e93597..1545d33 100644
--- a/stumpwmrc
+++ b/stumpwmrc
@@ -3,12 +3,23 @@
 
 (in-package :stumpwm)
 
-;; Display mode line.
-(toggle-mode-line (current-screen) (current-head))
+
+;;; MODE LINE
+
+;; Display mode line at the bottom of the screen.
+(setf *mode-line-position* :bottom)
+;; Display mode line and allow loading of stumpwmrc multiple times. Thanks to
+;; http://prael.wordpress.com/stumpwmrc/ and
+;; http://hcl-club.lu/svn/development/lisp/.stumpwmrc
+(if (not (head-mode-line (current-head)))
+     (toggle-mode-line (current-screen) (current-head)))
+
+
+;;; KEY MAPPINGS
 
 ;; Remove bindings to kill a window. Too dangerous for a Vim user.
-(undefine-key *root-map* (kbd "k"))
-(undefine-key *root-map* (kbd "C-k"))
-(undefine-key *root-map* (kbd "K"))
+(undefine-key *group-root-map* (kbd "k"))
+(undefine-key *group-root-map* (kbd "C-k"))
+(undefine-key *group-root-map* (kbd "K"))
 
 ;; vim: ft=lisp