From d1e6163cd9bfc6a6683ea32d227b7302a639d36b Mon Sep 17 00:00:00 2001
From: Christopher Lam <christopher.lck@gmail.com>
Date: Mon, 5 Apr 2021 21:19:17 +0800
Subject: [PATCH] Remove dead code and unused strings

---
 gnucash/report/reports/standard/balsheet-eg.scm        | 10 ----------
 .../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(-)

diff --git a/gnucash/report/reports/standard/balsheet-eg.scm b/gnucash/report/reports/standard/balsheet-eg.scm
index 4899e81941..a8b42051b6 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 3b5b1cf689..5428b0197a 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 1f2f9aa0e2..47598cc1d7 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 39d9c72ded..5d1ae939e0 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 e8b8849d24..727564abc7 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">