From 68f5f2d6cf0b3a7b2a56c4fe68e9ad1cf47133bc Mon Sep 17 00:00:00 2001 From: Ludovic Court`es Date: Tue, 27 Mar 2007 16:52:07 +0000 Subject: `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: lcourtes@laas.fr--2006-libre/skribilo--devo--1.2--patch-32 --- src/guile/skribilo/engine/lout.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/guile') 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 ... */ -- cgit v1.2.3