diff options
| author | David Kastrup <dak@gnu.org> | 2013-03-16 12:10:36 +0100 |
|---|---|---|
| committer | David Kastrup <dak@gnu.org> | 2013-03-21 07:23:00 +0100 |
| commit | 9bba8cec6d52d276f45cd5c9a996fb237e518487 (patch) | |
| tree | e7c95b5904510f608327456323ede0ea285698dd | |
| parent | f2e629583f8d29395eacb6a43cbe5798dd3616f3 (diff) | |
Make \balloonText into post-event, \balloonGrobText into proper event
This is a stopgap measure for getting some consistency into music
function use. The real fix would be to convert \ballonText and
\balloonGrobText to the same kind of interface that \footnote uses.
Indeed, it might be saner to retire the whole AnnotateOutputEvent
folderol and instead just use footnotes without footnote-text.
| -rw-r--r-- | ly/music-functions-init.ly | 14 | ||||
| -rw-r--r-- | scm/define-music-types.scm | 2 |
2 files changed, 9 insertions, 7 deletions
diff --git a/ly/music-functions-init.ly b/ly/music-functions-init.ly index 379eb933ba..559d9777d5 100644 --- a/ly/music-functions-init.ly +++ b/ly/music-functions-init.ly @@ -178,14 +178,16 @@ balloonGrobText = (symbol? number-pair? markup?) (_i "Attach @var{text} to @var{grob-name} at offset @var{offset} (use like @code{\\once})") - (make-music 'AnnotateOutputEvent - 'symbol grob-name - 'X-offset (car offset) - 'Y-offset (cdr offset) - 'text text)) + (make-event-chord + (list + (make-music 'AnnotateOutputEvent + 'symbol grob-name + 'X-offset (car offset) + 'Y-offset (cdr offset) + 'text text)))) balloonText = -#(define-music-function (parser location offset text) (number-pair? markup?) +#(define-event-function (parser location offset text) (number-pair? markup?) (_i "Attach @var{text} at @var{offset} (use like @code{\\tweak})") (make-music 'AnnotateOutputEvent 'X-offset (car offset) diff --git a/scm/define-music-types.scm b/scm/define-music-types.scm index e7d121b411..d816b269ce 100644 --- a/scm/define-music-types.scm +++ b/scm/define-music-types.scm @@ -39,7 +39,7 @@ Syntax: @var{note}@code{\\x}, where @code{\\x} is a dynamic mark like (AnnotateOutputEvent . ((description . "Print an annotation of an output element.") - (types . (general-music event annotate-output-event)) + (types . (general-music event annotate-output-event post-event)) )) (ApplyContext |