module Xmobar.Draw.Types where
import Xmobar.Config.Types (Config, Segment)
import Xmobar.Run.Actions (Action)
type Position = Double
type ActionPos = ([Action], Position, Position)
type Actions = [ActionPos]
type IconLookup = String -> (Double, Double)
type IconDrawer = Double -> Double -> String -> String -> String -> IO ()
data DrawContext = DC { DrawContext -> IconDrawer
dcIconDrawer :: IconDrawer
, DrawContext -> IconLookup
dcIconLookup :: IconLookup
, DrawContext -> Config
dcConfig :: Config
, DrawContext -> Double
dcWidth :: Double
, DrawContext -> Double
dcHeight :: Double
, DrawContext -> [[Segment]]
dcSegments :: [[Segment]]
}