aboutsummaryrefslogtreecommitdiff
path: root/src/guile
diff options
context:
space:
mode:
authorLudovic Courtès2020-11-01 15:00:44 +0100
committerLudovic Courtès2020-11-01 15:00:44 +0100
commitfb6a11a1697e738a2e68d6c25d98ebaf4818db36 (patch)
treec67936ff63bec0a86c1ceb9cc9dd2d772c2e6e13 /src/guile
parent508717eac1270508ab87370e119c31973313ed45 (diff)
downloadskribilo-fb6a11a1697e738a2e68d6c25d98ebaf4818db36.tar.gz
skribilo-fb6a11a1697e738a2e68d6c25d98ebaf4818db36.tar.lz
skribilo-fb6a11a1697e738a2e68d6c25d98ebaf4818db36.zip
info: Avoid extra leading newline for the first paragraph of a section.
* src/guile/skribilo/engine/info.scm (paragraph): Emit newline only when N is not the first paragraph.
Diffstat (limited to 'src/guile')
-rw-r--r--src/guile/skribilo/engine/info.scm7
1 files changed, 4 insertions, 3 deletions
diff --git a/src/guile/skribilo/engine/info.scm b/src/guile/skribilo/engine/info.scm
index 73d1915..e0f55a3 100644
--- a/src/guile/skribilo/engine/info.scm
+++ b/src/guile/skribilo/engine/info.scm
@@ -678,10 +678,11 @@
;*---------------------------------------------------------------------*/
(markup-writer 'paragraph info-engine
:action (lambda (n e)
- (output-newline)
+ (unless (first-paragraph? n)
+ (output-newline))
(output-flush *margin*)
- (or (first-paragraph? n)
- (display " "))
+ (unless (first-paragraph? n)
+ (display " "))
(output (markup-body n) e)))
;*---------------------------------------------------------------------*/