diff options
| author | David Roundy <droundy@darcs.net> | 2007-06-10 03:35:31 +0200 |
|---|---|---|
| committer | David Roundy <droundy@darcs.net> | 2007-06-10 03:35:31 +0200 |
| commit | 90f43376293f56cc130da436b69a3caa43f3c5c0 (patch) | |
| tree | 35991117332e819bde38c626c3aee5eb413a93b7 | |
| parent | 691ee5945cccc64c5fadf88dbb7266f6481ef064 (diff) | |
| download | xmonad-90f43376293f56cc130da436b69a3caa43f3c5c0.tar.gz xmonad-90f43376293f56cc130da436b69a3caa43f3c5c0.tar.xz xmonad-90f43376293f56cc130da436b69a3caa43f3c5c0.zip | |
send message when "windows" is called.
darcs-hash:20070610013531-72aca-9f6807aed050b85a00bd11a69d05843c1cbedbaa.gz
| -rw-r--r-- | Operations.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/Operations.hs b/Operations.hs index eb3a871..7405ce7 100644 --- a/Operations.hs +++ b/Operations.hs @@ -123,9 +123,13 @@ kill = withDisplay $ \d -> withFocused $ \w -> do -- --------------------------------------------------------------------- -- Managing windows +data ModifyWindows = ModifyWindows deriving Typeable +instance Message ModifyWindows + -- | windows. Modify the current window list with a pure function, and refresh windows :: (WindowSet -> WindowSet) -> X () windows f = do + sendMessage ModifyWindows XState { windowset = old, layouts = fls, xineScreens = xinesc, statusGaps = gaps } <- get let ws = f old modify (\s -> s { windowset = ws }) |