diff options
| author | jao <jao@gnu.org> | 2022-01-29 01:59:17 +0000 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2022-01-29 06:42:29 +0000 |
| commit | 23399ceab6ca3fe9938cf97b7aa726258512be98 (patch) | |
| tree | 479d7535bb7e4c9631e8c8ca21ee5100f791a1ef /src/Xmobar/X11/Draw.hs | |
| parent | 0d3021eb601dadfa10fae30f108108894086c82c (diff) | |
| download | xmobar-23399ceab6ca3fe9938cf97b7aa726258512be98.tar.gz xmobar-23399ceab6ca3fe9938cf97b7aa726258512be98.tar.bz2 | |
Refactoring of the previous patch and its surroundings
Diffstat (limited to 'src/Xmobar/X11/Draw.hs')
| -rw-r--r-- | src/Xmobar/X11/Draw.hs | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/src/Xmobar/X11/Draw.hs b/src/Xmobar/X11/Draw.hs index 1b3d4ee..129701b 100644 --- a/src/Xmobar/X11/Draw.hs +++ b/src/Xmobar/X11/Draw.hs @@ -4,7 +4,7 @@ ------------------------------------------------------------------------------ -- | -- Module: Xmobar.X11.Draw --- Copyright: (c) 2018, 2020 Jose Antonio Ortega Ruiz +-- Copyright: (c) 2018, 2020, 2022 Jose Antonio Ortega Ruiz -- License: BSD3-style (see LICENSE) -- -- Maintainer: jao@gnu.org @@ -149,9 +149,7 @@ printStrings dr gc fontlist voffs offs a boxes sl@((s,c,i,l):xs) = do C -> (remWidth + offs) `div` 2 R -> remWidth L -> offs - (fc,bc) = case break (==',') (tColorsString c) of - (f,',':b) -> (f, b ) - (f, _) -> (f, bgColor conf) + (fc,bc) = colorComponents conf (tColorsString c) valign <- verticalOffset ht s fontst voff conf let (ht',ay) = case (tBgTopOffset c, tBgBottomOffset c) of (-1,_) -> (0, -1) |