;;; MODE LINE
-;; Display mode line.
-(toggle-mode-line (current-screen) (current-head))
+;; 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