Remove clutter from generated html

Gnucash · Aug 16, 2017 · 1559d26 · 1559d26
1 parent 2bc106a
commit 1559d26
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 5 deletions.
diff --git a/src/report/report-system/html-document.scm b/src/report/report-system/html-document.scm
@@ -168,7 +168,7 @@
                 (let ((title (gnc:html-document-title doc)))
                   (if title 
                       (push (list "</title>" title "<title>\n"))))
-                (push "</head>\n")
+                (push "</head>")
 
                 ;; this lovely little number just makes sure that <body>
                 ;; attributes like bgcolor get included 
@@ -286,7 +286,7 @@
                       (attr (gnc:warn "non-string attribute" attr)))))
              (build-first-tag
               (lambda (tag)
-                (push "\n<") (push tag)
+                (push "<") (push tag)
                 (if attr (hash-fold add-attribute #f attr))
                 (if extra-attrib (for-each addextraatt extra-attrib))
                 (if (not end-tag?)
@@ -395,7 +395,7 @@
                (lambda (obj doc)
                  (gnc:html-document-render-data doc obj))
                ;; if the object is #f, make it a placeholder
-               (if obj obj "&nbsp;&nbsp;&nbsp;")))        
+               (if obj obj " ")))        
         (cond 
          ((gnc:html-text? obj)
           (set! o (gnc:make-html-object-internal 

diff --git a/src/report/report-system/html-table.scm b/src/report/report-system/html-table.scm
@@ -702,7 +702,7 @@
        #f)
      #f (gnc:html-table-col-styles table))
 
-	(push (gnc:html-document-markup-start doc "tbody" #t))
+    (push (gnc:html-document-markup-start doc "tbody" #t))
     ;; now iterate over the rows 
     (let ((rownum 0) (colnum 0))
       (for-each 
@@ -752,7 +752,7 @@
            (set! colnum 0)
            (set! rownum (+ 1 rownum))))
        (reverse (gnc:html-table-data table))))
-	(push (gnc:html-document-markup-end doc "tbody"))
+    (push (gnc:html-document-markup-end doc "tbody"))
 
     ;; write the table end tag and pop the table style
     (push (gnc:html-document-markup-end doc "table"))