* scm/output-lib.scm (string-finger::calc-text): new function

[lilypond.git] / scm / output-lib.scm

diff --git a/scm/output-lib.scm b/scm/output-lib.scm
index 9a5bc4d8d890408247f2a7c52c5891fd13a7e3c9..7c7f64811c580468ba95c4311500c85df5aeed44 100644 (file)
--- a/scm/output-lib.scm
+++ b/scm/output-lib.scm
@@ -424,6 +424,12 @@ centered, X==1 is at the right, X == -1 is at the left."
     (number->string digit 10)
   ))
 
+(define-public (string-finger::calc-text grob)
+  (let*
+      ((text (ly:event-property (event-cause  grob) 'text)))
+
+    text))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; dynamics
 (define-public (hairpin::calc-grow-direction grob)