add new LayoutHints module that makes layouts respect size hints.

darcs-hash:20070604213716-72aca-b09984b5ef776ec28fa5b0c077025cb1651d7276.gz

1 files changed, 21 insertions, 0 deletions

diff --git a/LayoutHints.hs b/LayoutHints.hs
new file mode 100644
index 0000000..b24dc4a
--- /dev/null
+++ b/LayoutHints.hs
@@ -0,0 +1,21 @@
+module XMonadContrib.LayoutHints ( layoutHints ) where
+
+-- to use:
+-- defaultLayouts = [ layoutHints tiled, layoutHints $ mirror tiled , full ]
+
+import Operations ( applySizeHints )
+import Graphics.X11.Xlib
+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 }
+
+applyHints :: [(Window, Rectangle)] -> X [(Window, Rectangle)]
+applyHints xs = mapM applyHint xs
+    where applyHint (w,Rectangle a b c d) =
+              withDisplay $ \disp ->
+                  do sh <- io $ getWMNormalHints disp w
+                     let (c',d') = applySizeHints sh (c,d)
+                     return (w, Rectangle a b c' d')