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-acct-table] modernise to srfi-9 records

Browse Source
This commit is contained in:
Christopher Lam 2019-08-12 21:15:45 +08:00
parent 81b20d0a62
commit a42f1211d8
1 changed files with 8 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
gnucash/report/report-system/html-acct-table.scm
View File

@ -495,6 +495,8 @@
;; user. This class simply maps its contents to the html-table.
;;
(use-modules (srfi srfi-9))
;; this is to work around a bug in the HTML export sytmem
;; which causes COLSPAN= attributes not to be exported (!!)
(define gnc:colspans-are-working-right
@ -506,23 +508,14 @@
;; utility class for generating account tables
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(define <html-acct-table>
(make-record-type "<html-acct-table>"
'(matrix ;; an html-table
env ;; an alist
)))
(define gnc:html-acct-table?
(record-predicate <html-acct-table>))
(define gnc:_make-html-acct-table_
(record-constructor <html-acct-table>))
(define-record-type <html-acct-table>
(gnc:_make-html-acct-table_ matrix env)
gnc:html-acct-table?
(matrix gnc:_html-acct-table-matrix_ gnc:_html-acct-table-set-matrix!_)
(env gnc:_html-acct-table-env_ gnc:_html-acct-table-set-env!_))
(define (gnc:make-html-acct-table)
(gnc:_make-html-acct-table_
(gnc:make-html-table) ;; matrix
#f ;; env
))
(gnc:_make-html-acct-table_ (gnc:make-html-table) #f))
(define (gnc:make-html-acct-table/env env)
(let ((acct-table (gnc:make-html-acct-table)))
@ -538,18 +531,6 @@
(gnc:html-acct-table-add-accounts! acct-table accts)
acct-table))
(define gnc:_html-acct-table-matrix_
(record-accessor <html-acct-table> 'matrix))
(define gnc:_html-acct-table-set-matrix!_
(record-modifier <html-acct-table> 'matrix))
(define gnc:_html-acct-table-env_
(record-accessor <html-acct-table> 'env))
(define gnc:_html-acct-table-set-env!_
(record-modifier <html-acct-table> 'env))
;; some useful predicates to export
(define (gnc:account-code-less-p a b)
(string<? (xaccAccountGetCode a)