From c87870f9d080ee38fddd2678ee758f9d5312edcd Mon Sep 17 00:00:00 2001
From: Christopher Lam <christopher.lck@gmail.com>
Date: Sun, 12 Jul 2020 00:12:51 +0800
Subject: [PATCH] [html-style-info] use srfi-9 records for
 <html-data-style-info>

---
 gnucash/report/html-style-info.scm | 46 ++++++++++--------------------
 1 file changed, 15 insertions(+), 31 deletions(-)

diff --git a/gnucash/report/html-style-info.scm b/gnucash/report/html-style-info.scm
index 0da74ca2d9..8975e7aa06 100644
--- a/gnucash/report/html-style-info.scm
+++ b/gnucash/report/html-style-info.scm
@@ -132,41 +132,25 @@
 ;;  style.  The return should be an HTML string.
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
-(define <html-data-style-info> 
-  (make-record-type "<html-data-style-info>"
-                    '(renderer data inheritable?))) 
-
-(define gnc:html-data-style-info? 
-  (record-predicate <html-data-style-info>))
-
-(define gnc:make-html-data-style-info-internal
-  (record-constructor <html-data-style-info>))
+(define-record-type <html-data-style-info>
+  (make-html-data-style-info-internal 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:make-html-data-style-info-internal make-html-data-style-info-internal)
+(define gnc:html-data-style-info? data-style-info?)
+(define gnc:html-data-style-info-renderer html-data-style-info-renderer)
+(define gnc:html-data-style-info-set-renderer! html-data-style-info-set-renderer)
+(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)
   (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.  
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;