From 082ef98c1c265ad927b728402d8803a86bbbaeef Mon Sep 17 00:00:00 2001 From: jao Date: Mon, 18 Apr 2022 15:59:51 +0100 Subject: New dbus signal: SetAlpha (fixes #499) --- src/Xmobar/System/Signal.hs | 1 + src/Xmobar/X11/Loop.hs | 3 +++ 2 files changed, 4 insertions(+) (limited to 'src') diff --git a/src/Xmobar/System/Signal.hs b/src/Xmobar/System/Signal.hs index 3983654..81a4481 100644 --- a/src/Xmobar/System/Signal.hs +++ b/src/Xmobar/System/Signal.hs @@ -46,6 +46,7 @@ data SignalType = Wakeup | Hide Int | Reveal Int | Toggle Int + | SetAlpha Int | TogglePersistent | Action Button Position deriving (Read, Show) 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