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

2002-01-05 Christian Stimming <stimming@tuhh.de>

Browse Source 
* src/report/report-system/html-*.scm,
	src/report/stylesheets/stylesheet-*.scm: Added nowrap attribute
	for cells containing numbers.


git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@6515 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Christian Stimming 2002-01-05 17:21:59 +00:00
parent 82b3df0838
commit f0b6a6fa57
7 changed files with 46 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ChangeLog
View File

@ -1,3 +1,9 @@
2002-01-05 Christian Stimming <stimming@tuhh.de>
* src/report/report-system/html-*.scm,
src/report/stylesheets/stylesheet-*.scm: Added nowrap attribute
for cells containing numbers.
2002-01-03 Dave Peticolas <dave@krondo.com>
* src/backend/postgres/PostgresBackend.c: allow gnucash tables

6
src/report/report-system/html-document.scm
View File

@ -232,8 +232,10 @@
(push (lambda (l) (set! retval (cons l retval))))
(add-internal-tag (lambda (tag) (push "<") (push tag) (push ">")))
(add-attribute
(lambda (key value prior) (push " ") (push key) (push "=")
(push value) #t))
(lambda (key value prior) (push " ") (push key)
(if value (begin (push "=")
(push value)))
#t))
(addextraatt
(lambda (attr)
(cond ((string? attr) (push " ") (push attr))

5
src/report/report-system/html-style-info.scm
View File

@ -96,7 +96,10 @@
(if (eq? field 'attribute)
(if (list? value)
(gnc:html-markup-style-info-set-attribute!
style (car value) (cadr value)))
style (car value)
(if (null? (cdr value))
#f
(cadr value))))
(begin
(if (memq field '(font-size font-face font-color))
(gnc:html-markup-style-info-set-closing-font-tag!

30
src/report/report-system/html-utilities.scm
View File

@ -163,10 +163,12 @@
(- tree-depth (+ current-depth (if group-header-line? 1 0))))
;; the account balance
(list (and my-balance
(gnc:make-html-text
((if boldface? gnc:html-markup-b identity)
((if reverse-balance? gnc:monetary-neg identity)
my-balance)))))
(gnc:make-html-table-cell/markup
"number-cell"
(gnc:make-html-text
((if boldface? gnc:html-markup-b identity)
((if reverse-balance? gnc:monetary-neg identity)
my-balance))))))
(gnc:html-make-empty-cells (- current-depth
(if group-header-line? 0 1))))))
@ -210,10 +212,21 @@
(if boldface?
(list
(and foreign-balance
(gnc:make-html-text (gnc:html-markup-b foreign-balance)))
(and domestic-balance
(gnc:make-html-text (gnc:html-markup-b domestic-balance))))
(list foreign-balance domestic-balance))
(gnc:make-html-table-cell/markup
"number-cell"
(gnc:make-html-text (gnc:html-markup-b foreign-balance))))
(and
domestic-balance
(gnc:make-html-table-cell/markup
"number-cell"
(gnc:make-html-text (gnc:html-markup-b domestic-balance)))))
(list
(gnc:make-html-table-cell/markup
"number-cell"
foreign-balance)
(gnc:make-html-table-cell/markup
"number-cell"
domestic-balance)))
(gnc:html-make-empty-cells (* 2 (- current-depth
(if group-header-line? 0 1)))))))
@ -688,4 +701,3 @@
(gnc:html-markup-p
(_ "The selected accounts contain no data/transactions (or only zeroes) for the selected time period")))
p))

9
src/report/standard-reports/account-summary.scm
View File

@ -81,7 +81,7 @@
(gnc:options-add-account-selection!
options gnc:pagename-accounts
optname-display-depth optname-show-subaccounts
optname-accounts "a" 1
optname-accounts "a" 3
(lambda ()
;; FIXME : gnc:get-current-accounts disappeared
(let ((current-accounts '()))
@ -161,7 +161,12 @@
(doc (gnc:make-html-document))
(txt (gnc:make-html-text)))
(gnc:html-document-set-title! doc report-title)
(gnc:html-document-set-title!
doc
(string-append
report-title
" "
(gnc:timepair-to-datestring date-tp)))
(if (not (null? accounts))
;; if no max. tree depth is given we have to find the

3
src/report/stylesheets/stylesheet-fancy.scm
View File

@ -197,7 +197,8 @@
(gnc:html-document-set-style!
ssdoc "number-cell"
'tag "td"
'attribute (list "align" "right"))
'attribute (list "align" "left")
'attribute (list "nowrap"))
(if (and bgpixmap
(not (string=? bgpixmap "")))

3
src/report/stylesheets/stylesheet-plain.scm
View File

@ -105,7 +105,8 @@
(gnc:html-document-set-style!
ssdoc "number-cell"
'tag "td"
'attribute (list "align" "right"))
'attribute (list "align" "left")
'attribute (list "nowrap"))
(gnc:html-document-set-style!
ssdoc "number-header"