From 082ef98c1c265ad927b728402d8803a86bbbaeef Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Mon, 18 Apr 2022 15:59:51 +0100
Subject: New dbus signal: SetAlpha (fixes #499)

---
 src/Xmobar/X11/Loop.hs | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src/Xmobar/X11/Loop.hs')

diff --git a/src/Xmobar/X11/Loop.hs b/src/Xmobar/X11/Loop.hs
index 9c1a0f0..631855c 100644
--- a/src/Xmobar/X11/Loop.hs
+++ b/src/Xmobar/X11/Loop.hs
@@ -39,6 +39,7 @@ import qualified Data.List.NonEmpty as NE
 
 import Xmobar.System.Signal
 import Xmobar.Config.Types ( persistent
+                           , alpha
                            , font
                            , additionalFonts
                            , textOffset
@@ -146,6 +147,8 @@ signalLoop xc@(XConf d r w fs vos is cfg) as signal tv = do
          TogglePersistent -> signalLoop
             xc { config = cfg { persistent = not $ persistent cfg } } as signal tv
 
+         SetAlpha a -> signalLoop xc { config = cfg { alpha = a}} as signal tv
+
          Action but x -> action but x
 
     where
-- 
cgit v1.2.3