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

Merge pull request #295 from alhirzel/add-isOnAnyVisibleWS

Browse Source 
Actions.GroupNavigation: fix bad import
This commit is contained in:
Brent Yorgey
2019-03-03 21:15:56 -06:00
committed by GitHub
parent 0301d6e21b ca69574cfe
commit a18395a13c
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
XMonad/Actions/GroupNavigation.hs
View File

@@ -34,6 +34,7 @@ module XMonad.Actions.GroupNavigation ( -- * Usage
) where
import Control.Monad.Reader
import Control.Monad.State
import Data.Foldable as Fold
import Data.Map as Map
import Data.Sequence as Seq
@@ -234,8 +235,8 @@ isOnAnyVisibleWS :: Query Bool
isOnAnyVisibleWS = do
w <- ask
ws <- liftX $ gets windowset
let allVisible = concat $ maybe [] W.integrate . W.stack . W.workspace <$> W.current ws:W.visible ws
let allVisible = concat $ maybe [] SS.integrate . SS.stack . SS.workspace <$> SS.current ws:SS.visible ws
visibleWs = w `elem` allVisible
unfocused = maybe True (w /=) $ W.peek ws
unfocused = maybe True (w /=) $ SS.peek ws
return $ visibleWs && unfocused