diff options
Diffstat (limited to 'src/Xmobar/Run')
-rw-r--r-- | src/Xmobar/Run/Parsers.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/Xmobar/Run/Parsers.hs b/src/Xmobar/Run/Parsers.hs index 7c5e64c..8da7204 100644 --- a/src/Xmobar/Run/Parsers.hs +++ b/src/Xmobar/Run/Parsers.hs @@ -38,8 +38,10 @@ import Xmobar.Run.Actions data Widget = Icon String | Text String | Hspace Int32 deriving Show data BoxOffset = BoxOffset Align Int32 deriving (Eq, Show) + -- margins: Top, Right, Bottom, Left data BoxMargins = BoxMargins Int32 Int32 Int32 Int32 deriving (Eq, Show) + data BoxBorder = BBTop | BBBottom | BBVBoth @@ -48,13 +50,16 @@ data BoxBorder = BBTop | BBHBoth | BBFull deriving ( Read, Eq, Show ) + data Box = Box BoxBorder BoxOffset CInt String BoxMargins deriving (Eq, Show) + data TextRenderInfo = TextRenderInfo { tColorsString :: String , tBgTopOffset :: Int32 , tBgBottomOffset :: Int32 , tBoxes :: [Box] } deriving Show + type FontIndex = Int type Segment = (Widget, TextRenderInfo, FontIndex, Maybe [Action]) |