module WindowFinder where
import XMonad
import qualified XMonad.StackSet as W
import Control.Monad
import Data.Bool (bool)
findWindows :: String -> X [Window]
findWindows name = do
withWindowSet $ (\ws -> do
forM (W.allWindows ws)
(\w -> do
s <- withDisplay $ \d -> fmap resClass . liftIO $ getClassHint d w
return $ bool [] [w] (s == name) :: X [Window]
) >>= return . join
)
И в контексте X ()
:
win' <- findWindows "Chromium"
when (length win' > 0)
(windows $ W.focusWindow $ head win')
Вышеупомянутое, кажется, ведет себя весьма полезным образом, когда имеется несколько окон.Поведение выглядит так: первое возвращаемое окно - это либо окно, открытое в данный момент в рабочей области, либо последнее взаимодействующее окно этого типа приложения.