vanadium/xmonad: improve matching on Nautilus className

This commit is contained in:
Primrose 2025-11-29 18:51:25 +08:00
parent 434ce5437c
commit b293776da0
Signed by: primrose
GPG key ID: 4E887A4CA9714ADA

View file

@ -125,10 +125,10 @@ isFeh :: Query Bool
isFeh = className =? "feh"
isNautilus :: Query Bool
isNautilus = className ~? "Nautilus"
isNautilus = className $? "Nautilus"
isNautilusPreviewer :: Query Bool
isNautilusPreviewer = className ~? "NautilusPreviewer"
isNautilusPreviewer = className $? "NautilusPreviewer"
isMinder :: Query Bool
isMinder = className =? "Minder" <&&> (not <$> title ~? "Pick a Color")