diff options
| author | Ludovic Court`es | 2007-03-28 09:23:01 +0000 |
|---|---|---|
| committer | Ludovic Court`es | 2007-03-28 09:23:01 +0000 |
| commit | 331dc3ff8e3850f6e9c1a7e1dc69cd19c9e5bb4c (patch) | |
| tree | 55b56718a1acafcdfe5a346023927d84e4772203 /src | |
| parent | 67431ba389db6543d0df68f46718e81c47e1f460 (diff) | |
| parent | 68f5f2d6cf0b3a7b2a56c4fe68e9ad1cf47133bc (diff) | |
| download | skribilo-331dc3ff8e3850f6e9c1a7e1dc69cd19c9e5bb4c.tar.gz skribilo-331dc3ff8e3850f6e9c1a7e1dc69cd19c9e5bb4c.tar.lz skribilo-331dc3ff8e3850f6e9c1a7e1dc69cd19c9e5bb4c.zip | |
`lout' engine: Fixed space handling with `color'.
* src/guile/skribilo/engine/lout.scm (color): Insert the linebreak
between the left parameter of `@Color' and `@Color' itself, so as to
never insert additional spaces.
git-archimport-id: skribilo@sv.gnu.org--2006/skribilo--devo--1.2--patch-73
Diffstat (limited to 'src')
| -rw-r--r-- | src/guile/skribilo/engine/lout.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/guile/skribilo/engine/lout.scm b/src/guile/skribilo/engine/lout.scm index f71566f..b9b4812 100644 --- a/src/guile/skribilo/engine/lout.scm +++ b/src/guile/skribilo/engine/lout.scm @@ -1567,11 +1567,11 @@ :before (lambda (n e) (let* ((w (markup-option n :width)) (fg (markup-option n :fg))) - (printf "{ { ~a } @Color { " (lout-color-specification fg)))) + ;; Skip a line to avoid hitting Basser Lout's length limit. + (printf "{ { ~a }\n@Color { " (lout-color-specification fg)))) :after (lambda (n e) - ;; Skip a line to avoid hitting Basser Lout's length limit. - (display " } }\n"))) + (display " } }"))) ;*---------------------------------------------------------------------*/ ;* frame ... */ |