From de2d739902f4539ac4de10d3a9799124c6831559 Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Wed, 8 Oct 2008 07:00:09 +0200
Subject: Make lowerOnStart configurable.  Note this breaks config backwards
 compatibility

darcs-hash:20081008050009-a5988-acb5cda2e3692295abf0bc967acc23e54b55068c.gz
---
 Xmobar.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Xmobar.hs')

diff --git a/Xmobar.hs b/Xmobar.hs
index 48d3fae..8246efd 100644
--- a/Xmobar.hs
+++ b/Xmobar.hs
@@ -135,7 +135,7 @@ createWin d fs c = do
   win <- newWindow  d (defaultScreenOfDisplay d) rootw r o
   selectInput       d win (exposureMask .|. structureNotifyMask)
   setProperties r c d win srs
-  lowerWindow       d win
+  when (lowerOnStart c) (lowerWindow d win)
   mapWindow         d win
   return (r,win)
 
-- 
cgit v1.2.3