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

Give Hinted a nice description

Browse Source
This commit is contained in:
Spencer Janssen
2007-09-28 05:31:21 +00:00
parent 1ef72a1bfa
commit 9e5501ce1f
1 changed files with 1 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
LayoutHints.hs
View File

@@ -43,6 +43,7 @@ adjBorders mult (w,h) = (w+2*mult*borderWidth, h+2*mult*borderWidth)
data LayoutHints a = LayoutHints deriving (Read, Show) data LayoutHints a = LayoutHints deriving (Read, Show)
instance LayoutModifier LayoutHints Window where instance LayoutModifier LayoutHints Window where
modifierDescription _ = "Hinted"
redoLayout _ _ _ xs = do redoLayout _ _ _ xs = do
xs' <- mapM applyHint xs xs' <- mapM applyHint xs
return (xs', Nothing) return (xs', Nothing)