twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 11:30:22 -07:00
Code Issues Packages Projects Releases Wiki Activity

make LayoutHints robust with regard to future addition of Layout fields.

Browse Source
This commit is contained in:
David Roundy 2007-06-09 17:37:25 +00:00
parent 35999f266d
commit 972af190c2
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
LayoutHints.hs
View File

@ -9,8 +9,8 @@ import Graphics.X11.Xlib.Extras ( getWMNormalHints )
import XMonad hiding ( trace )
layoutHints :: Layout -> Layout
layoutHints l = Layout { doLayout = \r x -> doLayout l r x >>= applyHints
, modifyLayout = \x -> layoutHints `fmap` modifyLayout l x }
layoutHints l = l { doLayout = \r x -> doLayout l r x >>= applyHints
, modifyLayout = \x -> layoutHints `fmap` modifyLayout l x }
applyHints :: [(Window, Rectangle)] -> X [(Window, Rectangle)]
applyHints xs = mapM applyHint xs