From 902c2a96f182722572664374f133bc6b7cfe43b2 Mon Sep 17 00:00:00 2001
From: Ludovic Court`es
Date: Tue, 13 Mar 2007 18:56:05 +0000
Subject: `lout' engine: Skip lines in `color'.

* src/guile/skribilo/engine/lout.scm (color): Skip a line at the end.

git-archimport-id: lcourtes@laas.fr--2006-libre/skribilo--devo--1.2--patch-24
---
 src/guile/skribilo/engine/lout.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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 ...                                                        */
-- 
cgit v1.2.3