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

* src/scm/report/register.scm: convert to guile module.

Browse Source 
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@4746 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Rob Browning 2001-06-18 17:47:03 +00:00
parent c05661c7d2
commit cdbe6074ad
1 changed files with 547 additions and 548 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
src/scm/report/register.scm
View File

@ -1,16 +1,18 @@
;; -*-scheme-*-
;; register.scm
(use-modules (ice-9 syncase))
;; depends must be outside module scope -- and should eventually go away.
(require 'record)
(gnc:support "report/register.scm")
(gnc:depend "report-html.scm")
(gnc:depend "date-utilities.scm")
(let-syntax ((addto!
(syntax-rules ()
((_ alist element) (set! alist (cons element alist))))))
(define-module (gnucash report register))
(use-modules (ice-9 slib))
(require 'record)
(define-macro (addto! alist element)
`(set! ,alist (cons ,element ,alist)))
(define (set-last-row-style! table tag . rest)
(let ((arg-list
@ -610,9 +612,6 @@
'renderer reg-renderer
'in-menu? #f)
#t)
(define (gnc:apply-register-report func invoice? query journal? double?
title debit-string credit-string)
(let* ((options (gnc:make-report-options "Register"))