From 8e42aef17f1e0e44fcd4aef39ee3f387e644c12b Mon Sep 17 00:00:00 2001
From: Ludovic Courtès
Date: Fri, 7 Jan 2011 18:24:58 +0100
Subject: html: Don't emit newlines when they can be significant.

* src/guile/skribilo/engine/html.scm (chapter, html-section-title
  itemize, enumerate, figure): Remove extra significant space after
  `</a>'.
---
 src/guile/skribilo/engine/html.scm | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'src/guile')

diff --git a/src/guile/skribilo/engine/html.scm b/src/guile/skribilo/engine/html.scm
index 1824349..ae414b6 100644
--- a/src/guile/skribilo/engine/html.scm
+++ b/src/guile/skribilo/engine/html.scm
@@ -1303,7 +1303,7 @@
 		 (display " -->\n")
 		 (display "<a name=\"")
 		 (display (string-canonicalize ident))
-		 (display "\"></a>\n")
+		 (display "\"></a>")
 		 (display "<center><h1")
 		 (html-class n)
 		 (display ">")
@@ -1341,7 +1341,7 @@
       (display " -->\n")
       (display "<a name=\"")
       (display (string-canonicalize ident))
-      (display "\"></a>\n")
+      (display "\"></a>")
       (if c
 	  (format #t "<div class=\"~a-title\">" c)
 	  (format #t "<div class=\"skribilo-~a-title\">" (markup-markup n)))
@@ -1616,7 +1616,7 @@
 			   (html-class item)
 			   (display ">")
 			    (if ident  ;; produce an anchor
-				(format #t "\n<a name=\"~a\"></a>\n"
+				(format #t "\n<a name=\"~a\"></a>"
 					(string-canonicalize ident)))
 			   (output item e)
 			    (display "</li>\n")))
@@ -1637,7 +1637,7 @@
 			   (html-class item)
 			   (display ">")
 			    (if ident  ;; produce an anchor
-				(format #t "\n<a name=\"~a\"></a>\n" ident))
+				(format #t "\n<a name=\"~a\"></a>" ident))
 			   (output item e)
 			    (display "</li>\n")))
 			(markup-body n)))
@@ -1706,7 +1706,7 @@
 		    (legend (markup-option n :legend)))
 		 (display "<a name=\"")
 		 (display (string-canonicalize ident))
-		 (display "\"></a>\n")
+		 (display "\"></a>")
 		 (output (markup-body n) e)
 		 (display "<br>\n")
 		 (output (new markup
-- 
cgit v1.2.3