twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-05 14:41:54 -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 XMonad
import Operations import Operations
import StackSet hiding (sink) import StackSet
import XMonadContrib.Dmenu (dmenu) import XMonadContrib.Dmenu (dmenu)
import {-# SOURCE #-} Config (workspaces) import {-# SOURCE #-} Config (workspaces)
@@ -91,7 +91,7 @@ defaultCommands = workspaceCommands ++ screenCommands
, ("swap-up", windows $ swapUp) , ("swap-up", windows $ swapUp)
, ("swap-down", windows $ swapDown) , ("swap-down", windows $ swapDown)
, ("swap-master", windows $ swapMaster) , ("swap-master", windows $ swapMaster)
, ("sink", withFocused sink) , ("sink", withFocused $ windows . sink)
, ("quit-wm", io $ exitWith ExitSuccess) , ("quit-wm", io $ exitWith ExitSuccess)
] ]

8
SinkAll.hs
View File

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