account: fix white background of svg

* account.el (account-agenda-export-to-svg): The original exported SVG
  image did not specify the background color.  Then the browser
  displays the image with a white background, but Emacs regards the
  background of the image as transparent.  Since I use a dark
  background color in Emacs, the displayed image did not look right.
  So I add a white circle with large radius in the background to force
  the background color to be white, and it now looks a lot better.

1 files changed, 4 insertions, 0 deletions

diff --git a/account.el b/account.el
index 8df7477..f0117da 100644
--- a/account.el
+++ b/account.el
@@ -706,6 +706,10 @@ the displayed information.")
                  (index 0)
                  (start 0)
                  (svg (svg-create 800 700 :stroke-width 10)))
+            (svg-circle
+             svg
+             400 350 1000
+             :fill-color "white")
             (mapc
              (lambda (cell)
                (setq start (+ (* block-width index) 10))