From 78c5ee268d7e40611492a5c04539f8e81e1d0133 Mon Sep 17 00:00:00 2001
From: Ricardo Wurmus <rekado@elephly.net>
Date: Sun, 3 Jan 2021 15:58:35 +0100
Subject: text: Add a little extra space on the right.

---
 pict.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/pict.scm b/pict.scm
index 23828eb..c43c49a 100644
--- a/pict.scm
+++ b/pict.scm
@@ -826,7 +826,8 @@ appearance."
           ;; XXX sometimes closing the handle fails...
           (false-if-exception (rsvg-handle-close h))
           (make-pict `(svg (@ (height ,(format #f "~apx" full-height))
-                              (width ,width)
+                              ;; TODO: for some reason the width is insufficient
+                              (width ,(format #f "~apx" (+ width 5)))
                               (x 0)
                               (y 0))
                            ,text-tag)))))))
-- 
cgit v1.2.3