twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-06 06:51:55 -07:00
Code Issues Packages Projects Releases Wiki Activity

X.L.MouseResizableTile borderWidth via focused win

Browse Source 
When we calculate draggerGeometry, we should use the current width of
the border (if available), rather than the initial borderWidth.
This commit is contained in:
Anish Tondwalkar
2019-12-01 16:44:35 -08:00
parent 52f8c82504
commit d6244a1069
2 changed files with 16 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
CHANGES.md
View File

@@ -47,6 +47,11 @@
The `hoogle` function now uses the new URL `hoogle.haskell.org`. The `hoogle` function now uses the new URL `hoogle.haskell.org`.
* `XMonad.Layout.MouseResizableTile`
When we calculate dragger widths, we first try to get the border width of
the focused window, before failing over to using the initial `borderWidth`.
## 0.16 ## 0.16
### Breaking Changes ### Breaking Changes

12
XMonad/Layout/MouseResizableTile.hs
View File

@@ -36,6 +36,7 @@ module XMonad.Layout.MouseResizableTile (
import XMonad hiding (tile, splitVertically, splitHorizontallyBy) import XMonad hiding (tile, splitVertically, splitHorizontallyBy)
import qualified XMonad.StackSet as W import qualified XMonad.StackSet as W
import XMonad.Util.XUtils import XMonad.Util.XUtils
import Graphics.X11 as X
-- $usage -- $usage
-- You can use this module with the following in your @~\/.xmonad\/xmonad.hs@: -- You can use this module with the following in your @~\/.xmonad\/xmonad.hs@:
@@ -189,9 +190,18 @@ draggerGeometry :: DraggerType -> X DraggerGeometry
draggerGeometry (FixedDragger g d) = draggerGeometry (FixedDragger g d) =
return (fromIntegral $ g `div` 2, g, fromIntegral $ d `div` 2, d) return (fromIntegral $ g `div` 2, g, fromIntegral $ d `div` 2, d)
draggerGeometry BordersDragger = do draggerGeometry BordersDragger = do
w <- asks (borderWidth . config) wins <- gets windowset
w <- case W.peek wins of
Just win -> getBorderWidth win
_ -> asks (borderWidth . config)
return (0, 0, fromIntegral w, 2*w) return (0, 0, fromIntegral w, 2*w)
getBorderWidth :: Window -> X Dimension
getBorderWidth win = do
d <- asks display
(_,_,_,_,_,w,_) <- io $ X.getGeometry d win
return w
adjustForMirror :: Bool -> DraggerWithRect -> DraggerWithRect adjustForMirror :: Bool -> DraggerWithRect -> DraggerWithRect
adjustForMirror False dragger = dragger adjustForMirror False dragger = dragger
adjustForMirror True (draggerRect, draggerCursor, draggerInfo) = adjustForMirror True (draggerRect, draggerCursor, draggerInfo) =