summaryrefslogtreecommitdiffhomepage
path: root/src/Xmobar
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2022-09-10 05:03:45 +0100
committerjao <jao@gnu.org>2022-09-10 05:03:45 +0100
commit2e672ecddd83e21cdf296a0a33c4e6f0a6e2f9f3 (patch)
treef47e52d5a7144a2fb173929945598cdc93af3f4f /src/Xmobar
parentb2d0d19c4b3d33ea336e78c62e7eddfa805281ac (diff)
downloadxmobar-2e672ecddd83e21cdf296a0a33c4e6f0a6e2f9f3.tar.gz
xmobar-2e672ecddd83e21cdf296a0a33c4e6f0a6e2f9f3.tar.bz2
cairo: <hspace>
Diffstat (limited to 'src/Xmobar')
-rw-r--r--src/Xmobar/X11/CairoDraw.hs5
1 files changed, 5 insertions, 0 deletions
diff --git a/src/Xmobar/X11/CairoDraw.hs b/src/Xmobar/X11/CairoDraw.hs
index 527b68a..9784774 100644
--- a/src/Xmobar/X11/CairoDraw.hs
+++ b/src/Xmobar/X11/CairoDraw.hs
@@ -71,6 +71,11 @@ renderSegment mh conf surface lyt (offset,actions) seg@(Text _, _, idx, a) = do
actions' = case a of Just as -> (as, offset, end):actions; _ -> actions
return (end, actions')
+renderSegment _ _ _ _ (offset,actions) (Hspace n, _, _, a) = do
+ let end = offset + n
+ actions' = case a of Just as -> (as, offset, end):actions; _ -> actions
+ return (end, actions')
+
renderSegment _h _c _surface _lyt acc _segment = pure acc
background :: Config -> SRGB.Colour Double -> C.Render ()