twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-08-14 19:45:44 -07:00
Code Issues Packages Projects Releases Wiki Activity

Minor cleanups of Solomon's PR

Browse Source
This commit is contained in:
Tomas Janousek
2021-09-14 11:08:48 +01:00
parent b3bd9c90d1
commit ebce32d891
2 changed files with 7 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
CHANGES.md
View File

@@ -2,9 +2,6 @@
## unknown (unknown) ## unknown (unknown)
* Adds `withUnfocused` function to `XMonad.Operations`, allowing for
`X` operations to be applied to all unfocused windows.
* Fixed a bug when using multiple screens with different dimensions, * Fixed a bug when using multiple screens with different dimensions,
causing some floating windows to be smaller/larger than the size they causing some floating windows to be smaller/larger than the size they
requested. requested.
@@ -73,6 +70,9 @@
of processing messages in `broadcastMessage`. Previously, of processing messages in `broadcastMessage`. Previously,
`runOnWorkspaces` processed the hidden workspaces first. `runOnWorkspaces` processed the hidden workspaces first.
* Added `withUnfocused` function to `XMonad.Operations`, allowing for
`X` operations to be applied to unfocused windows.
## 0.15 (September 30, 2018) ## 0.15 (September 30, 2018)
* Reimplement `sendMessage` to deal properly with windowset changes made * Reimplement `sendMessage` to deal properly with windowset changes made

7
src/XMonad/Operations.hs
View File

@@ -18,10 +18,11 @@ module XMonad.Operations (
manage, unmanage, killWindow, kill, isClient, manage, unmanage, killWindow, kill, isClient,
setInitialProperties, setWMState, setWindowBorderWithFallback, setInitialProperties, setWMState, setWindowBorderWithFallback,
hide, reveal, tileWindow, hide, reveal, tileWindow,
setTopFocus, focus, withFocused, setTopFocus, focus,
-- * Manage Windows -- * Manage Windows
windows, refresh, rescreen, modifyWindowSet, windowBracket, windowBracket_, clearEvents, getCleanedScreenInfo, withUnfocused, windows, refresh, rescreen, modifyWindowSet, windowBracket, windowBracket_, clearEvents, getCleanedScreenInfo,
withFocused, withUnfocused,
-- * Keyboard and Mouse -- * Keyboard and Mouse
cleanMask, extraModifiers, cleanMask, extraModifiers,
@@ -481,7 +482,7 @@ screenWorkspace sc = withWindowSet $ return . W.lookupWorkspace sc
withFocused :: (Window -> X ()) -> X () withFocused :: (Window -> X ()) -> X ()
withFocused f = withWindowSet $ \w -> whenJust (W.peek w) f withFocused f = withWindowSet $ \w -> whenJust (W.peek w) f
-- | Apply an 'X' operation to all unfocused windows, if there are any. -- | Apply an 'X' operation to all unfocused windows on the current workspace, if there are any.
withUnfocused :: (Window -> X ()) -> X () withUnfocused :: (Window -> X ()) -> X ()
withUnfocused f = withWindowSet $ \ws -> withUnfocused f = withWindowSet $ \ws ->
whenJust (W.peek ws) $ \w -> whenJust (W.peek ws) $ \w ->