From 60cf63e380ed5e9001170ddd985ade799ef4e844 Mon Sep 17 00:00:00 2001 From: Spencer Janssen Date: Mon, 17 Sep 2007 23:40:52 +0200 Subject: Eliminate Operations.sink too darcs-hash:20070917214052-a5988-62b6e8d26a78a7e25a2e0117f7f112c5b039d933 --- Config.hs | 2 +- Operations.hs | 4 ---- 2 files changed, 1 insertion(+), 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 -- cgit v1.2.3