-- ---------------------------------------------------------------------
-- Convenient wrappers to state

-- | Run a monad action with the current display settings
withDisplay :: (Display -> X a) -> X a
withDisplay   f = asks display >>= f
withDisplay :: (Display -> X a) -> X a
withDisplay   f = asks display >>= f
withDisplay   f = asks display >>= f