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

[html-style-info] use srfi-9 records for <html-data-style-info>

Browse Source
This commit is contained in:
Christopher Lam 2020-07-12 00:12:51 +08:00
parent b69d3fe38a
commit c87870f9d0
1 changed files with 14 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
gnucash/report/html-style-info.scm
View File

@ -132,41 +132,25 @@
;; style. The return should be an HTML string. ;; style. The return should be an HTML string.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(define <html-data-style-info> (define-record-type <html-data-style-info>
(make-record-type "<html-data-style-info>" (make-html-data-style-info-internal renderer data inheritable?)
'(renderer data inheritable?))) data-style-info?
(renderer html-data-style-info-renderer html-data-style-info-set-renderer)
(data html-data-style-info-data html-data-style-info-set-data)
(inheritable? html-data-style-info-inherit html-data-style-info-set-inherit))
(define gnc:html-data-style-info? (define gnc:make-html-data-style-info-internal make-html-data-style-info-internal)
(record-predicate <html-data-style-info>)) (define gnc:html-data-style-info? data-style-info?)
(define gnc:html-data-style-info-renderer html-data-style-info-renderer)
(define gnc:make-html-data-style-info-internal (define gnc:html-data-style-info-set-renderer! html-data-style-info-set-renderer)
(record-constructor <html-data-style-info>)) (define gnc:html-data-style-info-data html-data-style-info-data)
(define gnc:html-data-style-info-set-data! html-data-style-info-set-data)
(define gnc:html-data-style-info-inheritable? html-data-style-info-inherit)
(define gnc:html-data-style-info-set-inheritable?! html-data-style-info-set-inherit)
(define (gnc:make-html-data-style-info renderer data) (define (gnc:make-html-data-style-info renderer data)
(gnc:make-html-data-style-info-internal renderer data #t)) (gnc:make-html-data-style-info-internal renderer data #t))
(define gnc:html-data-style-info?
(record-predicate <html-data-style-info>))
(define gnc:html-data-style-info-renderer
(record-accessor <html-data-style-info> 'renderer))
(define gnc:html-data-style-info-set-renderer!
(record-modifier <html-data-style-info> 'renderer))
(define gnc:html-data-style-info-data
(record-accessor <html-data-style-info> 'data))
(define gnc:html-data-style-info-set-data!
(record-modifier <html-data-style-info> 'data))
(define gnc:html-data-style-info-inheritable?
(record-accessor <html-data-style-info> 'inheritable?))
(define gnc:html-data-style-info-set-inheritable?!
(record-modifier <html-data-style-info> 'inheritable?))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; default renderers for some data types. ;; default renderers for some data types.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;