-- | Focuses the next window that matches the given boolean query.  If
-- there is no such window, perform the given action instead.
nextMatchOrDo :: Direction -> Query Bool -> X () -> X ()
nextMatchOrDo dir qry act = orderedWindowList dir 
                            >>= focusNextMatchOrDo qry act
nextMatchOrDo :: Direction -> Query Bool -> X () -> X ()
nextMatchOrDo dir qry act = orderedWindowList dir 
                            >>= focusNextMatchOrDo qry act
nextMatchOrDo dir qry act = orderedWindowList dir 
                            >>= focusNextMatchOrDo qry act