twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-07-26 09:41:52 -07:00
Code Issues Packages Projects Releases Wiki Activity

make LayoutHints work with new modifyLayout (in X).

Browse Source
This commit is contained in:
David Roundy
2007-06-10 14:57:40 +00:00
parent 3d73ec842a
commit 22f4bf13af
1 changed files with 1 additions and 1 deletions

2
LayoutHints.hs

@@ -10,7 +10,7 @@ import XMonad hiding ( trace )
layoutHints :: Layout -> Layout layoutHints :: Layout -> Layout
layoutHints l = l { doLayout = \r x -> doLayout l r x >>= applyHints layoutHints l = l { doLayout = \r x -> doLayout l r x >>= applyHints
, modifyLayout = \x -> layoutHints `fmap` modifyLayout l x } , modifyLayout = \x -> fmap layoutHints `fmap` modifyLayout l x }
applyHints :: [(Window, Rectangle)] -> X [(Window, Rectangle)] applyHints :: [(Window, Rectangle)] -> X [(Window, Rectangle)]
applyHints xs = mapM applyHint xs applyHints xs = mapM applyHint xs