summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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