summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--ChangeLog18
-rw-r--r--src/guile/skribilo/engine/lout.scm6
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 ... */