summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorLudovic Courtès2008-12-13 19:26:54 +0100
committerLudovic Courtès2008-12-13 19:26:54 +0100
commitf67298fa097c92d0ad127f8b480e481b825b10d1 (patch)
tree67c1712bbe27ea6bbafbb48685eeb4c1d522d533 /src
parenta96c272a0bc29eb37a67c2ca5ef2ca7465d114aa (diff)
downloadskribilo-f67298fa097c92d0ad127f8b480e481b825b10d1.tar.gz
skribilo-f67298fa097c92d0ad127f8b480e481b825b10d1.tar.lz
skribilo-f67298fa097c92d0ad127f8b480e481b825b10d1.zip
info: Add spacing around lists.
* src/guile/skribilo/engine/info.scm (itemize, enumerate, description): Add a new line before and after each list.
Diffstat (limited to 'src')
-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 ... */