summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--Operations.hs4
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 })