From f45ed5e566b918b752aa36effce5f3564c861373 Mon Sep 17 00:00:00 2001
From: Phil Longstaff <plongstaff@newearth.org>
Date: Sat, 22 May 2010 21:25:51 +0000
Subject: [PATCH] Split "Arial" out from font names to make it easier to
 replace.

git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@19199 57a11ea4-9604-0410-9ed3-97b8803252fd
---
 src/report/report-system/html-fonts.scm | 17 +++++++++--------
 1 file changed, 9 insertions(+), 8 deletions(-)

diff --git a/src/report/report-system/html-fonts.scm b/src/report/report-system/html-fonts.scm
index 05ab5812e0..eb82d5bc07 100644
--- a/src/report/report-system/html-fonts.scm
+++ b/src/report/report-system/html-fonts.scm
@@ -60,22 +60,23 @@
         (
             (opt-register 
                 (lambda (opt) (gnc:register-option options opt)))
+            (font-family "Arial")
         )
         (opt-register
             (gnc:make-font-option
                 (N_ "Fonts")
                 (N_ "Title") "a" (N_ "Font info for the report title")
-                "Arial Bold 15"))
+                (string-append font-family " Bold 15")))
         (opt-register
             (gnc:make-font-option
                 (N_ "Fonts")
                 (N_ "Account link") "b" (N_ "Font info for account name")
-                "Arial Italic 8"))
+                (string-append font-family " Italic 8")))
         (opt-register
             (gnc:make-font-option
                 (N_ "Fonts")
                 (N_ "Number cell") "c" (N_ "Font info for regular number cells")
-                "Arial 10"))
+                (string-append font-family " 10")))
         (opt-register
             (gnc:make-simple-boolean-option
                 (N_ "Fonts")
@@ -85,27 +86,27 @@
             (gnc:make-font-option
                 (N_ "Fonts")
                 (N_ "Number header") "e" (N_ "Font info for number headers")
-                "Arial 10"))
+                (string-append font-family " 10")))
         (opt-register
             (gnc:make-font-option
                 (N_ "Fonts")
                 (N_ "Text cell") "f" (N_ "Font info for regular text cells")
-                "Arial 10"))
+                (string-append font-family " 10")))
         (opt-register
             (gnc:make-font-option
                 (N_ "Fonts")
                 (N_ "Total number cell") "g" (N_ "Font info for number cells containing a total")
-                "Arial Bold 12"))
+                (string-append font-family " Bold 12")))
         (opt-register
             (gnc:make-font-option
                 (N_ "Fonts")
                 (N_ "Total label cell") "h" (N_ "Font info for cells containing total labels")
-                "Arial Bold 12"))
+                (string-append font-family " Bold 12")))
         (opt-register
             (gnc:make-font-option
                 (N_ "Fonts")
                 (N_ "Centered label cell") "i" (N_ "Font info for centered label cells")
-                "Arial Bold 12"))
+                (string-append font-family " Bold 12")))
     )
 )