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

reduce the width of reports (#366934)

Browse Source 
Use   instead of extra columns.
Patch by Paul Andreassen

git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@16723 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Derek Atkins 2007-12-26 01:07:04 +00:00
parent 67119eeb53
commit 04243f92fc
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/report/report-system/html-acct-table.scm
View File

@ -1029,6 +1029,11 @@
;; Here are some standard functions to help process gnc:html-acct-tables.
;;
(define (gnc:html-make-nbsps n)
(if (> n 0)
(string-append "      " (gnc:html-make-nbsps (- n 1)))
""))
;; Stylesheets define the following cell styles which these functions
;; use: "text-cell" "total-label-cell" "number-cell"
;; "total-number-cell". Row styles include "normal-row",
@ -1065,16 +1070,15 @@
(tbl-width (or table-width (+ amt-depth amt-colspan)))
(row
(append
(gnc:html-make-empty-cells lbl-depth) ;; padding before label
(list
(if label-markup ;; the actual label
(gnc:make-html-table-cell/size/markup
1 lbl-colspan label-markup label)
1 1 label-markup (gnc:make-html-text (gnc:html-make-nbsps lbl-depth)) label)
(gnc:make-html-table-cell/size
1 lbl-colspan label))
1 1 (gnc:make-html-text (gnc:html-make-nbsps lbl-depth)) label))
)
(gnc:html-make-empty-cells ;; padding after label
(+ (- amt-depth (+ lbl-depth lbl-colspan))
(+ (- amt-depth (/ tbl-width 2))
(if total-rule? -1 0)
)
)