X-Git-Url: https://ruderich.org/simon/gitweb/?p=config%2Fdotfiles.git;a=blobdiff_plain;f=x11%2Fstumpwmrc;fp=x11%2Fstumpwmrc;h=a8ac4537e480ac3003fc042c097aea75329996e7;hp=0000000000000000000000000000000000000000;hb=d11857eb2b9693235ed3531144a6b0a4d5cb1740;hpb=e0a76c26f9164e070166fcc62e1c287cc1033eef

diff --git a/x11/stumpwmrc b/x11/stumpwmrc
new file mode 100644
index 0000000..a8ac453
--- /dev/null
+++ b/x11/stumpwmrc
@@ -0,0 +1,40 @@
+;; Configuration file for Stumpwm.
+
+;; Copyright (C) 2011-2012  Simon Ruderich
+;;
+;; This file is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+;;
+;; This file is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with this file.  If not, see <http://www.gnu.org/licenses/>.
+
+
+(in-package :stumpwm)
+
+
+;;; 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 *group-root-map* (kbd "k"))
+(undefine-key *group-root-map* (kbd "C-k"))
+(undefine-key *group-root-map* (kbd "K"))
+
+;; vim: ft=lisp