From 2e672ecddd83e21cdf296a0a33c4e6f0a6e2f9f3 Mon Sep 17 00:00:00 2001 From: jao Date: Sat, 10 Sep 2022 05:03:45 +0100 Subject: cairo: --- src/Xmobar/X11/CairoDraw.hs | 5 +++++ 1 file changed, 5 insertions(+) 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 () -- cgit v1.2.3