789f63c6d5
- use xft fonts by default - make ewmh set _NET_WM_STATE property on windows so that gtk3 apps do not render unfocused - place BorderResize rectangles within window decor with narrower width
31 lines
1.6 KiB
Diff
31 lines
1.6 KiB
Diff
diff -u xmonad-contrib-0.10/XMonad/Layout/BorderResize.hs.orig-mouseborder xmonad-contrib-0.10/XMonad/Layout/BorderResize.hs
|
|
--- xmonad-contrib-0.10/XMonad/Layout/BorderResize.hs.orig-mouseborder 2011-11-19 08:26:06.000000000 +0900
|
|
+++ xmonad-contrib-0.10/XMonad/Layout/BorderResize.hs 2012-03-14 09:46:54.458546418 +0900
|
|
@@ -59,10 +59,8 @@
|
|
|
|
data BorderResize a = BR (M.Map Window RectWithBorders) deriving (Show, Read)
|
|
|
|
-brBorderOffset :: Position
|
|
-brBorderOffset = 5
|
|
brBorderSize :: Dimension
|
|
-brBorderSize = 10
|
|
+brBorderSize = 2
|
|
|
|
borderResize :: l a -> ModifiedLayout BorderResize l a
|
|
borderResize = ModifiedLayout (BR M.empty)
|
|
@@ -147,10 +145,10 @@
|
|
|
|
prepareBorders :: Rectangle -> [BorderBlueprint]
|
|
prepareBorders (Rectangle x y wh ht) =
|
|
- [((Rectangle (x + fi wh - brBorderOffset) y brBorderSize ht), xC_right_side , RightSideBorder),
|
|
- ((Rectangle (x - brBorderOffset) y brBorderSize ht) , xC_left_side , LeftSideBorder),
|
|
- ((Rectangle x (y - brBorderOffset) wh brBorderSize) , xC_top_side , TopSideBorder),
|
|
- ((Rectangle x (y + fi ht - brBorderOffset) wh brBorderSize), xC_bottom_side, BottomSideBorder)
|
|
+ [((Rectangle (x + fi wh - fi brBorderSize) y brBorderSize ht), xC_right_side , RightSideBorder),
|
|
+ ((Rectangle x y brBorderSize ht) , xC_left_side , LeftSideBorder),
|
|
+ ((Rectangle x y wh brBorderSize) , xC_top_side , TopSideBorder),
|
|
+ ((Rectangle x (y + fi ht - fi brBorderSize) wh brBorderSize), xC_bottom_side, BottomSideBorder)
|
|
]
|
|
|
|
handleResize :: [(Window, (BorderType, Window, Rectangle))] -> Event -> X ()
|