summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--Config.hs2
-rw-r--r--Operations.hs4
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