diff options
author | joachim.fasting <joachim.fasting@gmail.com> | 2007-06-23 07:05:10 +0200 |
---|---|---|
committer | joachim.fasting <joachim.fasting@gmail.com> | 2007-06-23 07:05:10 +0200 |
commit | 1c0dbc793902f65ddb43f7a4e527c333d745e388 (patch) | |
tree | 11291634ec7af23e5154227e873aad65c2ac46e5 /SinkAll.hs | |
parent | 54e31ca659ba58d6e57b66b2aa0e2c57096068d4 (diff) | |
download | XMonadContrib-1c0dbc793902f65ddb43f7a4e527c333d745e388.tar.gz XMonadContrib-1c0dbc793902f65ddb43f7a4e527c333d745e388.tar.xz XMonadContrib-1c0dbc793902f65ddb43f7a4e527c333d745e388.zip |
Add SinkAll module.
Provides a means of pushing all windows on the current workspace back into
tiling. Not all that useful, but might be preferable to restarting or manually
pushing windows.
darcs-hash:20070623050510-ea16c-d3a090a96f7dc4707b5e2c7b6cb9faab008ca35d.gz
Diffstat (limited to 'SinkAll.hs')
-rw-r--r-- | SinkAll.hs | 34 |
1 files changed, 34 insertions, 0 deletions
diff --git a/SinkAll.hs b/SinkAll.hs new file mode 100644 index 0000000..16d6637 --- /dev/null +++ b/SinkAll.hs @@ -0,0 +1,34 @@ +----------------------------------------------------------------------------- +-- | +-- Module : XmonadContrib.SinkAll +-- License : BSD3-style (see LICENSE) +-- Stability : unstable +-- Portability : unportable +-- +-- Provides a simple binding that pushes all floating windows on the current +-- workspace back into tiling. +----------------------------------------------------------------------------- + +module XMonadContrib.SinkAll ( + -- * Usage + -- $usage + sinkAll) where + +import Operations +import XMonad +import StackSet hiding (sink) + +import Control.Monad.State +import Graphics.X11.Xlib + +-- $usage +-- > import XMonadContrib.SinkAll +-- > keys = [ ((modMask .|. shiftMask, xK_t), sinkAll) ] + +sinkAll :: X () +sinkAll = withAll sink + +-- Apply a function to all windows on current workspace. +withAll :: (Window -> X a) -> X () +withAll f = gets (integrate' . stack . workspace . current . windowset) >>= + mapM_ f |