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

Actions.GroupNavigation: add CMS import

Browse Source
This commit is contained in:
Alex Hirzel
2019-03-03 10:59:58 -05:00
parent faa252e309
commit ca69574cfe
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
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
@@ -233,7 +234,7 @@ findM cond xs = findM' cond (viewl xs)
isOnAnyVisibleWS :: Query Bool isOnAnyVisibleWS :: Query Bool
isOnAnyVisibleWS = do isOnAnyVisibleWS = do
w <- ask w <- ask
ws <- liftX $ XS.gets windowset ws <- liftX $ gets windowset
let allVisible = concat $ maybe [] SS.integrate . SS.stack . SS.workspace <$> SS.current ws:SS.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 /=) $ SS.peek ws unfocused = maybe True (w /=) $ SS.peek ws