diff options
| -rw-r--r-- | src/Xmobar.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/Xmobar.hs b/src/Xmobar.hs index f531cb4..6be0d0c 100644 --- a/src/Xmobar.hs +++ b/src/Xmobar.hs @@ -176,7 +176,10 @@ eventLoop tv xc@(XConf d _ w fs cfg) signal = do $ threadDelay t >> atomically (putTMVar signal $ Reveal 0) eventLoop tv xc signal - toggle t = isMapped d w >>= \b -> if b then hide t else reveal t + toggle t = do + ismapped <- isMapped d w + atomically (putTMVar signal $ if ismapped then Hide t else Reveal t) + eventLoop tv xc signal reposWindow rcfg = do r' <- repositionWin d w fs rcfg |