twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 03:20:21 -07:00
Code Issues Packages Projects Releases Wiki Activity

Merge pull request #925 from philib/master

Browse Source 
fix unintended window hiding
This commit is contained in:
Tony Zorman 2025-01-31 06:21:15 +01:00 committed by GitHub
commit 6c1441d9db
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
CHANGES.md
View File

@ -50,6 +50,11 @@
- Added `focusWorkspace` for focusing workspaces on the screen that they - Added `focusWorkspace` for focusing workspaces on the screen that they
belong to. belong to.
* `XMonad.Util.NamedScratchPad`
- Fix unintended window hiding in `nsSingleScratchpadPerWorkspace`.
Only hide the previously active scratchpad.
## 0.18.1 (August 20, 2024) ## 0.18.1 (August 20, 2024)
### Breaking Changes ### Breaking Changes

2
XMonad/Util/NamedScratchpad.hs
View File

@ -309,7 +309,7 @@ nsSingleScratchpadPerWorkspace :: NamedScratchpads -> X ()
nsSingleScratchpadPerWorkspace scratches = nsSingleScratchpadPerWorkspace scratches =
nsHideOnCondition $ \ _lastFocus curFocus winSet hideScratch -> do nsHideOnCondition $ \ _lastFocus curFocus winSet hideScratch -> do
allScratchesButCurrent <- allScratchesButCurrent <-
filterM (liftA2 (<||>) (pure . (/= curFocus)) (`isNSP` scratches)) filterM (liftA2 (<&&>) (pure . (/= curFocus)) (`isNSP` scratches))
(W.index winSet) (W.index winSet)
whenX (isNSP curFocus scratches) $ whenX (isNSP curFocus scratches) $
for_ allScratchesButCurrent hideScratch for_ allScratchesButCurrent hideScratch