[average-balance] add styling to data table

Gnucash · Sep 16, 2018 · 395b42d · 395b42d
1 parent ce58549
commit 395b42d
Showing 1 changed file with 8 additions and 10 deletions.
diff --git a/gnucash/report/standard-reports/average-balance.scm b/gnucash/report/standard-reports/average-balance.scm
@@ -555,17 +555,15 @@
                  table columns)
                 (for-each
                  (lambda (row)
-                   (gnc:html-table-append-row! table row))
+                   (gnc:html-table-append-row!
+                    table
+                    (map
+                     gnc:make-html-table-cell/markup
+                     (list "date-cell" "date-cell"
+                           "number-cell" "number-cell" "number-cell"
+                           "number-cell" "number-cell" "number-cell")
+                     row)))
                  data)
-
-                ;; set numeric columns to align right 
-                (for-each 
-                 (lambda (col)
-                   (gnc:html-table-set-col-style! 
-                    table col "td" 
-                    'attribute (list "align" "right")))
-                 '(2 3 4 5 6 7))
-
                 (gnc:html-document-add-object! document table))))
 
         ;; if there are no accounts selected...