vanadium/xmonad: make evolution handling smarter

How many window title are there 😭
This commit is contained in:
Primrose 2025-11-21 23:44:17 +08:00
parent ae721808c0
commit 4bb8909218
Signed by: primrose
GPG key ID: 4E887A4CA9714ADA

View file

@ -86,7 +86,14 @@ isEvolution :: Query Bool
isEvolution = className ~? "gnome.Evolution"
isEvolutionComposer :: Query Bool
isEvolutionComposer = isEvolution <&&> title =? "Compose Message"
isEvolutionComposer =
isEvolution <&&>
(fmap or . sequence)
[ title =? "Compose Message"
, title ^? "Re: " -- reply message composer
, title ^? "Appointment" -- calendar event editor
, title ^? "Meeting" -- calendar event editor
]
isFirefox :: Query Bool
isFirefox = className =? "firefox"