From 67ee2708fb7c2687d1e34297b6bdc19ebf02e1ec Mon Sep 17 00:00:00 2001 From: David Roundy Date: Mon, 4 Jun 2007 23:37:16 +0200 Subject: add new LayoutHints module that makes layouts respect size hints. darcs-hash:20070604213716-72aca-b09984b5ef776ec28fa5b0c077025cb1651d7276.gz --- LayoutHints.hs | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) create mode 100644 LayoutHints.hs (limited to 'LayoutHints.hs') 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') -- cgit v1.2.3