summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès2011-01-07 18:24:58 +0100
committerLudovic Courtès2011-01-07 18:24:58 +0100
commit8e42aef17f1e0e44fcd4aef39ee3f387e644c12b (patch)
tree4188f58e4d2d2d226b911d21d7e1126490224283
parent70198a1524745234c77fe12a1c7a188bbb14c373 (diff)
downloadskribilo-8e42aef17f1e0e44fcd4aef39ee3f387e644c12b.tar.gz
skribilo-8e42aef17f1e0e44fcd4aef39ee3f387e644c12b.tar.lz
skribilo-8e42aef17f1e0e44fcd4aef39ee3f387e644c12b.zip
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>'.
-rw-r--r--src/guile/skribilo/engine/html.scm10
1 files changed, 5 insertions, 5 deletions
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