withNamedWindow :: (NamedWindow -> X ()) -> X ()
withNamedWindow f = do ws <- gets windowset
                       whenJust (W.peek ws) (getName >=> f)
withNamedWindow :: (NamedWindow -> X ()) -> X ()
withNamedWindow f = do ws <- gets windowset
                       whenJust (W.peek ws) (getName >=> f)
withNamedWindow f = do ws <- gets windowset
                       whenJust (W.peek ws) (getName >=> f)