twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-01 20:51: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 ) where
import Control.Monad.Reader import Control.Monad.Reader
import Control.Monad.State
import Data.Foldable as Fold import Data.Foldable as Fold
import Data.Map as Map import Data.Map as Map
import Data.Sequence as Seq import Data.Sequence as Seq
@@ -234,8 +235,8 @@ isOnAnyVisibleWS :: Query Bool
isOnAnyVisibleWS = do isOnAnyVisibleWS = do
w <- ask w <- ask
ws <- liftX $ gets windowset 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 visibleWs = w `elem` allVisible
unfocused = maybe True (w /=) $ W.peek ws unfocused = maybe True (w /=) $ SS.peek ws
return $ visibleWs && unfocused return $ visibleWs && unfocused