diff options
| -rw-r--r-- | src/Xmobar/X11/CairoDraw.hs | 5 |
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 () |