From 5235198be8d7264f23926bef23ccedd394d11510 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Thu, 15 Sep 2022 05:56:55 +0100
Subject: cairo: box drawing

---
 src/Xmobar/Run/Parsers.hs | 24 ++++++++++++++----------
 1 file changed, 14 insertions(+), 10 deletions(-)

(limited to 'src/Xmobar/Run')

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
 
-- 
cgit v1.2.3