diff options
| author | Ludovic Court`es | 2007-03-16 17:09:41 +0000 |
|---|---|---|
| committer | Ludovic Court`es | 2007-03-16 17:09:41 +0000 |
| commit | 1ebc6400a3b1ba3e6111745ae95fcd858749f258 (patch) | |
| tree | 9ad77357f9008b354ff64290b0729d4f69a32bb9 | |
| parent | afeb61b2bc69cd7b39aa1d27e840055bd07d13a2 (diff) | |
| parent | 902c2a96f182722572664374f133bc6b7cfe43b2 (diff) | |
| download | skribilo-1ebc6400a3b1ba3e6111745ae95fcd858749f258.tar.gz skribilo-1ebc6400a3b1ba3e6111745ae95fcd858749f258.tar.lz skribilo-1ebc6400a3b1ba3e6111745ae95fcd858749f258.zip | |
`lout' engine: Skip lines in `color'.
* src/guile/skribilo/engine/lout.scm (color): Skip a line at the end. git-archimport-id: skribilo@sv.gnu.org--2006/skribilo--devo--1.2--patch-65
| -rw-r--r-- | ChangeLog | 16 | ||||
| -rw-r--r-- | src/guile/skribilo/engine/lout.scm | 5 |
2 files changed, 19 insertions, 2 deletions
diff --git a/ChangeLog b/ChangeLog index 7ab7d5a..476e5d4 100644 --- a/ChangeLog +++ b/ChangeLog @@ -2,6 +2,22 @@ # arch-tag: automatic-ChangeLog--skribilo@sv.gnu.org--2006/skribilo--devo--1.2 # +2007-03-16 17:09:41 GMT Ludovic Court`es <ludovic.courtes@laas.fr> patch-65 + + Summary: + `lout' engine: Skip lines in `color'. + Revision: + skribilo--devo--1.2--patch-65 + + * src/guile/skribilo/engine/lout.scm (color): Skip a line at the end. + + modified files: + ChangeLog src/guile/skribilo/engine/lout.scm + + new patches: + lcourtes@laas.fr--2006-libre/skribilo--devo--1.2--patch-24 + + 2007-03-08 18:17:42 GMT Ludovic Court`es <ludovic.courtes@laas.fr> patch-64 Summary: diff --git a/src/guile/skribilo/engine/lout.scm b/src/guile/skribilo/engine/lout.scm index 43aa356..f71566f 100644 --- a/src/guile/skribilo/engine/lout.scm +++ b/src/guile/skribilo/engine/lout.scm @@ -1567,10 +1567,11 @@ :before (lambda (n e) (let* ((w (markup-option n :width)) (fg (markup-option n :fg))) - (printf "{ ~a } @Color { " (lout-color-specification fg)))) + (printf "{ { ~a } @Color { " (lout-color-specification fg)))) :after (lambda (n e) - (display " }"))) + ;; Skip a line to avoid hitting Basser Lout's length limit. + (display " } }\n"))) ;*---------------------------------------------------------------------*/ ;* frame ... */ |