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

Use a more descriptive name for the layout reversal message

Browse Source
This commit is contained in:
Stefan O'Rear
2007-06-12 05:58:59 +00:00
parent bb9e46df6c
commit ff6b48382c
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Operations.hs
View File

@@ -123,8 +123,8 @@ kill = withDisplay $ \d -> withFocused $ \w -> do
-- --------------------------------------------------------------------- -- ---------------------------------------------------------------------
-- Managing windows -- Managing windows
data ModifyWindows = ModifyWindows deriving ( Typeable, Eq ) data UnDoLayout = UnDoLayout deriving ( Typeable, Eq )
instance Message ModifyWindows instance Message UnDoLayout
-- | 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 ()
@@ -132,7 +132,7 @@ windows f = do
-- Notify visible layouts to remove decorations etc -- Notify visible layouts to remove decorations etc
-- We cannot use sendMessage because this must not call refresh ever, -- We cannot use sendMessage because this must not call refresh ever,
-- and must be called on all visible workspaces. -- and must be called on all visible workspaces.
broadcastMessage ModifyWindows broadcastMessage UnDoLayout
XState { windowset = old, layouts = fls, xineScreens = xinesc, statusGaps = gaps } <- get XState { windowset = old, layouts = fls, xineScreens = xinesc, statusGaps = gaps } <- get
let oldvisible = concatMap (W.integrate . W.stack . W.workspace) $ W.current old : W.visible old let oldvisible = concatMap (W.integrate . W.stack . W.workspace) $ W.current old : W.visible old
ws = f old ws = f old
@@ -342,7 +342,7 @@ setFocusX w = withWindowSet $ \ws -> do
-- idempotent. -- idempotent.
switchLayout :: X () switchLayout :: X ()
switchLayout = do switchLayout = do
broadcastMessage ModifyWindows -- calling refresh now would defeat the point of deconstruction broadcastMessage UnDoLayout -- calling refresh now would defeat the point of deconstruction
n <- gets (W.tag . W.workspace . W.current . windowset) n <- gets (W.tag . W.workspace . W.current . windowset)
modify $ \s -> s { layouts = M.adjust switch n (layouts s) } modify $ \s -> s { layouts = M.adjust switch n (layouts s) }
refresh refresh
@@ -359,7 +359,7 @@ sendMessage a = do n <- (W.tag . W.workspace . W.current) `fmap` gets windowset
refresh refresh
-- | Send a message to all visible layouts, without necessarily refreshing. -- | Send a message to all visible layouts, without necessarily refreshing.
-- This is how we implement the hooks, such as ModifyWindows. -- This is how we implement the hooks, such as UnDoLayout.
broadcastMessage :: Message a => a -> X () broadcastMessage :: Message a => a -> X ()
broadcastMessage a = do broadcastMessage a = do
ol <- gets layouts ol <- gets layouts