twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-05 22:51:52 -07:00
Code Issues Packages Projects Releases Wiki Activity

Operations.sink is gone

Browse Source
This commit is contained in:
Spencer Janssen
2007-09-17 21:41:13 +00:00
parent 6c7fde2991
commit 4d2170bbb4
2 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Commands.hs
View File

@@ -27,7 +27,7 @@ module XMonadContrib.Commands (
import XMonad
import Operations
import StackSet hiding (sink)
import StackSet
import XMonadContrib.Dmenu (dmenu)
import {-# SOURCE #-} Config (workspaces)
@@ -91,7 +91,7 @@ defaultCommands = workspaceCommands ++ screenCommands
, ("swap-up", windows $ swapUp)
, ("swap-down", windows $ swapDown)
, ("swap-master", windows $ swapMaster)
, ("sink", withFocused sink)
, ("sink", withFocused $ windows . sink)
, ("quit-wm", io $ exitWith ExitSuccess)
]

8
SinkAll.hs
View File

@@ -16,7 +16,7 @@ module XMonadContrib.SinkAll (
import Operations
import XMonad
import StackSet hiding (sink)
import StackSet
import Control.Monad.State
import Graphics.X11.Xlib
@@ -32,6 +32,6 @@ sinkAll :: X ()
sinkAll = withAll sink
-- Apply a function to all windows on current workspace.
withAll :: (Window -> X a) -> X ()
withAll f = gets (integrate' . stack . workspace . current . windowset) >>=
mapM_ f
withAll :: (Window -> WindowSet -> WindowSet) -> X ()
withAll f = windows $ \ws -> let all = integrate' . stack . workspace . current $ ws
in foldr f ws all