twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-04 06:01:52 -07:00
Code Issues Packages Projects Releases Wiki Activity

X.H.FadeWindows: Default to opacity 1

Browse Source
This commit is contained in:
slotThe
2020-12-15 17:07:18 +01:00
parent bd9a79cb80
commit d6cc525500
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
XMonad/Hooks/FadeWindows.hs
View File

@@ -205,7 +205,7 @@ fadeWindowsLogHook h = withWindowSet $ \s -> do
forM_ visibleWins $ \w -> do forM_ visibleWins $ \w -> do
o <- userCodeDef (Opacity 1) (runQuery h w) o <- userCodeDef (Opacity 1) (runQuery h w)
setOpacity w $ case o of setOpacity w $ case o of
OEmpty -> 0.93 OEmpty -> 1
Opacity r -> r Opacity r -> r
-- | A 'handleEventHook' to handle fading and unfading of newly mapped -- | A 'handleEventHook' to handle fading and unfading of newly mapped