Eliminate Operations.sink too

darcs-hash:20070917214052-a5988-62b6e8d26a78a7e25a2e0117f7f112c5b039d933

2 files changed, 1 insertions, 5 deletions

diff --git a/Config.hs b/Config.hs
index f691914..ff31d07 100644
--- a/Config.hs
+++ b/Config.hs
@@ -153,7 +153,7 @@ keys = M.fromList $
     , ((modMask,               xK_h     ), sendMessage Shrink) -- %! Shrink the master area
     , ((modMask,               xK_l     ), sendMessage Expand) -- %! Expand the master area
 
-    , ((modMask,               xK_t     ), withFocused sink) -- %! Push window back into tiling
+    , ((modMask,               xK_t     ), withFocused $ windows . W.sink) -- %! Push window back into tiling
 
     -- increase or decrease number of windows in the master area
     , ((modMask              , xK_comma ), sendMessage (IncMasterN 1)) -- %! Increment the number of windows in the master area
diff --git a/Operations.hs b/Operations.hs
index ae95d9e..e516381 100644
--- a/Operations.hs
+++ b/Operations.hs
@@ -451,10 +451,6 @@ initColor dpy c = (color_pixel . fst) `liftM` allocNamedColor dpy colormap c
 ------------------------------------------------------------------------
 -- | Floating layer support
 
--- | Make a floating window tiled
-sink :: Window -> X ()
-sink = windows . W.sink
-
 -- | Make a tiled window floating, using its suggested rectangle
 float :: Window -> X ()
 float w = withDisplay $ \d -> do