diff options
| author | Ludovic Courtès | 2011-01-07 18:24:58 +0100 |
|---|---|---|
| committer | Ludovic Courtès | 2011-01-07 18:24:58 +0100 |
| commit | 8e42aef17f1e0e44fcd4aef39ee3f387e644c12b (patch) | |
| tree | 4188f58e4d2d2d226b911d21d7e1126490224283 | |
| parent | 70198a1524745234c77fe12a1c7a188bbb14c373 (diff) | |
| download | skribilo-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.scm | 10 |
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 |