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/Signal.hs | 1 +
 src/Xmobar.hs | 3 +++
 2 files changed, 4 insertions(+)

(limited to 'src')

diff --git a/src/Signal.hs b/src/Signal.hs
index 0acdea1..ad19fdd 100644
--- a/src/Signal.hs
+++ b/src/Signal.hs
@@ -16,6 +16,7 @@ data SignalType = Wakeup
                 | Hide
                 | Reveal
                 | Toggle
+                | TogglePersistent
     deriving (Read, Show)
 
 -- | Signal handling
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