refactored "focus changed" code into "refocus"

2025-07-31 12:11:53 -07:00 · 2007-03-30 03:54:54 +00:00
parent a5e3f1daa0
commit 207bd516e1
2 changed files with 11 additions and 3 deletions
--- a/Main.hs
+++ b/Main.hs
@@ -127,6 +127,7 @@ safeFocus w = do ws <- gets workspace
                    then setFocus w
                    else do b <- isRoot w
                            when b setTopFocus
+                 refocus

 handle :: Event -> X ()