IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2025-02-25 18:55:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

Bill Gribble's fix for report i18n.

Browse Source 
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@3645 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Dave Peticolas 2001-02-12 23:15:23 +00:00
parent 2caac7636b
commit fa026af058
9 changed files with 149 additions and 154 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ChangeLog
View File

@ -1,5 +1,11 @@
2001-02-12 Bill Gribble <grib@billgribble.com> 2001-02-12 Bill Gribble <grib@billgribble.com>
* src/scm/html-style-info.scm: minor fixes to html style
compile
* various in src/scm: fixes for i18n .. use (N_ instead of (_
where appropriate.
* src/engine/gnc-numeric.{c,h}, src/scm/gnc-numeric.scm: add * src/engine/gnc-numeric.{c,h}, src/scm/gnc-numeric.scm: add
support for a new auto-denom type, GNC_DENOM_SIGFIGS(x), where x support for a new auto-denom type, GNC_DENOM_SIGFIGS(x), where x
is the number of "significant figures" you want in the output. is the number of "significant figures" you want in the output.

7
src/scm/html-style-info.scm
View File

@ -329,8 +329,8 @@
#t) #t)
(begin (begin
(kvt-fold key-merger #f (gnc:html-style-table-primary next)) (kvt-fold key-merger #f (gnc:html-style-table-primary next))
(if (not (null? (cdr antecedents))) (if (not (null? (cdr table-list)))
(compile-worker (cdr antecedents)) (compile-worker (cdr table-list))
#t))))) #t)))))
;; make the compiled kvt table ;; make the compiled kvt table
(gnc:html-style-table-set-compiled! table (make-kvtable)) (gnc:html-style-table-set-compiled! table (make-kvtable))
@ -340,7 +340,8 @@
(kvt-fold key-merger #f (gnc:html-style-table-primary table)) (kvt-fold key-merger #f (gnc:html-style-table-primary table))
;; now merge in the antecedents ;; now merge in the antecedents
(compile-worker antecedents)) (if (not (null? antecedents))
(compile-worker antecedents)))
(define (gnc:html-style-table-uncompile table) (define (gnc:html-style-table-uncompile table)

21
src/scm/qif-import/qif-to-gnc.scm
View File

@ -170,24 +170,9 @@
qif-acct-map qif-cat-map qif-acct-map qif-cat-map
qif-memo-map stock-map qif-memo-map stock-map
default-currency-name) default-currency-name)
(define (dumper key . args) (gnc:backtrace-if-exception
(let ((stack (make-stack #t dumper))) qif-import:qif-to-gnc-unsafe
(display-backtrace stack (current-error-port)) qif-acct-map qif-cat-map qif-memo-map stock-map default-currency-name))
(apply display-error stack (current-error-port) args)
(throw 'ignore)))
(catch
'ignore
(lambda ()
(lazy-catch #t
(lambda () (qif-import:qif-to-gnc-unsafe
qif-files-list
qif-acct-map qif-cat-map
qif-memo-map stock-map
default-currency-name))
dumper))
(lambda (key . args)
#f)))
(define (qif-import:qif-to-gnc-unsafe qif-files-list (define (qif-import:qif-to-gnc-unsafe qif-files-list
qif-acct-map qif-cat-map qif-memo-map qif-acct-map qif-cat-map qif-memo-map

19
src/scm/report.scm
View File

@ -125,15 +125,16 @@
(let ((generator (gnc:report-template-options-generator report-template)) (let ((generator (gnc:report-template-options-generator report-template))
(stylesheet (stylesheet
(gnc:make-multichoice-option (gnc:make-multichoice-option
(_ "General") (_ "Stylesheet") "0a" (N_ "General") (N_ "Stylesheet") "0a"
(_ "Select a stylesheet for the report.") (N_ "Select a stylesheet for the report.")
(string->symbol (_ "Default")) (string->symbol (N_ "Default"))
(map (map
(lambda (ss) (lambda (ss)
(vector (vector
(string->symbol (gnc:html-style-sheet-name ss)) (string->symbol (gnc:html-style-sheet-name ss))
(gnc:html-style-sheet-name ss) (gnc:html-style-sheet-name ss)
(string-append (gnc:html-style-sheet-name ss) " Stylesheet"))) (string-append (gnc:html-style-sheet-name ss)
(_ " Stylesheet"))))
(gnc:get-html-style-sheets))))) (gnc:get-html-style-sheets)))))
(if (procedure? generator) (if (procedure? generator)
(let ((options (generator))) (let ((options (generator)))
@ -230,7 +231,7 @@
retval)) retval))
(define (gnc:report-run id) (define (gnc:backtrace-if-exception proc . args)
(define (dumper key . args) (define (dumper key . args)
(let ((stack (make-stack #t dumper))) (let ((stack (make-stack #t dumper)))
(display-backtrace stack (current-error-port)) (display-backtrace stack (current-error-port))
@ -241,11 +242,13 @@
'ignore 'ignore
(lambda () (lambda ()
(lazy-catch #t (lazy-catch #t
(lambda () (gnc:report-run-unsafe id)) (lambda () (apply proc args))
dumper)) dumper))
(lambda (key . args) (lambda (key . args)
#f))) #f)))
(define (gnc:report-run id)
(gnc:backtrace-if-exception gnc:report-run-unsafe id))
(define (gnc:report-run-unsafe id) (define (gnc:report-run-unsafe id)
(let ((report (gnc:find-report id)) (let ((report (gnc:find-report id))
@ -255,7 +258,6 @@
(gnc:report-ctext report)) (gnc:report-ctext report))
;; if there's clean cached text, return it ;; if there's clean cached text, return it
(begin (begin
(display "using cached text.\n")
(gnc:report-ctext report)) (gnc:report-ctext report))
;; otherwise, rerun the report ;; otherwise, rerun the report
@ -267,7 +269,8 @@
(symbol->string (gnc:option-value (symbol->string (gnc:option-value
(gnc:lookup-option (gnc:lookup-option
(gnc:report-options report) (gnc:report-options report)
(_ "General") (_ "Stylesheet"))))) (N_ "General")
(N_ "Stylesheet")))))
(stylesheet (stylesheet
(gnc:html-style-sheet-find stylesheet-name)) (gnc:html-style-sheet-find stylesheet-name))
(doc (renderer report)) (doc (renderer report))

20
src/scm/report/account-summary.scm
View File

@ -35,14 +35,14 @@
;; first define all option's names such that typos etc. are no longer ;; first define all option's names such that typos etc. are no longer
;; possible. ;; possible.
(let ((pagename-general (_ "General")) (let ((pagename-general (N_ "General"))
(optname-date (_ "Date")) (optname-date (N_ "Date"))
(optname-display-depth (_ "Account Display Depth")) (optname-display-depth (N_ "Account Display Depth"))
(optname-show-subaccounts (_ "Always show sub-accounts")) (optname-show-subaccounts (N_ "Always show sub-accounts"))
(optname-accounts (_ "Account")) (optname-accounts (N_ "Account"))
(optname-include-subbalances (_ "Include Sub-Account balances")) (optname-include-subbalances (N_ "Include Sub-Account balances"))
(optname-show-foreign (_ "Show Foreign Currencies")) (optname-show-foreign (N_ "Show Foreign Currencies"))
(optname-report-currency (_ "Report's currency"))) (optname-report-currency (N_ "Report's currency")))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; options generator ;; options generator
@ -107,7 +107,7 @@
(doc (gnc:make-html-document)) (doc (gnc:make-html-document))
(txt (gnc:make-html-text))) (txt (gnc:make-html-text)))
(gnc:html-document-set-title! doc "Account Summary") (gnc:html-document-set-title! doc (_ "Account Summary"))
(if (not (null? accounts)) (if (not (null? accounts))
;; if no max. tree depth is given we have to find the ;; if no max. tree depth is given we have to find the
;; maximum existing depth ;; maximum existing depth
@ -158,6 +158,6 @@
(gnc:define-report (gnc:define-report
'version 1 'version 1
'name (_ "Account Summary") 'name (N_ "Account Summary")
'options-generator accsum-options-generator 'options-generator accsum-options-generator
'renderer accsum-renderer)) 'renderer accsum-renderer))

70
src/scm/report/average-balance.scm
View File

@ -27,8 +27,8 @@
;; From date ;; From date
(register-option (register-option
(gnc:make-date-option (gnc:make-date-option
(_ "General") (_ "From") (N_ "General") (N_ "From")
"a" (_ "Report Items from this date") "a" (N_ "Report Items from this date")
(lambda () (lambda ()
(let ((bdtime (localtime (current-time)))) (let ((bdtime (localtime (current-time))))
(set-tm:sec bdtime 0) (set-tm:sec bdtime 0)
@ -43,8 +43,8 @@
;; to-date ;; to-date
(register-option (register-option
(gnc:make-date-option (gnc:make-date-option
(_ "General") (_ "To") (N_ "General") (N_ "To")
"c" (_ "Report items up to and including this date") "c" (N_ "Report items up to and including this date")
(lambda () (lambda ()
(let ((bdtime (localtime (current-time)))) (let ((bdtime (localtime (current-time))))
(set-tm:sec bdtime 59) (set-tm:sec bdtime 59)
@ -56,8 +56,8 @@
;; account(s) to do report on ;; account(s) to do report on
(register-option (register-option
(gnc:make-account-list-option (gnc:make-account-list-option
(_ "General") (_ "Accounts") (N_ "General") (N_ "Accounts")
"d" (_ "Do transaction report on this account") "d" (N_ "Do transaction report on this account")
(lambda () (lambda ()
(let ((current-accounts (gnc:get-current-accounts))) (let ((current-accounts (gnc:get-current-accounts)))
(cond ((not (null? current-accounts)) current-accounts) (cond ((not (null? current-accounts)) current-accounts)
@ -67,8 +67,8 @@
(register-option (register-option
(gnc:make-multichoice-option (gnc:make-multichoice-option
(_ "General") (_ "Step Size") (N_ "General") (N_ "Step Size")
"b" (_ "The amount of time between data points") 'WeekDelta "b" (N_ "The amount of time between data points") 'WeekDelta
(list #(DayDelta "Day" "Day") (list #(DayDelta "Day" "Day")
#(WeekDelta "Week" "Week") #(WeekDelta "Week" "Week")
#(TwoWeekDelta "2Week" "Two Week") #(TwoWeekDelta "2Week" "Two Week")
@ -78,41 +78,41 @@
(register-option (register-option
(gnc:make-simple-boolean-option (gnc:make-simple-boolean-option
(_ "General") (_ "Sub-Accounts") (N_ "General") (N_ "Sub-Accounts")
"e" (_ "Include sub-accounts of all selected accounts") #f)) "e" (N_ "Include sub-accounts of all selected accounts") #f))
(register-option (register-option
(gnc:make-list-option (gnc:make-list-option
(_ "Output") (_ "Plot Type") (N_ "Output") (N_ "Plot Type")
"a" (_ "The type of graph to generate") (list 'AvgBalPlot) "a" (N_ "The type of graph to generate") (list 'AvgBalPlot)
(list (list->vector (list (list->vector
(list 'AvgBalPlot (_ "Average") (_ "Average Balance"))) (list 'AvgBalPlot (N_ "Average") (N_ "Average Balance")))
(list->vector (list->vector
(list 'GainPlot (_ "Net Gain") (_ "Net Gain"))) (list 'GainPlot (N_ "Net Gain") (N_ "Net Gain")))
(list->vector (list->vector
(list 'GLPlot (_ "Gain/Loss") (_ "Gain And Loss")))))) (list 'GLPlot (N_ "Gain/Loss") (N_ "Gain And Loss"))))))
(register-option (register-option
(gnc:make-number-range-option (gnc:make-number-range-option
(_ "Output") (_ "Plot Width") (N_ "Output") (N_ "Plot Width")
"b" (_ "Width of plot in pixels.") 400 "b" (N_ "Width of plot in pixels.") 400
100 1000 0 1)) 100 1000 0 1))
(register-option (register-option
(gnc:make-number-range-option (gnc:make-number-range-option
(_ "Output") (_ "Plot Height") (N_ "Output") (N_ "Plot Height")
"b" (_ "Height of plot in pixels.") 400 "b" (N_ "Height of plot in pixels.") 400
100 1000 0 1)) 100 1000 0 1))
(register-option (register-option
(gnc:make-simple-boolean-option (gnc:make-simple-boolean-option
(_ "Output") (_ "Show plot") (N_ "Output") (N_ "Show plot")
"b" (_ "Display a graph of the selected data.") #t)) "b" (N_ "Display a graph of the selected data.") #t))
(register-option (register-option
(gnc:make-simple-boolean-option (gnc:make-simple-boolean-option
(_ "Output") (_ "Show table") (N_ "Output") (N_ "Show table")
"b" (_ "Display a table of the selected data.") #f)) "b" (N_ "Display a table of the selected data.") #f))
options)) options))
@ -234,20 +234,20 @@
(gnc:option-value (gnc:option-value
(gnc:lookup-option (gnc:report-options report-obj) sec value)))) (gnc:lookup-option (gnc:report-options report-obj) sec value))))
(begindate (gnc:date-option-absolute-time (begindate (gnc:date-option-absolute-time
(opt-val (_ "General") (_ "From")))) (opt-val (N_ "General") (N_ "From"))))
(enddate (gnc:timepair-end-day-time (enddate (gnc:timepair-end-day-time
(gnc:date-option-absolute-time (gnc:date-option-absolute-time
(opt-val (_ "General") (_ "To"))))) (opt-val (N_ "General") (N_ "To")))))
(stepsize (eval (opt-val (_ "General") (_ "Step Size")))) (stepsize (eval (opt-val (N_ "General") (N_ "Step Size"))))
(accounts (opt-val (_ "General") (_ "Accounts"))) (accounts (opt-val (N_ "General") (N_ "Accounts")))
(dosubs? (opt-val (_ "General") (_ "Sub-Accounts"))) (dosubs? (opt-val (N_ "General") (N_ "Sub-Accounts")))
(plot-type (opt-val (_ "Output") (_ "Plot Type"))) (plot-type (opt-val (N_ "Output") (N_ "Plot Type")))
(show-plot? (opt-val (_ "Output") (_ "Show plot"))) (show-plot? (opt-val (N_ "Output") (N_ "Show plot")))
(show-table? (opt-val (_ "Output") (_ "Show table"))) (show-table? (opt-val (N_ "Output") (N_ "Show table")))
(document (gnc:make-html-document)) (document (gnc:make-html-document))
(startbal 0.0)) (startbal 0.0))
(gnc:html-document-set-title! document (_ "Average Balance")) (gnc:html-document-set-title! document (N_ "Average Balance"))
(if (not (null? accounts)) (if (not (null? accounts))
(let ((query (gnc:malloc-query)) (let ((query (gnc:malloc-query))
@ -303,8 +303,8 @@
;; plot comes first. ;; plot comes first.
(if show-plot? (if show-plot?
(let ((barchart (gnc:make-html-barchart)) (let ((barchart (gnc:make-html-barchart))
(width (opt-val (_ "Output") (_ "Plot Width"))) (width (opt-val (N_ "Output") (N_ "Plot Width")))
(height (opt-val (_ "Output") (_ "Plot Height"))) (height (opt-val (N_ "Output") (N_ "Plot Height")))
(col-labels '()) (col-labels '())
(col-colors '())) (col-colors '()))
(if (memq 'AvgBalPlot plot-type) (if (memq 'AvgBalPlot plot-type)
@ -395,7 +395,7 @@
(gnc:define-report (gnc:define-report
'version 1 'version 1
'name (_ "Average Balance Tracker") 'name (N_ "Average Balance")
'options-generator options-generator 'options-generator options-generator
'renderer renderer)) 'renderer renderer))

26
src/scm/report/pnl.scm
View File

@ -31,20 +31,20 @@
;; first define all option's names so that they are properly defined ;; first define all option's names so that they are properly defined
;; in *one* place. ;; in *one* place.
(let* ((pagename-general (_ "General")) (let* ((pagename-general (N_ "General"))
(optname-from-date (_ "From")) (optname-from-date (N_ "From"))
(optname-to-date (_ "To")) (optname-to-date (N_ "To"))
(pagename-accounts (_ "Accounts")) (pagename-accounts (N_ "Accounts"))
(optname-display-depth (_ "Account Display Depth")) (optname-display-depth (N_ "Account Display Depth"))
(optname-show-subaccounts (_ "Always show sub-accounts")) (optname-show-subaccounts (N_ "Always show sub-accounts"))
(optname-accounts (_ "Account")) (optname-accounts (N_ "Account"))
(optname-include-subbalances (_ "Include Sub-Account balances")) (optname-include-subbalances (N_ "Include Sub-Account balances"))
;; (pagename-currencies (_ "Currencies")) too little options :) ;; (pagename-currencies (N_ "Currencies")) too little options :)
(pagename-currencies pagename-general) (pagename-currencies pagename-general)
(optname-show-foreign (_ "Show Foreign Currencies")) (optname-show-foreign (N_ "Show Foreign Currencies"))
(optname-report-currency (_ "Report's currency"))) (optname-report-currency (N_ "Report's currency")))
;; options generator ;; options generator
(define (pnl-options-generator) (define (pnl-options-generator)
@ -170,6 +170,6 @@
(gnc:define-report (gnc:define-report
'version 1 'version 1
'name (_ "Profit And Loss") 'name (N_ "Profit And Loss")
'options-generator pnl-options-generator 'options-generator pnl-options-generator
'renderer pnl-renderer)) 'renderer pnl-renderer))

92
src/scm/report/stylesheet-fancy.scm
View File

@ -36,84 +36,84 @@
(gnc:register-option options opt)))) (gnc:register-option options opt))))
(opt-register (opt-register
(gnc:make-string-option (gnc:make-string-option
(_ "General") (N_ "General")
(_ "Preparer") "a" (N_ "Preparer") "a"
(_ "Name of person preparing the report") (N_ "Name of person preparing the report")
"")) ""))
(opt-register (opt-register
(gnc:make-string-option (gnc:make-string-option
(_ "General") (N_ "General")
(_ "Prepared for") "b" (N_ "Prepared for") "b"
(_ "Name of organization or company prepared for") (N_ "Name of organization or company prepared for")
"")) ""))
(opt-register (opt-register
(gnc:make-simple-boolean-option (gnc:make-simple-boolean-option
(_ "General") (N_ "General")
(_ "Show preparer info") "c" (N_ "Show preparer info") "c"
(_ "Name of organization or company") (N_ "Name of organization or company")
#f)) #f))
(opt-register (opt-register
(gnc:make-simple-boolean-option (gnc:make-simple-boolean-option
(_ "General") (N_ "General")
(_ "Enable Links") "c" (N_ "Enable Links") "c"
(_ "Enable hyperlinks in reports") (N_ "Enable hyperlinks in reports")
#t)) #t))
(opt-register (opt-register
(gnc:make-pixmap-option (gnc:make-pixmap-option
(_ "Images") (N_ "Images")
(_ "Background Tile") "a" (_ "Background tile for reports.") (N_ "Background Tile") "a" (N_ "Background tile for reports.")
"")) ""))
(opt-register (opt-register
(gnc:make-pixmap-option (gnc:make-pixmap-option
(_ "Images") (N_ "Images")
(_ "Heading Banner") "b" (_ "Banner for top of report.") (N_ "Heading Banner") "b" (N_ "Banner for top of report.")
"")) ""))
(opt-register (opt-register
(gnc:make-pixmap-option (gnc:make-pixmap-option
(_ "Images") (N_ "Images")
(_ "Logo") "c" (_ "Company logo image.") (N_ "Logo") "c" (N_ "Company logo image.")
"")) ""))
(opt-register (opt-register
(gnc:make-color-option (gnc:make-color-option
(_ "Colors") (N_ "Colors")
(_ "Background Color") "a" (_ "General background color for report.") (N_ "Background Color") "a" (N_ "General background color for report.")
(list #xff #x88 #xff 0) (list #xff #x88 #xff 0)
255 #f)) 255 #f))
(opt-register (opt-register
(gnc:make-color-option (gnc:make-color-option
(_ "Colors") (N_ "Colors")
(_ "Text Color") "b" (_ "Normal body text color.") (N_ "Text Color") "b" (N_ "Normal body text color.")
(list #x00 #x00 #x00 0) (list #x00 #x00 #x00 0)
255 #f)) 255 #f))
(opt-register (opt-register
(gnc:make-color-option (gnc:make-color-option
(_ "Colors") (N_ "Colors")
(_ "Link Color") "c" (_ "Link text color.") (N_ "Link Color") "c" (N_ "Link text color.")
(list #x00 #xff #xff 0) (list #x00 #xff #xff 0)
255 #f)) 255 #f))
(opt-register (opt-register
(gnc:make-color-option (gnc:make-color-option
(_ "Colors") (N_ "Colors")
(_ "Table Cell Color") "c" (_ "Default background for table cells.") (N_ "Table Cell Color") "c" (N_ "Default background for table cells.")
(list #xff #x00 #xff 0) (list #xff #x00 #xff 0)
255 #f)) 255 #f))
(opt-register (opt-register
(gnc:make-number-range-option (gnc:make-number-range-option
(_ "Tables") (N_ "Tables")
(_ "Table cell spacing") "a" (_ "Space between table cells") (N_ "Table cell spacing") "a" (N_ "Space between table cells")
1 0 20 0 1)) 1 0 20 0 1))
(opt-register (opt-register
(gnc:make-number-range-option (gnc:make-number-range-option
(_ "Tables") (N_ "Tables")
(_ "Table cell padding") "b" (_ "Space between table cells") (N_ "Table cell padding") "b" (N_ "Space between table cells")
1 0 20 0 1)) 1 0 20 0 1))
(opt-register (opt-register
(gnc:make-number-range-option (gnc:make-number-range-option
(_ "Tables") (N_ "Tables")
(_ "Table border width") "c" (_ "Bevel depth on tables") (N_ "Table border width") "c" (N_ "Bevel depth on tables")
1 0 20 0 1)) 1 0 20 0 1))
options)) options))
@ -127,20 +127,20 @@
(lambda (section name) (lambda (section name)
(gnc:color-option->html (gnc:color-option->html
(gnc:lookup-option options section name)))) (gnc:lookup-option options section name))))
(preparer (opt-val (_ "General") (_ "Preparer"))) (preparer (opt-val (N_ "General") (N_ "Preparer")))
(prepared-for (opt-val (_ "General") (_ "Prepared for"))) (prepared-for (opt-val (N_ "General") (N_ "Prepared for")))
(show-preparer? (opt-val (_ "General") (_ "Show preparer info"))) (show-preparer? (opt-val (N_ "General") (N_ "Show preparer info")))
(links? (opt-val (_ "General") (_ "Enable Links"))) (links? (opt-val (N_ "General") (N_ "Enable Links")))
(bgcolor (color-val (_ "Colors") (_ "Background Color"))) (bgcolor (color-val (N_ "Colors") (N_ "Background Color")))
(textcolor (color-val (_ "Colors") (_ "Text Color"))) (textcolor (color-val (N_ "Colors") (N_ "Text Color")))
(linkcolor (color-val (_ "Colors") (_ "Link Color"))) (linkcolor (color-val (N_ "Colors") (N_ "Link Color")))
(cellcolor (color-val (_ "Colors") (_ "Table Cell Color"))) (cellcolor (color-val (N_ "Colors") (N_ "Table Cell Color")))
(bgpixmap (opt-val (_ "Images") (_ "Background Tile"))) (bgpixmap (opt-val (N_ "Images") (N_ "Background Tile")))
(headpixmap (opt-val (_ "Images") (_ "Heading Banner"))) (headpixmap (opt-val (N_ "Images") (N_ "Heading Banner")))
(logopixmap (opt-val (_ "Images") (_ "Logo"))) (logopixmap (opt-val (N_ "Images") (N_ "Logo")))
(spacing (opt-val (_ "Tables") (_ "Table cell spacing"))) (spacing (opt-val (N_ "Tables") (N_ "Table cell spacing")))
(padding (opt-val (_ "Tables") (_ "Table cell padding"))) (padding (opt-val (N_ "Tables") (N_ "Table cell padding")))
(border (opt-val (_ "Tables") (_ "Table border width")))) (border (opt-val (N_ "Tables") (N_ "Table border width"))))
(gnc:html-document-set-style! (gnc:html-document-set-style!
ssdoc "body" ssdoc "body"

38
src/scm/report/stylesheet-plain.scm
View File

@ -35,34 +35,34 @@
(gnc:register-option options opt)))) (gnc:register-option options opt))))
(opt-register (opt-register
(gnc:make-color-option (gnc:make-color-option
(_ "General") (N_ "General")
(_ "Background Color") "a" (_ "Background color for reports.") (N_ "Background Color") "a" (N_ "Background color for reports.")
(list #xff #xff #xff 0) (list #xff #xff #xff 0)
255 #f)) 255 #f))
(opt-register (opt-register
(gnc:make-pixmap-option (gnc:make-pixmap-option
(_ "General") (N_ "General")
(_ "Background Pixmap") "b" (_ "Background tile for reports.") (N_ "Background Pixmap") "b" (N_ "Background tile for reports.")
"")) ""))
(opt-register (opt-register
(gnc:make-simple-boolean-option (gnc:make-simple-boolean-option
(_ "General") (N_ "General")
(_ "Enable Links") "c" (_ "Enable hyperlinks in reports.") (N_ "Enable Links") "c" (N_ "Enable hyperlinks in reports.")
#t)) #t))
(opt-register (opt-register
(gnc:make-number-range-option (gnc:make-number-range-option
(_ "Tables") (N_ "Tables")
(_ "Table cell spacing") "c" (_ "Space between table cells") (N_ "Table cell spacing") "c" (N_ "Space between table cells")
1 0 20 0 1)) 1 0 20 0 1))
(opt-register (opt-register
(gnc:make-number-range-option (gnc:make-number-range-option
(_ "Tables") (N_ "Tables")
(_ "Table cell padding") "d" (_ "Space between table cells") (N_ "Table cell padding") "d" (N_ "Space between table cells")
1 0 20 0 1)) 1 0 20 0 1))
(opt-register (opt-register
(gnc:make-number-range-option (gnc:make-number-range-option
(_ "Tables") (N_ "Tables")
(_ "Table border width") "e" (_ "Bevel depth on tables") (N_ "Table border width") "e" (N_ "Bevel depth on tables")
0 0 20 0 1)) 0 0 20 0 1))
options)) options))
@ -75,13 +75,13 @@
(bgcolor (bgcolor
(gnc:color-option->html (gnc:color-option->html
(gnc:lookup-option options (gnc:lookup-option options
(_ "General") (N_ "General")
(_ "Background Color")))) (N_ "Background Color"))))
(bgpixmap (opt-val (_ "General") (_ "Background Pixmap"))) (bgpixmap (opt-val (N_ "General") (N_ "Background Pixmap")))
(links? (opt-val (_ "General") (_ "Enable Links"))) (links? (opt-val (N_ "General") (N_ "Enable Links")))
(spacing (opt-val (_ "Tables") (_ "Table cell spacing"))) (spacing (opt-val (N_ "Tables") (N_ "Table cell spacing")))
(padding (opt-val (_ "Tables") (_ "Table cell padding"))) (padding (opt-val (N_ "Tables") (N_ "Table cell padding")))
(border (opt-val (_ "Tables") (_ "Table border width")))) (border (opt-val (N_ "Tables") (N_ "Table border width"))))
(gnc:html-document-set-style! (gnc:html-document-set-style!