r19199 - gnucash/trunk/src/report/report-system - Split "Arial" out from font names to make it easier to replace.

[Phil Longstaff]

Author: plongstaff
Date: 2010-05-22 17:25:51 -0400 (Sat, 22 May 2010)
New Revision: 19199
Trac: http://svn.gnucash.org/trac/changeset/19199

Modified:
   gnucash/trunk/src/report/report-system/html-fonts.scm
Log:
Split "Arial" out from font names to make it easier to replace.


Modified: gnucash/trunk/src/report/report-system/html-fonts.scm
===================================================================
--- gnucash/trunk/src/report/report-system/html-fonts.scm	2010-05-21 22:45:34 UTC (rev 19198)
+++ gnucash/trunk/src/report/report-system/html-fonts.scm	2010-05-22 21:25:51 UTC (rev 19199)
@@ -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")))
     )
 )