diff options
Diffstat (limited to 'XMonad/Operations.hs')
| -rw-r--r-- | XMonad/Operations.hs | 12 |
1 files changed, 2 insertions, 10 deletions
diff --git a/XMonad/Operations.hs b/XMonad/Operations.hs index c82cb2f..4a3e3fc 100644 --- a/XMonad/Operations.hs +++ b/XMonad/Operations.hs @@ -92,11 +92,10 @@ windows f = do let oldvisible = concatMap (W.integrate' . W.stack . W.screenWorkspace) $ W.screens old newwindows = W.allWindows ws \\ W.allWindows old ws = f old - XConf { display = d , normalBorder = nbc, focusedBorder = fbc } <- ask + XConf { display = d } <- ask mapM_ setInitialProperties newwindows - whenJust (W.peek old) $ \otherw -> io $ setWindowBorder d otherw nbc modify (\s -> s { windowset = ws }) -- notify non visibility @@ -129,8 +128,6 @@ windows f = do mapM_ (uncurry tileWindow) rects - whenJust (W.peek ws) $ \w -> io $ setWindowBorder d w fbc - mapM_ reveal visible setTopFocus @@ -182,14 +179,9 @@ reveal w = withDisplay $ \d -> do -- | Set some properties when we initially gain control of a window setInitialProperties :: Window -> X () -setInitialProperties w = asks normalBorder >>= \nb -> withDisplay $ \d -> do +setInitialProperties w = withDisplay $ \d -> do setWMState w iconicState asks (clientMask . config) >>= io . selectInput d w - bw <- asks (borderWidth . config) - io $ setWindowBorderWidth d w bw - -- we must initially set the color of new windows, to maintain invariants - -- required by the border setting in 'windows' - io $ setWindowBorder d w nb -- | refresh. Render the currently visible workspaces, as determined by -- the 'StackSet'. Also, set focus to the focused window. |