diff options
| author | Ludovic Courtès | 2020-11-01 15:00:44 +0100 |
|---|---|---|
| committer | Ludovic Courtès | 2020-11-01 15:00:44 +0100 |
| commit | fb6a11a1697e738a2e68d6c25d98ebaf4818db36 (patch) | |
| tree | c67936ff63bec0a86c1ceb9cc9dd2d772c2e6e13 | |
| parent | 508717eac1270508ab87370e119c31973313ed45 (diff) | |
| download | skribilo-fb6a11a1697e738a2e68d6c25d98ebaf4818db36.tar.gz skribilo-fb6a11a1697e738a2e68d6c25d98ebaf4818db36.tar.lz skribilo-fb6a11a1697e738a2e68d6c25d98ebaf4818db36.zip | |
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.
| -rw-r--r-- | src/guile/skribilo/engine/info.scm | 7 |
1 files 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))) ;*---------------------------------------------------------------------*/ |