`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

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 ...                                                        */