summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/guile/skribilo/engine/info.scm12
1 files changed, 9 insertions, 3 deletions
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 ... */