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

Merge branch 'pr/trackfloating'

Browse Source
This commit is contained in:
Tomas Janousek
2021-03-12 11:17:57 +00:00
parent 3df6d2af01 43592c84d4
commit 690e928a1c
2 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
CHANGES.md
View File

@@ -433,6 +433,10 @@
- To make it easier to use, the `xmonadctl` client is now included in - To make it easier to use, the `xmonadctl` client is now included in
`scripts/`. `scripts/`.
* `XMonad.Layout.TrackFloating`
- Fixed a bug that prevented changing focus on inactive workspaces.
## 0.16 ## 0.16
### Breaking Changes ### Breaking Changes

4
XMonad/Layout/TrackFloating.hs
View File

@@ -51,7 +51,7 @@ data TrackFloating a = TrackFloating (Maybe Window)
instance LayoutModifier TrackFloating Window where instance LayoutModifier TrackFloating Window where
modifyLayoutWithUpdate (TrackFloating mw) ws@(W.Workspace{ W.stack = ms }) r modifyLayoutWithUpdate (TrackFloating mw) ws@(W.Workspace{ W.stack = ms }) r
= do = do
xCur <- gets (W.peek . windowset) xCur <- gets (W.peek . W.view (W.tag ws) . windowset)
let isF = xCur /= (W.focus <$> ms) let isF = xCur /= (W.focus <$> ms)
-- use the remembered focus point when true focus differs from -- use the remembered focus point when true focus differs from
-- what this (sub)layout is given, which happens e.g. when true -- what this (sub)layout is given, which happens e.g. when true
@@ -75,7 +75,7 @@ data UseTransientFor a = UseTransientFor deriving (Read,Show,Eq)
instance LayoutModifier UseTransientFor Window where instance LayoutModifier UseTransientFor Window where
modifyLayout _ ws@(W.Workspace{ W.stack = ms }) r = do modifyLayout _ ws@(W.Workspace{ W.stack = ms }) r = do
m <- gets (W.peek . windowset) m <- gets (W.peek . W.view (W.tag ws) . windowset)
d <- asks display d <- asks display
parent <- join <$> T.traverse (io . getTransientForHint d) m parent <- join <$> T.traverse (io . getTransientForHint d) m