Trouver une fenêtre dans l'espace de travail actuel et lui appliquer une action

Ancien post, mais pour toute personne voulant encore une réponse :

Essentiellement, avec XMonad.StackSet.index, vous pouvez obtenir la liste des fenêtres dans l'espace de travail actuel comme ceci :

do
    windows <- gets (W.index . windowset)
    -- quelque chose...

Ainsi, findWindow peut être implémenté comme ceci :

import qualified XMonad.StackSet as W
import Data.List (find)

findWindow :: (Window -> Bool) -> (Window -> X()) -> X() -> X()
findWindow condition actionIfFound actionIfNotFound = do
    windows <- gets (W.index . windowset)
    let found = find condition windows  -- found a le type Maybe Window
    case found of
        Nothing -> actionIfNotFound
        Just w -> actionIfFound w

PS : Les trois dernières lignes pourraient être raccourcies en maybe actionIfNotFound actionIfFound found