diff options
| author | jao <jao@gnu.org> | 2022-09-10 05:03:45 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2022-09-10 05:03:45 +0100 |
| commit | 2e672ecddd83e21cdf296a0a33c4e6f0a6e2f9f3 (patch) | |
| tree | f47e52d5a7144a2fb173929945598cdc93af3f4f /src/Xmobar/X11/CairoDraw.hs | |
| parent | b2d0d19c4b3d33ea336e78c62e7eddfa805281ac (diff) | |
| download | xmobar-2e672ecddd83e21cdf296a0a33c4e6f0a6e2f9f3.tar.gz xmobar-2e672ecddd83e21cdf296a0a33c4e6f0a6e2f9f3.tar.bz2 | |
cairo: <hspace>
Diffstat (limited to 'src/Xmobar/X11/CairoDraw.hs')
| -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 () |