diff options
| author | Ludovic Courtès | 2008-12-13 19:26:54 +0100 |
|---|---|---|
| committer | Ludovic Courtès | 2008-12-13 19:26:54 +0100 |
| commit | f67298fa097c92d0ad127f8b480e481b825b10d1 (patch) | |
| tree | 67c1712bbe27ea6bbafbb48685eeb4c1d522d533 /src | |
| parent | a96c272a0bc29eb37a67c2ca5ef2ca7465d114aa (diff) | |
| download | skribilo-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.scm | 12 |
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 ... */ |