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

generalized signature of updateLayoutsBy

Browse Source
This commit is contained in:
Keith
2021-08-10 15:36:55 -04:00
committed by Tomas Janousek
parent 5eff329fc6
commit eb48bb4aef
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/XMonad/Operations.hs
View File

@@ -456,7 +456,8 @@ filterMessageWithNoRefresh p a = updateLayoutsBy $ \ wrk ->
else pure Nothing else pure Nothing
-- | Update the layouts of some workspaces. -- | Update the layouts of some workspaces.
updateLayoutsBy :: (WindowSpace -> X (Maybe (Layout Window))) -> X () updateLayoutsBy :: MonadState XState m
=> (WindowSpace -> m (Maybe (Layout Window))) -> m ()
updateLayoutsBy f = runOnWorkspaces' $ \ wrk -> updateLayoutsBy f = runOnWorkspaces' $ \ wrk ->
maybe wrk (\ l' -> wrk{ W.layout = l' }) <$> f wrk maybe wrk (\ l' -> wrk{ W.layout = l' }) <$> f wrk