From f67298fa097c92d0ad127f8b480e481b825b10d1 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès
Date: Sat, 13 Dec 2008 19:26:54 +0100
Subject: info: Add spacing around lists.

* src/guile/skribilo/engine/info.scm (itemize, enumerate, description):
  Add a new line before and after each list.
---
 src/guile/skribilo/engine/info.scm | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

(limited to 'src')

diff --git a/src/guile/skribilo/engine/info.scm b/src/guile/skribilo/engine/info.scm
index ef2d448..8b1b049 100644
--- a/src/guile/skribilo/engine/info.scm
+++ b/src/guile/skribilo/engine/info.scm
@@ -517,6 +517,7 @@
 (markup-writer 'itemize info-engine
   :options '(:symbol)
   :action (lambda (n e)
+            (output-newline)
             (for-each (lambda (item)
                         (with-justification (make-justifier
                                              (- (justification-width) 3)
@@ -525,11 +526,13 @@
 					      (output-justified "- ")
 					      (output item e))
                                             3))
-                      (markup-body n))))
+                      (markup-body n))
+            (output-newline)))
 
 (markup-writer 'enumerate info-engine
   :options '(:symbol)
   :action (lambda (n e)
+            (output-newline)
             (let loop ((num   1)
                        (items (markup-body n)))
               (if (pair? items)
@@ -542,11 +545,13 @@
                                           (output-justified " - ")
                                           (output item e))
 					3)
-		    (loop (+ num 1) (cdr items)))))))
+		    (loop (+ num 1) (cdr items)))))
+            (output-newline)))
 
 (markup-writer 'description info-engine
   :options '(:symbol)
   :action (lambda (n e)
+            (output-newline)
             (for-each (lambda (item)
                         (with-justification
                          (make-justifier
@@ -555,7 +560,8 @@
                          (lambda ()
                            (output item e))
                          3))
-                      (markup-body n))))
+                      (markup-body n))
+            (output-newline)))
 
 ;*---------------------------------------------------------------------*/
 ;*    info ::%section ...                                              */
-- 
cgit v1.2.3