Reduce flicker on workspace change.

2025-07-30 19:51:52 -07:00 · 2007-03-10 04:10:21 +00:00
parent cf814ea946
commit 5afd9dbc20
1 changed files with 1 additions and 1 deletions
--- a/Main.hs
+++ b/Main.hs
@@ -285,8 +285,8 @@ view o = do
    ws <- gets workspace
    let m = W.current ws
    when (n /= m) $ do
-        mapM_ hide   (W.index m ws)
        mapM_ reveal (W.index n ws)
+        mapM_ hide   (W.index m ws)
        windows $ W.view n
    where n = o-1