From fb6a11a1697e738a2e68d6c25d98ebaf4818db36 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès
Date: Sun, 1 Nov 2020 15:00:44 +0100
Subject: 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.
---
 src/guile/skribilo/engine/info.scm | 7 ++++---
 1 file 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)))
 
 ;*---------------------------------------------------------------------*/
-- 
cgit v1.2.3