----------------------------------------------------------------------------- -- | -- Module : XMonad.Hooks.BorderPerWindow -- Description : Set border width for a window in a ManageHook. -- Copyright : (c) 2021 Xiaokui Shu -- License : BSD-style (see LICENSE) -- -- Maintainer : subbyte@gmail.com -- Stability : unstable -- Portability : unportable -- -- Want to customize border width, for each window on all layouts? Want -- specific window have no border on all layouts? Try this. ----------------------------------------------------------------------------- module XMonad.Hooks.BorderPerWindow ( -- * Usage -- $usage defineBorderWidth , actionQueue -- * Design Considerations -- $design ) where import XMonad import XMonad.Util.ActionQueue (enqueue, actionQueue) -- $usage -- -- To use this module, first import it -- -- > import XMonad.Hooks.BorderPerWindow (defineBorderWidth, actionQueue) -- -- Then specify which window to customize the border of in your -- @manageHook@: -- -- > myManageHook :: ManageHook -- > myManageHook = composeAll -- > [ className =? "firefox" --> defineBorderWidth 0 -- > , className =? "Chromium" --> defineBorderWidth 0 -- > , isDialog --> defineBorderWidth 8 -- > ] -- -- Finally, add the 'actionQueue' combinator and @myManageHook@ to your -- config: -- -- > main = xmonad $ actionQueue $ def -- > { ... -- > , manageHook = myManageHook -- > , ... -- > } -- -- Note that this module is incompatible with other ways of changing -- borders, like "XMonad.Layout.NoBorders". This is because we are -- changing the border exactly /once/ (when the window first appears) -- and not every time some condition is satisfied. -- $design -- -- 1. Keep it simple. Since the extension does not aim to change border setting -- when layout changes, only execute the border setting function once to -- avoid potential window flashing/jumping/scaling. -- -- 2. The 'ManageHook' eDSL is a nice language for specifying windows. Let's -- build on top of it and use it to specify window to define border. defineBorderWidth :: Dimension -> ManageHook defineBorderWidth :: Dimension -> Query (Endo WindowSet) defineBorderWidth Dimension bw = do Window w <- forall r (m :: * -> *). MonadReader r m => m r ask forall a. X a -> Query a liftX forall b c a. (b -> c) -> (a -> b) -> a -> c . X () -> X () enqueue forall a b. (a -> b) -> a -> b $ Window -> Dimension -> X () updateBorderWidth Window w Dimension bw forall m. Monoid m => m idHook updateBorderWidth :: Window -> Dimension -> X () updateBorderWidth :: Window -> Dimension -> X () updateBorderWidth Window w Dimension bw = do forall a. (Display -> X a) -> X a withDisplay forall a b. (a -> b) -> a -> b $ \Display d -> forall (m :: * -> *) a. MonadIO m => IO a -> m a io forall a b. (a -> b) -> a -> b $ Display -> Window -> Dimension -> IO () setWindowBorderWidth Display d Window w Dimension bw X () refresh