From 8bd67d77cd91e7f1440178d624786046ac5fe652 Mon Sep 17 00:00:00 2001
From: Simon Ruderich <simon@ruderich.org>
Date: Thu, 26 Feb 2009 14:36:00 -0600
Subject: [PATCH] stumpwm: Better way to enable modeline and display it at the
 bottom.

---
 stumpwmrc | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/stumpwmrc b/stumpwmrc
index 0e84eec..9cd6b1a 100644
--- a/stumpwmrc
+++ b/stumpwmrc
@@ -6,8 +6,13 @@
 
 ;;; 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
-- 
2.45.2