summaryrefslogtreecommitdiffhomepage
path: root/src/Xmobar/Run
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2022-09-11 00:52:29 +0100
committerjao <jao@gnu.org>2022-09-11 00:52:29 +0100
commit65f2bb18a372fc32a95c9887ba7a4006dc4ea24a (patch)
tree77dff21bf030c5655dc27630545882fd00dac7e7 /src/Xmobar/Run
parent43fb4311f96e21d1c588f2a4d76667a2a96c099d (diff)
downloadxmobar-65f2bb18a372fc32a95c9887ba7a4006dc4ea24a.tar.gz
xmobar-65f2bb18a372fc32a95c9887ba7a4006dc4ea24a.tar.bz2
cairo: outer border
Diffstat (limited to 'src/Xmobar/Run')
-rw-r--r--src/Xmobar/Run/Parsers.hs5
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])