diff options
author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-11-01 21:10:59 +0100 |
---|---|---|
committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-11-01 21:10:59 +0100 |
commit | 4866f2e367dfcf22a9591231ba40948826a1b438 (patch) | |
tree | 7a245caee3f146826b267d773b7eaa80386a818e /SinkAll.hs | |
parent | 47589e1913fb9530481caedb543978a30d4323ea (diff) | |
download | XMonadContrib-4866f2e367dfcf22a9591231ba40948826a1b438.tar.gz XMonadContrib-4866f2e367dfcf22a9591231ba40948826a1b438.tar.xz XMonadContrib-4866f2e367dfcf22a9591231ba40948826a1b438.zip |
Hierarchify
darcs-hash:20071101201059-a5988-fc1f1262bec1b69e13ba18ae7cefeafc8c4471d4.gz
Diffstat (limited to 'SinkAll.hs')
-rw-r--r-- | SinkAll.hs | 36 |
1 files changed, 0 insertions, 36 deletions
diff --git a/SinkAll.hs b/SinkAll.hs deleted file mode 100644 index 9ba9915..0000000 --- a/SinkAll.hs +++ /dev/null @@ -1,36 +0,0 @@ ------------------------------------------------------------------------------ --- | --- 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 XMonad.Operations -import XMonad -import XMonad.StackSet - -import Graphics.X11.Xlib - --- $usage --- > import XMonadContrib.SinkAll --- > keys = [ ((modMask .|. shiftMask, xK_t), sinkAll) ] - --- %import XMonadContrib.SinkAll --- %keybind , ((modMask .|. shiftMask, xK_t), sinkAll) - -sinkAll :: X () -sinkAll = withAll sink - --- Apply a function to all windows on current workspace. -withAll :: (Window -> WindowSet -> WindowSet) -> X () -withAll f = windows $ \ws -> let all' = integrate' . stack . workspace . current $ ws - in foldr f ws all' |