diff options
Diffstat (limited to 'src/Rahm/Desktop/Common.hs')
| -rw-r--r-- | src/Rahm/Desktop/Common.hs | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/Rahm/Desktop/Common.hs b/src/Rahm/Desktop/Common.hs index 44587d3..125d651 100644 --- a/src/Rahm/Desktop/Common.hs +++ b/src/Rahm/Desktop/Common.hs @@ -5,6 +5,7 @@ module Rahm.Desktop.Common duplWindow, pointerWorkspace, getString, + setBorderWidth, askWindowId, windowJump, withBorderWidth, @@ -141,6 +142,12 @@ windowJump = mapM_ focus . headM =<< askWindowId headM :: [a] -> Maybe a headM = head +setBorderWidth :: Int -> [Window] -> X () +setBorderWidth width wins = do + d <- asks display + forM_ wins $ \window -> + io $ setWindowBorderWidth d window $ fromIntegral width + withBorderWidth :: Int -> [Window] -> X a -> X a withBorderWidth width ws fn = do d <- asks display |