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