mirror of
https://github.com/Gnucash/gnucash.git
synced 2025-02-25 18:55:30 -06:00
[stylesheets] merge easy/fancy/footer stylesheets
This commit is contained in:
Christopher Lam
parent
f35a39c744
commit
5614cbbe42
@ -37,9 +37,7 @@ install(TARGETS gncmod-stylesheets
|
||||
|
||||
set(stylesheets_SCHEME_1
|
||||
stylesheet-plain.scm
|
||||
stylesheet-fancy.scm
|
||||
stylesheet-footer.scm
|
||||
stylesheet-easy.scm
|
||||
stylesheet-head-or-tail.scm
|
||||
)
|
||||
|
||||
|
||||
@ -1,394 +0,0 @@
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;; stylesheet-easy.scm: stylesheet with nicer formatting for
|
||||
;; printing and easier configurability
|
||||
;;
|
||||
;; Copyright 2004 James Strandboge <jstrand1@rochester.rr.com>
|
||||
;;
|
||||
;; This program is free software; you can redistribute it and/or
|
||||
;; modify it under the terms of the GNU General Public License as
|
||||
;; published by the Free Software Foundation; either version 2 of
|
||||
;; the License, or (at your option) any later version.
|
||||
;;
|
||||
;; This program is distributed in the hope that it will be useful,
|
||||
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
;; GNU General Public License for more details.
|
||||
;;
|
||||
;; You should have received a copy of the GNU General Public License
|
||||
;; along with this program; if not, contact:
|
||||
;;
|
||||
;; Free Software Foundation Voice: +1-617-542-5942
|
||||
;; 51 Franklin Street, Fifth Floor Fax: +1-617-542-2652
|
||||
;; Boston, MA 02110-1301, USA gnu@gnu.org
|
||||
;;
|
||||
;; Based on work from:
|
||||
;; stylesheet-header.scm
|
||||
;; Copyright 2000 Bill Gribble <grib@gnumatic.com>
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
||||
|
||||
(define-module (gnucash report stylesheet-easy))
|
||||
|
||||
(use-modules (gnucash utilities))
|
||||
(use-modules (gnucash gnc-module))
|
||||
(use-modules (gnucash gettext))
|
||||
|
||||
(gnc:module-load "gnucash/html" 0)
|
||||
(gnc:module-load "gnucash/report/report-system" 0)
|
||||
|
||||
(define (easy-options)
|
||||
(let* ((options (gnc:new-options))
|
||||
(opt-register
|
||||
(lambda (opt)
|
||||
(gnc:register-option options opt))))
|
||||
(opt-register
|
||||
(gnc:make-string-option
|
||||
(N_ "General")
|
||||
(N_ "Preparer") "a"
|
||||
(N_ "Name of person preparing the report.")
|
||||
""))
|
||||
(opt-register
|
||||
(gnc:make-string-option
|
||||
(N_ "General")
|
||||
(N_ "Prepared for") "b"
|
||||
(N_ "Name of organization or company prepared for.")
|
||||
""))
|
||||
(opt-register
|
||||
(gnc:make-simple-boolean-option
|
||||
(N_ "General")
|
||||
(N_ "Show preparer info") "c"
|
||||
(N_ "Name of organization or company.")
|
||||
#f))
|
||||
(opt-register
|
||||
(gnc:make-simple-boolean-option
|
||||
(N_ "General")
|
||||
(N_ "Enable Links") "d"
|
||||
(N_ "Enable hyperlinks in reports.")
|
||||
#t))
|
||||
|
||||
(opt-register
|
||||
(gnc:make-pixmap-option
|
||||
(N_ "Images")
|
||||
(N_ "Background Tile") "a" (N_ "Background tile for reports.")
|
||||
""))
|
||||
(opt-register
|
||||
(gnc:make-pixmap-option
|
||||
(N_ "Images")
|
||||
(N_ "Heading Banner") "b" (N_ "Banner for top of report.")
|
||||
""))
|
||||
(opt-register
|
||||
(gnc:make-multichoice-option
|
||||
(N_ "Images")
|
||||
(N_ "Heading Alignment") "c" (N_ "Banner for top of report.")
|
||||
'left
|
||||
(list (vector 'left
|
||||
(N_ "Left")
|
||||
(N_ "Align the banner to the left."))
|
||||
(vector 'center
|
||||
(N_ "Center")
|
||||
(N_ "Align the banner in the center."))
|
||||
(vector 'right
|
||||
(N_ "Right")
|
||||
(N_ "Align the banner to the right."))
|
||||
)))
|
||||
(opt-register
|
||||
(gnc:make-pixmap-option
|
||||
(N_ "Images")
|
||||
(N_ "Logo") "d" (N_ "Company logo image.")
|
||||
""))
|
||||
|
||||
(opt-register
|
||||
(gnc:make-color-option
|
||||
(N_ "Colors")
|
||||
(N_ "Background Color") "a" (N_ "General background color for report.")
|
||||
(list #xff #xff #xff #xff)
|
||||
255 #f))
|
||||
|
||||
(opt-register
|
||||
(gnc:make-color-option
|
||||
(N_ "Colors")
|
||||
(N_ "Text Color") "b" (N_ "Normal body text color.")
|
||||
(list #x00 #x00 #x00 #xff)
|
||||
255 #f))
|
||||
|
||||
(opt-register
|
||||
(gnc:make-color-option
|
||||
(N_ "Colors")
|
||||
(N_ "Link Color") "c" (N_ "Link text color.")
|
||||
(list #xb2 #x22 #x22 #xff)
|
||||
255 #f))
|
||||
|
||||
(opt-register
|
||||
(gnc:make-color-option
|
||||
(N_ "Colors")
|
||||
(N_ "Table Cell Color") "c" (N_ "Default background for table cells.")
|
||||
(list #xff #xff #xff #xff)
|
||||
255 #f))
|
||||
|
||||
(opt-register
|
||||
(gnc:make-color-option
|
||||
(N_ "Colors")
|
||||
(N_ "Alternate Table Cell Color") "d"
|
||||
(N_ "Default alternate background for table cells.")
|
||||
(list #xff #xff #xff #xff)
|
||||
255 #f))
|
||||
|
||||
(opt-register
|
||||
(gnc:make-color-option
|
||||
(N_ "Colors")
|
||||
(N_ "Subheading/Subtotal Cell Color") "e"
|
||||
(N_ "Default color for subtotal rows.")
|
||||
(list #xee #xe8 #xaa #xff)
|
||||
255 #f))
|
||||
|
||||
(opt-register
|
||||
(gnc:make-color-option
|
||||
(N_ "Colors")
|
||||
(N_ "Sub-subheading/total Cell Color") "f"
|
||||
(N_ "Color for subsubtotals.")
|
||||
(list #xfa #xfa #xd2 #xff)
|
||||
255 #f))
|
||||
|
||||
(opt-register
|
||||
(gnc:make-color-option
|
||||
(N_ "Colors")
|
||||
(N_ "Grand Total Cell Color") "g"
|
||||
(N_ "Color for grand totals.")
|
||||
(list #xff #xff #x00 #xff)
|
||||
255 #f))
|
||||
|
||||
(opt-register
|
||||
(gnc:make-number-range-option
|
||||
(N_ "Tables")
|
||||
(N_ "Table cell spacing") "a" (N_ "Space between table cells.")
|
||||
1 0 20 0 1))
|
||||
|
||||
(opt-register
|
||||
(gnc:make-number-range-option
|
||||
(N_ "Tables")
|
||||
(N_ "Table cell padding") "b" (N_ "Space between table cell edge and content.")
|
||||
1 0 20 0 1))
|
||||
|
||||
(opt-register
|
||||
(gnc:make-number-range-option
|
||||
(N_ "Tables")
|
||||
(N_ "Table border width") "c" (N_ "Bevel depth on tables.")
|
||||
1 0 20 0 1))
|
||||
(register-font-options options)
|
||||
|
||||
options))
|
||||
|
||||
(define (easy-renderer options doc)
|
||||
(let* ((ssdoc (gnc:make-html-document))
|
||||
(opt-val
|
||||
(lambda (section name)
|
||||
(gnc:option-value
|
||||
(gnc:lookup-option options section name))))
|
||||
(color-val
|
||||
(lambda (section name)
|
||||
(gnc:color-option->html
|
||||
(gnc:lookup-option options section name))))
|
||||
(preparer (opt-val "General" "Preparer"))
|
||||
(prepared-for (opt-val "General" "Prepared for"))
|
||||
(show-preparer? (opt-val "General" "Show preparer info"))
|
||||
(links? (opt-val "General" "Enable Links"))
|
||||
(bgcolor (color-val "Colors" "Background Color"))
|
||||
(textcolor (color-val "Colors" "Text Color"))
|
||||
(linkcolor (color-val "Colors" "Link Color"))
|
||||
(normal-row-color (color-val "Colors" "Table Cell Color"))
|
||||
(alternate-row-color (color-val "Colors" "Alternate Table Cell Color"))
|
||||
(primary-subheading-color
|
||||
(color-val "Colors" "Subheading/Subtotal Cell Color"))
|
||||
(secondary-subheading-color
|
||||
(color-val "Colors" "Sub-subheading/total Cell Color"))
|
||||
(grand-total-color (color-val "Colors" "Grand Total Cell Color"))
|
||||
(bgpixmap (opt-val "Images" "Background Tile"))
|
||||
(headpixmap (opt-val "Images" "Heading Banner"))
|
||||
(logopixmap (opt-val "Images" "Logo"))
|
||||
(align (gnc:value->string (opt-val "Images" "Heading Alignment")))
|
||||
(spacing (opt-val "Tables" "Table cell spacing"))
|
||||
(padding (opt-val "Tables" "Table cell padding"))
|
||||
(border (opt-val "Tables" "Table border width"))
|
||||
(headcolumn 0))
|
||||
|
||||
(gnc:html-document-set-style!
|
||||
ssdoc "body"
|
||||
'attribute (list "bgcolor" bgcolor)
|
||||
'attribute (list "text" textcolor)
|
||||
'attribute (list "link" linkcolor))
|
||||
;;;;
|
||||
;;;;
|
||||
;;;;
|
||||
(gnc:html-document-set-style!
|
||||
ssdoc "column-heading-left"
|
||||
'tag "th"
|
||||
'attribute (list "class" "column-heading-left"))
|
||||
|
||||
(gnc:html-document-set-style!
|
||||
ssdoc "column-heading-center"
|
||||
'tag "th"
|
||||
'attribute (list "class" "column-heading-center"))
|
||||
|
||||
(gnc:html-document-set-style!
|
||||
ssdoc "column-heading-right"
|
||||
'tag "th"
|
||||
'attribute (list "class" "column-heading-right"))
|
||||
|
||||
(gnc:html-document-set-style!
|
||||
ssdoc "date-cell"
|
||||
'tag "td"
|
||||
'attribute (list "class" "date-cell"))
|
||||
|
||||
(gnc:html-document-set-style!
|
||||
ssdoc "anchor-cell"
|
||||
'tag "td"
|
||||
'attribute (list "class" "anchor-cell"))
|
||||
|
||||
(gnc:html-document-set-style!
|
||||
ssdoc "number-cell"
|
||||
'tag "td"
|
||||
'attribute (list "class" "number-cell"))
|
||||
|
||||
(gnc:html-document-set-style!
|
||||
ssdoc "number-cell-neg"
|
||||
'tag "td"
|
||||
'attribute (list "class" "number-cell neg"))
|
||||
|
||||
(gnc:html-document-set-style!
|
||||
ssdoc "number-header"
|
||||
'tag "th"
|
||||
'attribute (list "class" "number-header"))
|
||||
|
||||
(gnc:html-document-set-style!
|
||||
ssdoc "text-cell"
|
||||
'tag "td"
|
||||
'attribute (list "class" "text-cell"))
|
||||
|
||||
(gnc:html-document-set-style!
|
||||
ssdoc "total-number-cell"
|
||||
'tag '("td")
|
||||
'attribute (list "class" "total-number-cell"))
|
||||
|
||||
(gnc:html-document-set-style!
|
||||
ssdoc "total-number-cell-neg"
|
||||
'tag '("td")
|
||||
'attribute (list "class" "total-number-cell neg"))
|
||||
|
||||
(gnc:html-document-set-style!
|
||||
ssdoc "total-label-cell"
|
||||
'tag '("td")
|
||||
'attribute (list "class" "total-label-cell"))
|
||||
|
||||
(gnc:html-document-set-style!
|
||||
ssdoc "centered-label-cell"
|
||||
'tag '("td")
|
||||
'attribute (list "class" "centered-label-cell"))
|
||||
|
||||
(if (and bgpixmap
|
||||
(not (string=? bgpixmap "")))
|
||||
(gnc:html-document-set-style!
|
||||
ssdoc "body"
|
||||
'attribute (list "background" (make-file-url bgpixmap))))
|
||||
|
||||
(gnc:html-document-set-style!
|
||||
ssdoc "table"
|
||||
'attribute (list "border" border)
|
||||
'attribute (list "cellspacing" spacing)
|
||||
'attribute (list "cellpadding" padding))
|
||||
|
||||
(gnc:html-document-set-style!
|
||||
ssdoc "normal-row"
|
||||
'attribute (list "bgcolor" normal-row-color)
|
||||
'tag "tr")
|
||||
(gnc:html-document-set-style!
|
||||
ssdoc "alternate-row"
|
||||
'attribute (list "bgcolor" alternate-row-color)
|
||||
'tag "tr")
|
||||
(gnc:html-document-set-style!
|
||||
ssdoc "primary-subheading"
|
||||
'attribute (list "bgcolor" primary-subheading-color)
|
||||
'tag "tr")
|
||||
(gnc:html-document-set-style!
|
||||
ssdoc "secondary-subheading"
|
||||
'attribute (list "bgcolor" secondary-subheading-color)
|
||||
'tag "tr")
|
||||
(gnc:html-document-set-style!
|
||||
ssdoc "grand-total"
|
||||
'attribute (list "bgcolor" grand-total-color)
|
||||
'tag "tr")
|
||||
|
||||
;; don't surround marked-up links with <a> </a>
|
||||
(if (not links?)
|
||||
(gnc:html-document-set-style!
|
||||
ssdoc "a" 'tag ""))
|
||||
|
||||
(add-css-information-to-doc options ssdoc doc)
|
||||
|
||||
(let ((t (gnc:make-html-table)))
|
||||
;; we don't want a bevel for this table, but we don't want
|
||||
;; that to propagate
|
||||
(gnc:html-table-set-style!
|
||||
t "table"
|
||||
'attribute (list "border" 0)
|
||||
'attribute (list "style" "margin-left:auto; margin-right:auto")
|
||||
'inheritable? #f)
|
||||
|
||||
;; set the header column to be the 2nd when we have a logo
|
||||
;; do this so that when logo is not present, the document
|
||||
;; is perfectly centered
|
||||
(if (and logopixmap (> (string-length logopixmap) 0))
|
||||
(set! headcolumn 1))
|
||||
|
||||
(let* ((headline (or (gnc:html-document-headline doc)
|
||||
(gnc:html-document-title doc))))
|
||||
|
||||
(gnc:html-table-set-cell!
|
||||
t 1 headcolumn
|
||||
(if show-preparer?
|
||||
;; title plus preparer info
|
||||
(gnc:make-html-text
|
||||
(gnc:html-markup-h3 headline)
|
||||
(gnc:html-markup-br)
|
||||
(_ "Prepared by: ")
|
||||
(gnc:html-markup-b preparer)
|
||||
(gnc:html-markup-br)
|
||||
(_ "Prepared for: ")
|
||||
(gnc:html-markup-b prepared-for)
|
||||
(gnc:html-markup-br)
|
||||
(_ "Date: ")
|
||||
(qof-print-date
|
||||
(current-time)))
|
||||
|
||||
;; title only
|
||||
(gnc:make-html-text
|
||||
(gnc:html-markup-h3 headline))))
|
||||
)
|
||||
|
||||
;; only setup an image if we specified one
|
||||
(if (and logopixmap (> (string-length logopixmap) 0))
|
||||
(gnc:html-table-set-cell!
|
||||
t 0 0
|
||||
(gnc:make-html-text
|
||||
(gnc:html-markup-img (make-file-url logopixmap)))))
|
||||
|
||||
(if (and headpixmap (> (string-length headpixmap) 0))
|
||||
(let* ((div (gnc:html-markup-img (make-file-url headpixmap)))
|
||||
(cell (gnc:make-html-table-cell (gnc:make-html-text div))))
|
||||
(gnc:html-table-cell-set-style! cell "td" 'attribute `("align" ,align))
|
||||
(gnc:html-table-set-cell! t 0 headcolumn cell))
|
||||
(gnc:html-table-set-cell! t 0 headcolumn (gnc:make-html-text " ")))
|
||||
|
||||
(apply
|
||||
gnc:html-table-set-cell!
|
||||
t 2 headcolumn
|
||||
(gnc:html-document-objects doc))
|
||||
(gnc:html-document-add-object! ssdoc t))
|
||||
ssdoc))
|
||||
|
||||
(gnc:define-html-style-sheet
|
||||
'version 1
|
||||
'name (N_ "Easy")
|
||||
'renderer easy-renderer
|
||||
'options-generator easy-options)
|
||||
|
||||
(gnc:make-html-style-sheet "Easy" (N_ "Easy"))
|
||||
@ -1,388 +0,0 @@
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;; stylesheet-header.scm : stylesheet with nicer layout
|
||||
;; Copyright 2000 Bill Gribble <grib@gnumatic.com>
|
||||
;;
|
||||
;; This program is free software; you can redistribute it and/or
|
||||
;; modify it under the terms of the GNU General Public License as
|
||||
;; published by the Free Software Foundation; either version 2 of
|
||||
;; the License, or (at your option) any later version.
|
||||
;;
|
||||
;; This program is distributed in the hope that it will be useful,
|
||||
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
;; GNU General Public License for more details.
|
||||
;;
|
||||
;; You should have received a copy of the GNU General Public License
|
||||
;; along with this program; if not, contact:
|
||||
;;
|
||||
;; Free Software Foundation Voice: +1-617-542-5942
|
||||
;; 51 Franklin Street, Fifth Floor Fax: +1-617-542-2652
|
||||
;; Boston, MA 02110-1301, USA gnu@gnu.org
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
||||
|
||||
(define-module (gnucash report stylesheet-fancy))
|
||||
|
||||
(use-modules (gnucash utilities))
|
||||
(use-modules (gnucash gnc-module))
|
||||
(use-modules (gnucash gettext))
|
||||
|
||||
(gnc:module-load "gnucash/html" 0)
|
||||
(gnc:module-load "gnucash/report/report-system" 0)
|
||||
|
||||
(define (fancy-options)
|
||||
(let* ((options (gnc:new-options))
|
||||
(opt-register
|
||||
(lambda (opt)
|
||||
(gnc:register-option options opt))))
|
||||
(opt-register
|
||||
(gnc:make-string-option
|
||||
(N_ "General")
|
||||
(N_ "Preparer") "a"
|
||||
(N_ "Name of person preparing the report.")
|
||||
""))
|
||||
(opt-register
|
||||
(gnc:make-string-option
|
||||
(N_ "General")
|
||||
(N_ "Prepared for") "b"
|
||||
(N_ "Name of organization or company prepared for.")
|
||||
""))
|
||||
(opt-register
|
||||
(gnc:make-simple-boolean-option
|
||||
(N_ "General")
|
||||
(N_ "Show preparer info") "c"
|
||||
(N_ "Name of organization or company.")
|
||||
#f))
|
||||
(opt-register
|
||||
(gnc:make-simple-boolean-option
|
||||
(N_ "General")
|
||||
(N_ "Enable Links") "d"
|
||||
(N_ "Enable hyperlinks in reports.")
|
||||
#t))
|
||||
|
||||
(opt-register
|
||||
(gnc:make-pixmap-option
|
||||
(N_ "Images")
|
||||
(N_ "Background Tile") "a" (N_ "Background tile for reports.")
|
||||
""))
|
||||
(opt-register
|
||||
(gnc:make-pixmap-option
|
||||
(N_ "Images")
|
||||
(N_ "Heading Banner") "b" (N_ "Banner for top of report.")
|
||||
""))
|
||||
(opt-register
|
||||
(gnc:make-multichoice-option
|
||||
(N_ "Images")
|
||||
(N_ "Heading Alignment") "c" (N_ "Banner for top of report.")
|
||||
'left
|
||||
(list (vector 'left
|
||||
(N_ "Left")
|
||||
(N_ "Align the banner to the left."))
|
||||
(vector 'center
|
||||
(N_ "Center")
|
||||
(N_ "Align the banner in the center."))
|
||||
(vector 'right
|
||||
(N_ "Right")
|
||||
(N_ "Align the banner to the right."))
|
||||
)))
|
||||
(opt-register
|
||||
(gnc:make-pixmap-option
|
||||
(N_ "Images")
|
||||
(N_ "Logo") "d" (N_ "Company logo image.")
|
||||
""))
|
||||
|
||||
(opt-register
|
||||
(gnc:make-color-option
|
||||
(N_ "Colors")
|
||||
(N_ "Background Color") "a" (N_ "General background color for report.")
|
||||
(list #xff #xff #xff #xff)
|
||||
255 #f))
|
||||
|
||||
(opt-register
|
||||
(gnc:make-color-option
|
||||
(N_ "Colors")
|
||||
(N_ "Text Color") "b" (N_ "Normal body text color.")
|
||||
(list #x00 #x00 #x00 #xff)
|
||||
255 #f))
|
||||
|
||||
(opt-register
|
||||
(gnc:make-color-option
|
||||
(N_ "Colors")
|
||||
(N_ "Link Color") "c" (N_ "Link text color.")
|
||||
(list #xb2 #x22 #x22 #xff)
|
||||
255 #f))
|
||||
|
||||
(opt-register
|
||||
(gnc:make-color-option
|
||||
(N_ "Colors")
|
||||
(N_ "Table Cell Color") "c" (N_ "Default background for table cells.")
|
||||
(list #xff #xff #xff #xff)
|
||||
255 #f))
|
||||
|
||||
(opt-register
|
||||
(gnc:make-color-option
|
||||
(N_ "Colors")
|
||||
(N_ "Alternate Table Cell Color") "d"
|
||||
(N_ "Default alternate background for table cells.")
|
||||
(list #xff #xff #xff #xff)
|
||||
255 #f))
|
||||
|
||||
(opt-register
|
||||
(gnc:make-color-option
|
||||
(N_ "Colors")
|
||||
(N_ "Subheading/Subtotal Cell Color") "e"
|
||||
(N_ "Default color for subtotal rows.")
|
||||
(list #xee #xe8 #xaa #xff)
|
||||
255 #f))
|
||||
|
||||
(opt-register
|
||||
(gnc:make-color-option
|
||||
(N_ "Colors")
|
||||
(N_ "Sub-subheading/total Cell Color") "f"
|
||||
(N_ "Color for subsubtotals.")
|
||||
(list #xfa #xfa #xd2 #xff)
|
||||
255 #f))
|
||||
|
||||
(opt-register
|
||||
(gnc:make-color-option
|
||||
(N_ "Colors")
|
||||
(N_ "Grand Total Cell Color") "g"
|
||||
(N_ "Color for grand totals.")
|
||||
(list #xff #xff #x00 #xff)
|
||||
255 #f))
|
||||
|
||||
(opt-register
|
||||
(gnc:make-number-range-option
|
||||
(N_ "Tables")
|
||||
(N_ "Table cell spacing") "a" (N_ "Space between table cells.")
|
||||
1 0 20 0 1))
|
||||
|
||||
(opt-register
|
||||
(gnc:make-number-range-option
|
||||
(N_ "Tables")
|
||||
(N_ "Table cell padding") "b" (N_ "Space between table cell edge and content.")
|
||||
1 0 20 0 1))
|
||||
|
||||
(opt-register
|
||||
(gnc:make-number-range-option
|
||||
(N_ "Tables")
|
||||
(N_ "Table border width") "c" (N_ "Bevel depth on tables.")
|
||||
1 0 20 0 1))
|
||||
(register-font-options options)
|
||||
|
||||
options))
|
||||
|
||||
(define (fancy-renderer options doc)
|
||||
(let* ((ssdoc (gnc:make-html-document))
|
||||
(opt-val
|
||||
(lambda (section name)
|
||||
(gnc:option-value
|
||||
(gnc:lookup-option options section name))))
|
||||
(color-val
|
||||
(lambda (section name)
|
||||
(gnc:color-option->html
|
||||
(gnc:lookup-option options section name))))
|
||||
(preparer (opt-val "General" "Preparer"))
|
||||
(prepared-for (opt-val "General" "Prepared for"))
|
||||
(show-preparer? (opt-val "General" "Show preparer info"))
|
||||
(links? (opt-val "General" "Enable Links"))
|
||||
(bgcolor (color-val "Colors" "Background Color"))
|
||||
(textcolor (color-val "Colors" "Text Color"))
|
||||
(linkcolor (color-val "Colors" "Link Color"))
|
||||
(normal-row-color (color-val "Colors" "Table Cell Color"))
|
||||
(alternate-row-color (color-val "Colors" "Alternate Table Cell Color"))
|
||||
(primary-subheading-color
|
||||
(color-val "Colors" "Subheading/Subtotal Cell Color"))
|
||||
(secondary-subheading-color
|
||||
(color-val "Colors" "Sub-subheading/total Cell Color"))
|
||||
(grand-total-color (color-val "Colors" "Grand Total Cell Color"))
|
||||
(bgpixmap (opt-val "Images" "Background Tile"))
|
||||
(headpixmap (opt-val "Images" "Heading Banner"))
|
||||
(logopixmap (opt-val "Images" "Logo"))
|
||||
(align (gnc:value->string (opt-val "Images" "Heading Alignment")))
|
||||
(spacing (opt-val "Tables" "Table cell spacing"))
|
||||
(padding (opt-val "Tables" "Table cell padding"))
|
||||
(border (opt-val "Tables" "Table border width"))
|
||||
(headcolumn 0))
|
||||
|
||||
(gnc:html-document-set-style!
|
||||
ssdoc "body"
|
||||
'attribute (list "bgcolor" bgcolor)
|
||||
'attribute (list "text" textcolor)
|
||||
'attribute (list "link" linkcolor))
|
||||
;;;;
|
||||
;;;;
|
||||
;;;;
|
||||
(gnc:html-document-set-style!
|
||||
ssdoc "column-heading-left"
|
||||
'tag "th"
|
||||
'attribute (list "class" "column-heading-left"))
|
||||
|
||||
(gnc:html-document-set-style!
|
||||
ssdoc "column-heading-center"
|
||||
'tag "th"
|
||||
'attribute (list "class" "column-heading-center"))
|
||||
|
||||
(gnc:html-document-set-style!
|
||||
ssdoc "column-heading-right"
|
||||
'tag "th"
|
||||
'attribute (list "class" "column-heading-right"))
|
||||
|
||||
(gnc:html-document-set-style!
|
||||
ssdoc "date-cell"
|
||||
'tag "td"
|
||||
'attribute (list "class" "date-cell"))
|
||||
|
||||
(gnc:html-document-set-style!
|
||||
ssdoc "anchor-cell"
|
||||
'tag "td"
|
||||
'attribute (list "class" "anchor-cell"))
|
||||
|
||||
(gnc:html-document-set-style!
|
||||
ssdoc "number-cell"
|
||||
'tag "td"
|
||||
'attribute (list "class" "number-cell"))
|
||||
|
||||
(gnc:html-document-set-style!
|
||||
ssdoc "number-cell-neg"
|
||||
'tag "td"
|
||||
'attribute (list "class" "number-cell neg"))
|
||||
|
||||
(gnc:html-document-set-style!
|
||||
ssdoc "number-header"
|
||||
'tag "th"
|
||||
'attribute (list "class" "number-header"))
|
||||
|
||||
(gnc:html-document-set-style!
|
||||
ssdoc "text-cell"
|
||||
'tag "td"
|
||||
'attribute (list "class" "text-cell"))
|
||||
|
||||
(gnc:html-document-set-style!
|
||||
ssdoc "total-number-cell"
|
||||
'tag '("td")
|
||||
'attribute (list "class" "total-number-cell"))
|
||||
|
||||
(gnc:html-document-set-style!
|
||||
ssdoc "total-number-cell-neg"
|
||||
'tag '("td")
|
||||
'attribute (list "class" "total-number-cell neg"))
|
||||
|
||||
(gnc:html-document-set-style!
|
||||
ssdoc "total-label-cell"
|
||||
'tag '("td")
|
||||
'attribute (list "class" "total-label-cell"))
|
||||
|
||||
(gnc:html-document-set-style!
|
||||
ssdoc "centered-label-cell"
|
||||
'tag '("td")
|
||||
'attribute (list "class" "centered-label-cell"))
|
||||
|
||||
(if (and bgpixmap
|
||||
(not (string=? bgpixmap "")))
|
||||
(gnc:html-document-set-style!
|
||||
ssdoc "body"
|
||||
'attribute (list "background" (make-file-url bgpixmap))))
|
||||
|
||||
(gnc:html-document-set-style!
|
||||
ssdoc "table"
|
||||
'attribute (list "border" border)
|
||||
'attribute (list "cellspacing" spacing)
|
||||
'attribute (list "cellpadding" padding))
|
||||
|
||||
(gnc:html-document-set-style!
|
||||
ssdoc "normal-row"
|
||||
'attribute (list "bgcolor" normal-row-color)
|
||||
'tag "tr")
|
||||
(gnc:html-document-set-style!
|
||||
ssdoc "alternate-row"
|
||||
'attribute (list "bgcolor" alternate-row-color)
|
||||
'tag "tr")
|
||||
(gnc:html-document-set-style!
|
||||
ssdoc "primary-subheading"
|
||||
'attribute (list "bgcolor" primary-subheading-color)
|
||||
'tag "tr")
|
||||
(gnc:html-document-set-style!
|
||||
ssdoc "secondary-subheading"
|
||||
'attribute (list "bgcolor" secondary-subheading-color)
|
||||
'tag "tr")
|
||||
(gnc:html-document-set-style!
|
||||
ssdoc "grand-total"
|
||||
'attribute (list "bgcolor" grand-total-color)
|
||||
'tag "tr")
|
||||
|
||||
;; don't surround marked-up links with <a> </a>
|
||||
(if (not links?)
|
||||
(gnc:html-document-set-style!
|
||||
ssdoc "a" 'tag ""))
|
||||
|
||||
(add-css-information-to-doc options ssdoc doc)
|
||||
|
||||
(let ((t (gnc:make-html-table)))
|
||||
;; we don't want a bevel for this table, but we don't want
|
||||
;; that to propagate
|
||||
(gnc:html-table-set-style!
|
||||
t "table"
|
||||
'attribute (list "border" 0)
|
||||
'attribute (list "style" "margin-left:auto; margin-right:auto")
|
||||
'inheritable? #f)
|
||||
|
||||
;; set the header column to be the 2nd when we have a logo
|
||||
;; do this so that when logo is not present, the document
|
||||
;; is perfectly centered
|
||||
(if (and logopixmap (> (string-length logopixmap) 0))
|
||||
(set! headcolumn 1))
|
||||
|
||||
(let* ((headline (or (gnc:html-document-headline doc)
|
||||
(gnc:html-document-title doc))))
|
||||
|
||||
(gnc:html-table-set-cell!
|
||||
t 1 headcolumn
|
||||
(if show-preparer?
|
||||
;; title plus preparer info
|
||||
(gnc:make-html-text
|
||||
(gnc:html-markup-h3 headline)
|
||||
(gnc:html-markup-br)
|
||||
(_ "Prepared by: ")
|
||||
(gnc:html-markup-b preparer)
|
||||
(gnc:html-markup-br)
|
||||
(_ "Prepared for: ")
|
||||
(gnc:html-markup-b prepared-for)
|
||||
(gnc:html-markup-br)
|
||||
(_ "Date: ")
|
||||
(qof-print-date
|
||||
(current-time)))
|
||||
|
||||
;; title only
|
||||
(gnc:make-html-text
|
||||
(gnc:html-markup-h3 headline))))
|
||||
)
|
||||
|
||||
;; only setup an image if we specified one
|
||||
(if (and logopixmap (> (string-length logopixmap) 0))
|
||||
(gnc:html-table-set-cell!
|
||||
t 0 0
|
||||
(gnc:make-html-text
|
||||
(gnc:html-markup-img (make-file-url logopixmap)))))
|
||||
|
||||
(if (and headpixmap (> (string-length headpixmap) 0))
|
||||
(let* ((div (gnc:html-markup-img (make-file-url headpixmap)))
|
||||
(cell (gnc:make-html-table-cell (gnc:make-html-text div))))
|
||||
(gnc:html-table-cell-set-style! cell "td" 'attribute `("align" ,align))
|
||||
(gnc:html-table-set-cell! t 0 headcolumn cell))
|
||||
(gnc:html-table-set-cell! t 0 headcolumn (gnc:make-html-text " ")))
|
||||
|
||||
(apply
|
||||
gnc:html-table-set-cell!
|
||||
t 2 headcolumn
|
||||
(gnc:html-document-objects doc))
|
||||
(gnc:html-document-add-object! ssdoc t))
|
||||
ssdoc))
|
||||
|
||||
(gnc:define-html-style-sheet
|
||||
'version 1.01
|
||||
'name (N_ "Fancy")
|
||||
'renderer fancy-renderer
|
||||
'options-generator fancy-options)
|
||||
|
||||
(gnc:make-html-style-sheet "Fancy" (N_ "Technicolor"))
|
||||
@ -27,6 +27,8 @@
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
||||
;
|
||||
;; Merged with easy/fancy/footer stylesheets
|
||||
;; by Christopher Lam in 2019
|
||||
;; Modified by Graham Billiau to include a text footer
|
||||
;; with small adjustments by Frank H. Ellenberger 2010
|
||||
;
|
||||
@ -41,36 +43,40 @@
|
||||
(gnc:module-load "gnucash/html" 0)
|
||||
(gnc:module-load "gnucash/report/report-system" 0)
|
||||
|
||||
(define (footer-options)
|
||||
(define (easy-fancy-footer-options)
|
||||
(let* ((options (gnc:new-options))
|
||||
(opt-register
|
||||
(lambda (opt)
|
||||
(gnc:register-option options opt))))
|
||||
|
||||
(opt-register
|
||||
(gnc:make-string-option
|
||||
(N_ "General")
|
||||
(N_ "Preparer") "a"
|
||||
(N_ "Name of person preparing the report.")
|
||||
""))
|
||||
|
||||
(opt-register
|
||||
(gnc:make-string-option
|
||||
(N_ "General")
|
||||
(N_ "Prepared for") "b"
|
||||
(N_ "Name of organization or company prepared for.")
|
||||
""))
|
||||
|
||||
(opt-register
|
||||
(gnc:make-simple-boolean-option
|
||||
(N_ "General")
|
||||
(N_ "Show preparer info") "c"
|
||||
(N_ "Name of organization or company.")
|
||||
#f))
|
||||
|
||||
(opt-register
|
||||
(gnc:make-simple-boolean-option
|
||||
(N_ "General")
|
||||
(N_ "Enable Links") "d"
|
||||
(N_ "Enable hyperlinks in reports.")
|
||||
#t))
|
||||
;; FIXME: put this in a more sensible tab like Text or Header/Footer
|
||||
|
||||
(opt-register
|
||||
(gnc:make-text-option
|
||||
(N_ "General")
|
||||
@ -83,12 +89,14 @@
|
||||
(N_ "Images")
|
||||
(N_ "Background Tile") "a" (N_ "Background tile for reports.")
|
||||
""))
|
||||
|
||||
(opt-register
|
||||
(gnc:make-pixmap-option
|
||||
(N_ "Images")
|
||||
;;; Translators: Banner is an image like Logo.
|
||||
(N_ "Heading Banner") "b" (N_ "Banner for top of report.")
|
||||
""))
|
||||
|
||||
(opt-register
|
||||
(gnc:make-multichoice-option
|
||||
(N_ "Images")
|
||||
@ -102,8 +110,8 @@
|
||||
(N_ "Align the banner in the center."))
|
||||
(vector 'right
|
||||
(N_ "Right")
|
||||
(N_ "Align the banner to the right."))
|
||||
)))
|
||||
(N_ "Align the banner to the right.")))))
|
||||
|
||||
(opt-register
|
||||
(gnc:make-pixmap-option
|
||||
(N_ "Images")
|
||||
@ -191,7 +199,7 @@
|
||||
|
||||
options))
|
||||
|
||||
(define (footer-renderer options doc)
|
||||
(define (easy-fancy-footer-renderer options doc)
|
||||
(let* ((ssdoc (gnc:make-html-document))
|
||||
(opt-val
|
||||
(lambda (section name)
|
||||
@ -222,8 +230,7 @@
|
||||
(align (gnc:value->string (opt-val "Images" "Heading Alignment")))
|
||||
(spacing (opt-val "Tables" "Table cell spacing"))
|
||||
(padding (opt-val "Tables" "Table cell padding"))
|
||||
(border (opt-val "Tables" "Table border width"))
|
||||
(headcolumn 0))
|
||||
(border (opt-val "Tables" "Table border width")))
|
||||
|
||||
(gnc:html-document-set-style!
|
||||
ssdoc "body"
|
||||
@ -314,18 +321,22 @@
|
||||
ssdoc "normal-row"
|
||||
'attribute (list "bgcolor" normal-row-color)
|
||||
'tag "tr")
|
||||
|
||||
(gnc:html-document-set-style!
|
||||
ssdoc "alternate-row"
|
||||
'attribute (list "bgcolor" alternate-row-color)
|
||||
'tag "tr")
|
||||
|
||||
(gnc:html-document-set-style!
|
||||
ssdoc "primary-subheading"
|
||||
'attribute (list "bgcolor" primary-subheading-color)
|
||||
'tag "tr")
|
||||
|
||||
(gnc:html-document-set-style!
|
||||
ssdoc "secondary-subheading"
|
||||
'attribute (list "bgcolor" secondary-subheading-color)
|
||||
'tag "tr")
|
||||
|
||||
(gnc:html-document-set-style!
|
||||
ssdoc "grand-total"
|
||||
'attribute (list "bgcolor" grand-total-color)
|
||||
@ -338,7 +349,13 @@
|
||||
|
||||
(add-css-information-to-doc options ssdoc doc)
|
||||
|
||||
(let ((t (gnc:make-html-table)))
|
||||
(let ((t (gnc:make-html-table))
|
||||
;; set the header column to be the 2nd when we have a logo
|
||||
;; do this so that when logo is not present, the document is
|
||||
;; perfectly centered
|
||||
(headcolumn (if (and logopixmap (> (string-length logopixmap) 0))
|
||||
1 0)))
|
||||
|
||||
;; we don't want a bevel for this table, but we don't want
|
||||
;; that to propagate
|
||||
(gnc:html-table-set-style!
|
||||
@ -347,12 +364,6 @@
|
||||
'attribute (list "style" "margin-left:auto; margin-right:auto")
|
||||
'inheritable? #f)
|
||||
|
||||
;; set the header column to be the 2nd when we have a logo
|
||||
;; do this so that when logo is not present, the document
|
||||
;; is perfectly centered
|
||||
(if (and logopixmap (> (string-length logopixmap) 0))
|
||||
(set! headcolumn 1))
|
||||
|
||||
(let* ((headline (or (gnc:html-document-headline doc)
|
||||
(gnc:html-document-title doc))))
|
||||
|
||||
@ -375,8 +386,7 @@
|
||||
|
||||
;; title only
|
||||
(gnc:make-html-text
|
||||
(gnc:html-markup-h3 headline))))
|
||||
)
|
||||
(gnc:html-markup-h3 headline)))))
|
||||
|
||||
;; only setup an image if we specified one
|
||||
(if (and logopixmap (> (string-length logopixmap) 0))
|
||||
@ -396,9 +406,9 @@
|
||||
gnc:html-table-set-cell!
|
||||
t 2 headcolumn
|
||||
(gnc:html-document-objects doc))
|
||||
|
||||
(gnc:html-document-add-object! ssdoc t)
|
||||
|
||||
;; I think this is the correct place to put the footer
|
||||
(gnc:html-table-set-cell!
|
||||
t 3 headcolumn
|
||||
(gnc:make-html-text footer-text)))
|
||||
@ -406,8 +416,22 @@
|
||||
|
||||
(gnc:define-html-style-sheet
|
||||
'version 1
|
||||
'name (N_ "Footer")
|
||||
'renderer footer-renderer
|
||||
'options-generator footer-options)
|
||||
'name (N_ "Easy")
|
||||
'renderer easy-fancy-footer-renderer
|
||||
'options-generator easy-fancy-footer-options)
|
||||
|
||||
(gnc:define-html-style-sheet
|
||||
'version 1.01
|
||||
'name (N_ "Fancy")
|
||||
'renderer easy-fancy-footer-renderer
|
||||
'options-generator easy-fancy-footer-options)
|
||||
|
||||
(gnc:define-html-style-sheet
|
||||
'version 1
|
||||
'name (N_ "Footer")
|
||||
'renderer easy-fancy-footer-renderer
|
||||
'options-generator easy-fancy-footer-options)
|
||||
|
||||
(gnc:make-html-style-sheet "Easy" (N_ "Easy"))
|
||||
(gnc:make-html-style-sheet "Fancy" (N_ "Technicolor"))
|
||||
(gnc:make-html-style-sheet "Footer" (N_ "Footer"))
|
||||
|
||||
@ -28,7 +28,5 @@
|
||||
|
||||
(use-modules (gnucash utilities))
|
||||
(use-modules (gnucash report stylesheet-plain))
|
||||
(use-modules (gnucash report stylesheet-fancy))
|
||||
(use-modules (gnucash report stylesheet-footer))
|
||||
(use-modules (gnucash report stylesheet-easy))
|
||||
(use-modules (gnucash report stylesheet-head-or-tail))
|
||||
|
||||
@ -496,8 +496,6 @@ gnucash/report/standard-reports/transaction.scm
|
||||
gnucash/report/standard-reports/trial-balance.scm
|
||||
gnucash/report/stylesheets/gncmod-stylesheets.c
|
||||
gnucash/report/stylesheets/gnc-plugin-stylesheets.c
|
||||
gnucash/report/stylesheets/stylesheet-easy.scm
|
||||
gnucash/report/stylesheets/stylesheet-fancy.scm
|
||||
gnucash/report/stylesheets/stylesheet-footer.scm
|
||||
gnucash/report/stylesheets/stylesheet-head-or-tail.scm
|
||||
gnucash/report/stylesheets/stylesheet-plain.scm
|
||||
|
||||
Loading…
Reference in New Issue
Block a user