From f6d733d34c705e1b92a8b2551287b2f2d07c191d Mon Sep 17 00:00:00 2001
From: Valentin Villenave <valentin@villenave.net>
Date: Fri, 18 Dec 2015 01:24:44 +0100
Subject: [PATCH] Composite dynamics: another year, another attempt.

---
 bin/text.scm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/bin/text.scm b/bin/text.scm
index 2f32fd3..13d2798 100644
--- a/bin/text.scm
+++ b/bin/text.scm
@@ -27,7 +27,13 @@
   (define-event-function (arg) (markup?)
     (let ((d (make-music 'AbsoluteDynamicEvent)))
       (ly:music-set-property! d 'tweaks
-        (acons 'self-alignment-X -0.8
+        ; not very elegant, but these composite dynamic
+        ; indication might get quite lengthy.
+        (acons 'X-extent (cons 0 0)
+          (ly:music-property d 'tweaks)))
+      (ly:music-set-property! d 'tweaks
+        ; ugh. hardcoded offset.
+        (acons 'X-offset -1.8
           (ly:music-property d 'tweaks)))
       (ly:music-set-property! d 'text
         (cond
-- 
2.11.4.GIT