twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 03:20:21 -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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
LayoutHints.hs
View File

@ -10,7 +10,7 @@ import XMonad hiding ( trace )
layoutHints :: Layout -> Layout
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 xs = mapM applyHint xs