`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

2 files changed, 21 insertions, 3 deletions

diff --git a/ChangeLog b/ChangeLog
index 54249cb..6d2b452 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -2,6 +2,24 @@
 # arch-tag: automatic-ChangeLog--skribilo@sv.gnu.org--2006/skribilo--devo--1.2
 #
 
+2007-03-28 09:23:01 GMT	Ludovic Court`es <ludovic.courtes@laas.fr>	patch-73
+
+    Summary:
+      `lout' engine: Fixed space handling with `color'.
+    Revision:
+      skribilo--devo--1.2--patch-73
+
+    * 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.
+
+    modified files:
+     ChangeLog src/guile/skribilo/engine/lout.scm
+
+    new patches:
+     lcourtes@laas.fr--2006-libre/skribilo--devo--1.2--patch-32
+
+
 2007-03-28 09:22:14 GMT	Ludovic Court`es <ludovic.courtes@laas.fr>	patch-72
 
     Summary:
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 ...                                                        */