module Xmobar.X11.Types where
import qualified Graphics.X11.Xlib as X11
import qualified Data.List.NonEmpty as NE
import Control.Monad.Reader (ReaderT)
import Xmobar.Config.Types
import Xmobar.X11.Bitmap (BitmapCache)
import Xmobar.X11.Text (XFont)
type X = ReaderT XConf IO
data XConf =
XConf { XConf -> Display
display :: X11.Display
, XConf -> Rectangle
rect :: X11.Rectangle
, XConf -> Window
window :: X11.Window
, XConf -> NonEmpty XFont
fontList :: NE.NonEmpty XFont
, XConf -> BitmapCache
iconCache :: BitmapCache
, XConf -> Config
config :: Config
}