mirror of
https://github.com/Gnucash/gnucash.git
synced 2025-02-25 18:55:30 -06:00
[stylesheet-css] a user-customisable CSS based stylesheet
New stylesheet. Exposes a single text box for full CSS customisability.
This commit is contained in:
Christopher Lam
@@ -36,6 +36,7 @@ install(TARGETS gncmod-stylesheets
|
|||||||
# Scheme
|
# Scheme
|
||||||
|
|
||||||
set(stylesheets_SCHEME_1
|
set(stylesheets_SCHEME_1
|
||||||
|
stylesheet-css.scm
|
||||||
stylesheet-plain.scm
|
stylesheet-plain.scm
|
||||||
stylesheet-footer.scm
|
stylesheet-footer.scm
|
||||||
stylesheet-head-or-tail.scm
|
stylesheet-head-or-tail.scm
|
||||||
|
|||||||
211
gnucash/report/stylesheets/stylesheet-css.scm
Normal file
211
gnucash/report/stylesheets/stylesheet-css.scm
Normal file
@@ -0,0 +1,211 @@
|
|||||||
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
|
;; stylesheet-css.scm : a customisable CSS gnucash stylesheet
|
||||||
|
;;
|
||||||
|
;; 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-css))
|
||||||
|
|
||||||
|
(use-modules (gnucash gnc-module))
|
||||||
|
(use-modules (gnucash core-utils))
|
||||||
|
(use-modules (gnucash gettext))
|
||||||
|
|
||||||
|
(gnc:module-load "gnucash/html" 0)
|
||||||
|
(gnc:module-load "gnucash/report/report-system" 0)
|
||||||
|
|
||||||
|
(define default-css "/* default style */
|
||||||
|
html, body {
|
||||||
|
height: 100vh;
|
||||||
|
margin: 0;
|
||||||
|
font-family: \"Noto Sans\", Sans-Serif;
|
||||||
|
font-size: 10pt;
|
||||||
|
}
|
||||||
|
|
||||||
|
body, p, table, tr, td, a, th {
|
||||||
|
vertical-align: top;
|
||||||
|
}
|
||||||
|
|
||||||
|
h3 {
|
||||||
|
font-size: 15pt;
|
||||||
|
font-weight: bold;
|
||||||
|
}
|
||||||
|
|
||||||
|
a {
|
||||||
|
font-style: italic;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* table elements as follows */
|
||||||
|
td, th {
|
||||||
|
padding:4px;
|
||||||
|
}
|
||||||
|
|
||||||
|
tr.alternate-row {
|
||||||
|
background: #ffffff
|
||||||
|
}
|
||||||
|
|
||||||
|
tr {
|
||||||
|
page-break-inside: avoid !important;
|
||||||
|
}
|
||||||
|
|
||||||
|
td, th {
|
||||||
|
border-color: grey
|
||||||
|
}
|
||||||
|
|
||||||
|
td.total-number-cell, td.total-label-cell, td.centered-label-cell {
|
||||||
|
font-size: 12pt;
|
||||||
|
font-weight: bold;
|
||||||
|
}
|
||||||
|
|
||||||
|
th.column-heading-left {
|
||||||
|
text-align: left;
|
||||||
|
}
|
||||||
|
|
||||||
|
td.centered-label-cell, th.column-heading-center {
|
||||||
|
text-align: center;
|
||||||
|
}
|
||||||
|
|
||||||
|
td.number-header, th.column-heading-right, td.number-cell, td.total-number-cell {
|
||||||
|
text-align: right;
|
||||||
|
}
|
||||||
|
|
||||||
|
td.neg {
|
||||||
|
color: red;
|
||||||
|
}
|
||||||
|
|
||||||
|
td.number-cell, td.total-number-cell, td.anchor-cell, td.date-cell {
|
||||||
|
white-space: nowrap;
|
||||||
|
}
|
||||||
|
")
|
||||||
|
|
||||||
|
(define (css-options)
|
||||||
|
(let ((options (gnc:new-options)))
|
||||||
|
|
||||||
|
(gnc:register-option
|
||||||
|
options
|
||||||
|
(gnc:make-text-option
|
||||||
|
(N_ "General") (N_ "CSS") "a"
|
||||||
|
(N_ "CSS code. This field specifies the CSS code for styling reports.")
|
||||||
|
default-css))
|
||||||
|
|
||||||
|
options))
|
||||||
|
|
||||||
|
(define (css-renderer options doc)
|
||||||
|
|
||||||
|
(let* ((ssdoc (gnc:make-html-document))
|
||||||
|
(css (gnc:option-value (gnc:lookup-option options "General" "CSS")))
|
||||||
|
(report-css (or (gnc:html-document-style-text doc) ""))
|
||||||
|
(all-css (string-append css report-css))
|
||||||
|
(headline (or (gnc:html-document-headline doc)
|
||||||
|
(gnc:html-document-title doc))))
|
||||||
|
|
||||||
|
(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"))
|
||||||
|
|
||||||
|
(gnc:html-document-set-style! ssdoc "normal-row" 'tag "tr")
|
||||||
|
(gnc:html-document-set-style! ssdoc "alternate-row" 'tag "tr")
|
||||||
|
(gnc:html-document-set-style! ssdoc "primary-subheading" 'tag "tr")
|
||||||
|
(gnc:html-document-set-style! ssdoc "secondary-subheading" 'tag "tr")
|
||||||
|
(gnc:html-document-set-style! ssdoc "grand-total" 'tag "tr")
|
||||||
|
|
||||||
|
(cond
|
||||||
|
((string-contains-ci all-css "</style")
|
||||||
|
(gnc:html-document-set-style-text! ssdoc default-css)
|
||||||
|
(gnc:html-document-add-object!
|
||||||
|
ssdoc (gnc:make-html-text
|
||||||
|
(_ "</style is disallowed in CSS. Using default CSS."))))
|
||||||
|
|
||||||
|
(else
|
||||||
|
(gnc:html-document-set-style-text! ssdoc all-css)))
|
||||||
|
|
||||||
|
(unless (equal? headline "")
|
||||||
|
(gnc:html-document-add-object!
|
||||||
|
ssdoc (gnc:make-html-text (gnc:html-markup-h3 headline))))
|
||||||
|
|
||||||
|
(gnc:html-document-append-objects! ssdoc (gnc:html-document-objects doc))
|
||||||
|
|
||||||
|
ssdoc))
|
||||||
|
|
||||||
|
(gnc:define-html-style-sheet
|
||||||
|
'version 1
|
||||||
|
'name (N_ "CSS")
|
||||||
|
'renderer css-renderer
|
||||||
|
'options-generator css-options)
|
||||||
|
|
||||||
|
(gnc:make-html-style-sheet "CSS" (N_ "CSS-based stylesheet (experimental)"))
|
||||||
@@ -27,6 +27,7 @@
|
|||||||
(define-module (gnucash report stylesheets))
|
(define-module (gnucash report stylesheets))
|
||||||
|
|
||||||
(use-modules (gnucash utilities))
|
(use-modules (gnucash utilities))
|
||||||
|
(use-modules (gnucash report stylesheet-css))
|
||||||
(use-modules (gnucash report stylesheet-plain))
|
(use-modules (gnucash report stylesheet-plain))
|
||||||
(use-modules (gnucash report stylesheet-footer))
|
(use-modules (gnucash report stylesheet-footer))
|
||||||
(use-modules (gnucash report stylesheet-head-or-tail))
|
(use-modules (gnucash report stylesheet-head-or-tail))
|
||||||
|
|||||||
@@ -496,6 +496,7 @@ gnucash/report/standard-reports/transaction.scm
|
|||||||
gnucash/report/standard-reports/trial-balance.scm
|
gnucash/report/standard-reports/trial-balance.scm
|
||||||
gnucash/report/stylesheets/gncmod-stylesheets.c
|
gnucash/report/stylesheets/gncmod-stylesheets.c
|
||||||
gnucash/report/stylesheets/gnc-plugin-stylesheets.c
|
gnucash/report/stylesheets/gnc-plugin-stylesheets.c
|
||||||
|
gnucash/report/stylesheets/stylesheet-css.scm
|
||||||
gnucash/report/stylesheets/stylesheet-footer.scm
|
gnucash/report/stylesheets/stylesheet-footer.scm
|
||||||
gnucash/report/stylesheets/stylesheet-head-or-tail.scm
|
gnucash/report/stylesheets/stylesheet-head-or-tail.scm
|
||||||
gnucash/report/stylesheets/stylesheet-plain.scm
|
gnucash/report/stylesheets/stylesheet-plain.scm
|
||||||
|
|||||||
Reference in New Issue
Block a user