summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Court`es2007-09-20 14:15:38 +0000
committerLudovic Court`es2007-09-20 14:15:38 +0000
commite38b2d70074f98d1410faa87f5c5500c2dc743ea (patch)
tree9fe9979595d6e9e833d27b92281810c7a8dee7cc
parent46b3f874e91db7d8a82a2f15bdea57fb4a6152b9 (diff)
parent7c53957cbc7209712f299022751d6bbc82ae9972 (diff)
downloadskribilo-e38b2d70074f98d1410faa87f5c5500c2dc743ea.tar.gz
skribilo-e38b2d70074f98d1410faa87f5c5500c2dc743ea.tar.lz
skribilo-e38b2d70074f98d1410faa87f5c5500c2dc743ea.zip
eq/lout: Better handle parenthesizing of combinations.
* src/guile/skribilo/package/eq/lout.scm (binary-lout-markup-writer): Special-case `eq:combinations'. git-archimport-id: skribilo@sv.gnu.org--2006/skribilo--devo--1.2--patch-165
-rw-r--r--ChangeLog17
-rw-r--r--src/guile/skribilo/package/eq/lout.scm5
2 files changed, 21 insertions, 1 deletions
diff --git a/ChangeLog b/ChangeLog
index 8075616..5e43875 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -2,6 +2,23 @@
# arch-tag: automatic-ChangeLog--skribilo@sv.gnu.org--2006/skribilo--devo--1.2
#
+2007-09-20 14:15:38 GMT Ludovic Court`es <ludovic.courtes@laas.fr> patch-165
+
+ Summary:
+ eq/lout: Better handle parenthesizing of combinations.
+ Revision:
+ skribilo--devo--1.2--patch-165
+
+ * src/guile/skribilo/package/eq/lout.scm (binary-lout-markup-writer):
+ Special-case `eq:combinations'.
+
+ modified files:
+ ChangeLog src/guile/skribilo/package/eq/lout.scm
+
+ new patches:
+ lcourtes@laas.fr--2006-libre/skribilo--devo--1.2--patch-107
+
+
2007-09-20 14:14:45 GMT Ludovic Court`es <ludovic.courtes@laas.fr> patch-164
Summary:
diff --git a/src/guile/skribilo/package/eq/lout.scm b/src/guile/skribilo/package/eq/lout.scm
index 29ce9ac..64bc070 100644
--- a/src/guile/skribilo/package/eq/lout.scm
+++ b/src/guile/skribilo/package/eq/lout.scm
@@ -215,7 +215,10 @@
(if (= (length body) 2)
(let* ((first (car body))
(second (cadr body))
- (parentheses? (equation-markup? first)))
+ (parentheses? (and (equation-markup? first)
+ (not
+ (memq (markup-markup first)
+ '(eq:combinations))))))
(display " { { ")
(if parentheses? (display %left-paren))
(output first engine)