From 509eee4e98b5a9a1362a87f0d88e317d08b4dec2 Mon Sep 17 00:00:00 2001
From: Jochen Keil <jochen.keil@gmail.com>
Date: Fri, 10 Aug 2012 08:42:32 +0200
Subject: New SignalType TogglePersistent

By sending a TogglePersistent signal the configuration option
"persistent" can be changed. Thus it is possible to hide or show xmobar
constantly.
---
 src/Xmobar.hs | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src/Xmobar.hs')

diff --git a/src/Xmobar.hs b/src/Xmobar.hs
index 1ae55bb..adbe956 100644
--- a/src/Xmobar.hs
+++ b/src/Xmobar.hs
@@ -144,6 +144,9 @@ eventLoop tv xc@(XConf d _ w fs cfg) signal = do
          Reveal -> reveal
          Toggle -> toggle
 
+         TogglePersistent -> eventLoop
+            tv xc { config = cfg { persistent = not $ persistent cfg } } signal
+
     where
         isPersistent = not $ persistent cfg
 
-- 
cgit v1.2.3