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

send message when "windows" is called.

Browse Source
This commit is contained in:
David Roundy
2007-06-10 01:35:31 +00:00
parent ab6f210300
commit b97e8836e2
1 changed files with 4 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Operations.hs
View File

@@ -123,9 +123,13 @@ kill = withDisplay $ \d -> withFocused $ \w -> do
-- --------------------------------------------------------------------- -- ---------------------------------------------------------------------
-- Managing windows -- Managing windows
data ModifyWindows = ModifyWindows deriving Typeable
instance Message ModifyWindows
-- | windows. Modify the current window list with a pure function, and refresh -- | windows. Modify the current window list with a pure function, and refresh
windows :: (WindowSet -> WindowSet) -> X () windows :: (WindowSet -> WindowSet) -> X ()
windows f = do windows f = do
sendMessage ModifyWindows
XState { windowset = old, layouts = fls, xineScreens = xinesc, statusGaps = gaps } <- get XState { windowset = old, layouts = fls, xineScreens = xinesc, statusGaps = gaps } <- get
let ws = f old let ws = f old
modify (\s -> s { windowset = ws }) modify (\s -> s { windowset = ws })