mirror of
https://github.com/xmonad/xmonad.git
synced 2025-05-19 08:30:21 -07:00
Reduce flicker on workspace change.
This commit is contained in:
parent
cf814ea946
commit
5afd9dbc20
2
Main.hs
2
Main.hs
@ -285,8 +285,8 @@ view o = do
|
|||||||
ws <- gets workspace
|
ws <- gets workspace
|
||||||
let m = W.current ws
|
let m = W.current ws
|
||||||
when (n /= m) $ do
|
when (n /= m) $ do
|
||||||
mapM_ hide (W.index m ws)
|
|
||||||
mapM_ reveal (W.index n ws)
|
mapM_ reveal (W.index n ws)
|
||||||
|
mapM_ hide (W.index m ws)
|
||||||
windows $ W.view n
|
windows $ W.view n
|
||||||
where n = o-1
|
where n = o-1
|
||||||
|
|
||||||
|
Loading…
x
Reference in New Issue
Block a user