diff options
| author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-09-28 07:31:21 +0200 |
|---|---|---|
| committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-09-28 07:31:21 +0200 |
| commit | 0bc68d98aa38baf3d659c4f9caf7fdd3be4a8963 (patch) | |
| tree | 6edb2841934e6e98a7529cca534784e4420a5d54 /LayoutHints.hs | |
| parent | bfa8db9713a99f6086a2af87fe6dd67d2edaacc0 (diff) | |
| download | XMonadContrib-0bc68d98aa38baf3d659c4f9caf7fdd3be4a8963.tar.gz XMonadContrib-0bc68d98aa38baf3d659c4f9caf7fdd3be4a8963.tar.xz XMonadContrib-0bc68d98aa38baf3d659c4f9caf7fdd3be4a8963.zip | |
Give Hinted a nice description
darcs-hash:20070928053121-a5988-2a143eb443995bb8240b997981d937398497974a.gz
Diffstat (limited to 'LayoutHints.hs')
| -rw-r--r-- | LayoutHints.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/LayoutHints.hs b/LayoutHints.hs index 18edf80..bf048d3 100644 --- a/LayoutHints.hs +++ b/LayoutHints.hs @@ -43,6 +43,7 @@ adjBorders mult (w,h) = (w+2*mult*borderWidth, h+2*mult*borderWidth) data LayoutHints a = LayoutHints deriving (Read, Show) instance LayoutModifier LayoutHints Window where + modifierDescription _ = "Hinted" redoLayout _ _ _ xs = do xs' <- mapM applyHint xs return (xs', Nothing) |