gnucash maint: Remove dead code and unused strings
Christopher Lam
clam at code.gnucash.org
Mon Apr 5 09:28:56 EDT 2021
Updated via https://github.com/Gnucash/gnucash/commit/d1e6163c (commit)
from https://github.com/Gnucash/gnucash/commit/3fe7be19 (commit)
commit d1e6163cd9bfc6a6683ea32d227b7302a639d36b
Author: Christopher Lam <christopher.lck at gmail.com>
Date: Mon Apr 5 21:19:17 2021 +0800
Remove dead code and unused strings
diff --git a/gnucash/report/reports/standard/balsheet-eg.scm b/gnucash/report/reports/standard/balsheet-eg.scm
index 4899e8194..a8b42051b 100644
--- a/gnucash/report/reports/standard/balsheet-eg.scm
+++ b/gnucash/report/reports/standard/balsheet-eg.scm
@@ -44,16 +44,6 @@
(use-modules (srfi srfi-13)) ; for extra string functions
(use-modules (srfi srfi-9))
-(define debugging? #f)
-
-(define (debug . args)
- (when debugging?
- (for-each
- (lambda (arg)
- (display (if (string? arg) arg (dump arg)))
- (display " "))
- args)))
-
(define (hrule cols) ; in fact just puts in an empty row for spacing
(display "<tr valign=\"center\"><td colspan=\"")
(display cols)
diff --git a/gnucash/report/reports/standard/budget-income-statement.scm b/gnucash/report/reports/standard/budget-income-statement.scm
index 3b5b1cf68..5428b0197 100644
--- a/gnucash/report/reports/standard/budget-income-statement.scm
+++ b/gnucash/report/reports/standard/budget-income-statement.scm
@@ -120,7 +120,6 @@
(define optname-show-rates (N_ "Show Exchange Rates"))
(define opthelp-show-rates (N_ "Show the exchange rates used."))
-(define pagename-entries (N_ "Entries"))
(define optname-two-column
(N_ "Display as a two column report"))
(define opthelp-two-column
@@ -416,10 +415,6 @@
table (* tree-depth 2) "primary-subheading" #f label 0 1 "total-label-cell"
(gnc:sum-collector-commodity balance report-commodity exchange-fn)
(1- (* tree-depth 2)) 1 "total-number-cell")))
-
- ;; wrapper around gnc:html-table-append-ruler!
- (define (add-rule table)
- (gnc:html-table-append-ruler! table (* 2 tree-depth)))
(cond
((null? accounts)
diff --git a/gnucash/report/reports/standard/customer-summary.scm b/gnucash/report/reports/standard/customer-summary.scm
index 1f2f9aa0e..47598cc1d 100644
--- a/gnucash/report/reports/standard/customer-summary.scm
+++ b/gnucash/report/reports/standard/customer-summary.scm
@@ -42,7 +42,6 @@
;; let's define a name for the report-guid's, much prettier
(define customer-report-guid "4166a20981985fd2b07ff8cb3b7d384e")
-(define owner-report-guid "c146317be32e4948a561ec7fc89d15c1")
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -66,13 +65,6 @@
(define optname-show-own-address (N_ "Show Company Address"))
(define opthelp-show-own-address (N_ "Show your own company's address and the date of printing."))
-(define pagename-columndisplay (N_ "Display Columns"))
-(define date-header (N_ "Date"))
-(define reference-header (N_ "Reference"))
-(define type-header (N_ "Type"))
-(define desc-header (N_ "Description"))
-(define amount-header (N_ "Amount"))
-
;; The line break in the next expression will suppress above comments as translator comments.
(define optname-show-zero-lines
diff --git a/gnucash/report/reports/standard/price-scatter.scm b/gnucash/report/reports/standard/price-scatter.scm
index 39d9c72de..5d1ae939e 100644
--- a/gnucash/report/reports/standard/price-scatter.scm
+++ b/gnucash/report/reports/standard/price-scatter.scm
@@ -43,16 +43,6 @@
(define optname-price-source (N_ "Price Source"))
(define optname-invert (N_ "Invert prices"))
-;; (optname-accounts (N_ "Accounts"))
-;; The line break in the next expression will suppress above comment as translator comment.
-
-(define optname-inc-exp
- (N_ "Show Income/Expense"))
-(define optname-show-profit (N_ "Show Net Profit"))
-
-(define optname-sep-bars (N_ "Show Asset & Liability bars"))
-(define optname-net-bars (N_ "Show Net Worth bars"))
-
(define optname-marker (N_ "Marker"))
(define optname-markercolor (N_ "Marker Color"))
(define optname-plot-width (N_ "Plot Width"))
diff --git a/gnucash/report/reports/support/balsheet-eg.eguile.scm b/gnucash/report/reports/support/balsheet-eg.eguile.scm
index e8b8849d2..727564abc 100644
--- a/gnucash/report/reports/support/balsheet-eg.eguile.scm
+++ b/gnucash/report/reports/support/balsheet-eg.eguile.scm
@@ -199,14 +199,6 @@
(> (accrec-treedepth accrec-ie) 1))
(set! rshift-ie 1))
- (if debugging?
- (begin
- (display "<p>Assets: ") (display accrec-as)
- (display "<p>Liabilities: ") (display accrec-li)
- (display "<p>Equities: ") (display accrec-eq)
- (display "<p>Trading: ") (display accrec-tr)
- (display "<p>Profit and loss: ") (display accrec-ie)))
-
?>
<table border="0" class="outer"><tr valign="top"><td valign="top"> <!-- outer table to control columns -->
<table border="0" class="accounts" align="left">
Summary of changes:
gnucash/report/reports/standard/balsheet-eg.scm | 10 ----------
gnucash/report/reports/standard/budget-income-statement.scm | 5 -----
gnucash/report/reports/standard/customer-summary.scm | 8 --------
gnucash/report/reports/standard/price-scatter.scm | 10 ----------
gnucash/report/reports/support/balsheet-eg.eguile.scm | 8 --------
5 files changed, 41 deletions(-)
More information about the gnucash-changes
mailing list