twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-08-15 20:13:47 -07:00
Code Issues Packages Projects Releases Wiki Activity

set border color more judiciously, so layouts can customize this.

Browse Source
This commit is contained in:
David Roundy
2007-09-28 23:53:46 +00:00
parent 60a40be09e
commit d05b01431d
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Operations.hs
View File

@@ -118,8 +118,9 @@ windows f = do
XState { windowset = old } <- get XState { windowset = old } <- get
let oldvisible = concatMap (W.integrate' . W.stack . W.workspace) $ W.current old : W.visible old let oldvisible = concatMap (W.integrate' . W.stack . W.workspace) $ W.current old : W.visible old
ws = f old ws = f old
XConf { display = d , normalBorder = nbc, focusedBorder = fbc } <- ask
whenJust (W.peek old) $ \otherw -> io $ setWindowBorder d otherw nbc
modify (\s -> s { windowset = ws }) modify (\s -> s { windowset = ws })
d <- asks display
-- notify non visibility -- notify non visibility
let tags_oldvisible = map (W.tag . W.workspace) $ W.current old : W.visible old let tags_oldvisible = map (W.tag . W.workspace) $ W.current old : W.visible old
@@ -163,6 +164,7 @@ windows f = do
-- return the visible windows for this workspace: -- return the visible windows for this workspace:
return vs return vs
whenJust (W.peek ws) $ \w -> io $ setWindowBorder d w fbc
setTopFocus setTopFocus
logHook logHook
-- io performGC -- really helps, but seems to trigger GC bugs? -- io performGC -- really helps, but seems to trigger GC bugs?
@@ -284,19 +286,17 @@ focus w = withWindowSet $ \s -> do
-- | Call X to set the keyboard focus details. -- | Call X to set the keyboard focus details.
setFocusX :: Window -> X () setFocusX :: Window -> X ()
setFocusX w = withWindowSet $ \ws -> do setFocusX w = withWindowSet $ \ws -> do
XConf { display = dpy , normalBorder = nbc, focusedBorder = fbc } <- ask dpy <- asks display
-- clear mouse button grab and border on other windows -- clear mouse button grab and border on other windows
forM_ (W.current ws : W.visible ws) $ \wk -> do forM_ (W.current ws : W.visible ws) $ \wk -> do
forM_ (W.index (W.view (W.tag (W.workspace wk)) ws)) $ \otherw -> do forM_ (W.index (W.view (W.tag (W.workspace wk)) ws)) $ \otherw -> do
setButtonGrab True otherw setButtonGrab True otherw
io $ setWindowBorder dpy otherw nbc
-- If we ungrab buttons on the root window, we lose our mouse bindings. -- If we ungrab buttons on the root window, we lose our mouse bindings.
whenX (not `liftM` isRoot w) $ setButtonGrab False w whenX (not `liftM` isRoot w) $ setButtonGrab False w
io $ do setInputFocus dpy w revertToPointerRoot 0 io $ do setInputFocus dpy w revertToPointerRoot 0
-- raiseWindow dpy w -- raiseWindow dpy w
io $ setWindowBorder dpy w fbc
-- | Throw a message to the current Layout possibly modifying how we -- | Throw a message to the current Layout possibly modifying how we
-- layout the windows, then refresh. -- layout the windows, then refresh.