summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Court`es2007-03-28 09:23:01 +0000
committerLudovic Court`es2007-03-28 09:23:01 +0000
commit331dc3ff8e3850f6e9c1a7e1dc69cd19c9e5bb4c (patch)
tree55b56718a1acafcdfe5a346023927d84e4772203
parent67431ba389db6543d0df68f46718e81c47e1f460 (diff)
parent68f5f2d6cf0b3a7b2a56c4fe68e9ad1cf47133bc (diff)
downloadskribilo-331dc3ff8e3850f6e9c1a7e1dc69cd19c9e5bb4c.tar.gz
skribilo-331dc3ff8e3850f6e9c1a7e1dc69cd19c9e5bb4c.tar.lz
skribilo-331dc3ff8e3850f6e9c1a7e1dc69cd19c9e5bb4c.zip
`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
-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 ... */