From 4866f2e367dfcf22a9591231ba40948826a1b438 Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Thu, 1 Nov 2007 21:10:59 +0100
Subject: Hierarchify

darcs-hash:20071101201059-a5988-fc1f1262bec1b69e13ba18ae7cefeafc8c4471d4.gz
---
 SinkAll.hs | 36 ------------------------------------
 1 file changed, 36 deletions(-)
 delete mode 100644 SinkAll.hs

(limited to 'SinkAll.hs')

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'
-- 
cgit v1.2.3