summaryrefslogtreecommitdiffhomepage
path: root/src/Xmobar/Run/Parsers.hs
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2022-09-15 05:56:55 +0100
committerjao <jao@gnu.org>2022-09-15 05:56:55 +0100
commit5235198be8d7264f23926bef23ccedd394d11510 (patch)
tree1b24b82e19a1a5155d2fc983d93befb23194b09c /src/Xmobar/Run/Parsers.hs
parent907503596f9d78b5cabea7dacee8807f006dec1a (diff)
downloadxmobar-5235198be8d7264f23926bef23ccedd394d11510.tar.gz
xmobar-5235198be8d7264f23926bef23ccedd394d11510.tar.bz2
cairo: box drawing
Diffstat (limited to 'src/Xmobar/Run/Parsers.hs')
-rw-r--r--src/Xmobar/Run/Parsers.hs24
1 files changed, 14 insertions, 10 deletions
diff --git a/src/Xmobar/Run/Parsers.hs b/src/Xmobar/Run/Parsers.hs
index 982ef71..c0f3104 100644
--- a/src/Xmobar/Run/Parsers.hs
+++ b/src/Xmobar/Run/Parsers.hs
@@ -49,16 +49,20 @@ data BoxBorder = BBTop
| BBRight
| 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
+ deriving (Read, Eq, Show)
+
+data Box = Box { bBorder :: BoxBorder
+ , bOffset :: BoxOffset
+ , bWidth :: CInt
+ , bColor :: String
+ , bMargins :: BoxMargins
+ } deriving (Eq, Show)
+
+data TextRenderInfo = TextRenderInfo { tColorsString :: String
+ , tBgTopOffset :: Int32
+ , tBgBottomOffset :: Int32
+ , tBoxes :: [Box]
+ } deriving Show
type FontIndex = Int