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

SinkAll: haddock updates

Browse Source
This commit is contained in:
Brent Yorgey
2007-11-27 19:13:18 +00:00
parent dbff738cda
commit 913bd274b3
1 changed files with 13 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
XMonad/Actions/SinkAll.hs
View File

@@ -15,24 +15,28 @@ module XMonad.Actions.SinkAll (
sinkAll) where sinkAll) where
import XMonad.Operations import XMonad.Operations
import XMonad import XMonad.Core
import XMonad.StackSet import XMonad.StackSet
import Graphics.X11.Xlib import Graphics.X11.Xlib
-- $usage -- $usage
-- > import XMonad.Actions.SinkAll
-- > keys x = [ ((modMask x .|. shiftMask, xK_t), sinkAll) ]
-- --
-- where 'x' is your XConfig. -- You can use this module with the following in your @~\/.xmonad\/xmonad.hs@:
--
-- %import XMonad.Actions.SinkAll -- > import XMonad.Actions.SinkAll
-- %keybind , ((modMask x .|. shiftMask, xK_t), sinkAll) --
-- then add a keybinding; for example:
--
-- , ((modMask x .|. shiftMask, xK_t), sinkAll)
--
-- For detailed instructions on editing your key bindings, see
-- "XMonad.Doc.Extending#Editing_key_bindings".
-- | Un-float all floating windows on the current workspace.
sinkAll :: X () 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 -> WindowSet -> WindowSet) -> X () withAll :: (Window -> WindowSet -> WindowSet) -> X ()
withAll f = windows $ \ws -> let all' = integrate' . stack . workspace . current $ ws withAll f = windows $ \ws -> let all' = integrate' . stack . workspace . current $ ws
in foldr f ws all' in foldr f ws all'