Re: Multiple context NoteNames

[Aaron Hill]

On 2019-09-17 5:52 am, Aaron Hill wrote:
> myNoteNamesWithOld =
> #(lambda (grob)
>    (let* ((default-name (ly:grob-property grob 'text))
>           (new-name (assoc-get default-name newnames)))
>          (ly:grob-set-property! grob 'text #{ \markup
>            \override #'(baseline-skip . 1.5)
>            \center-column {
>              \line { \bold $new-name }
>              \line { \tiny \concat { ( $default-name ) } } } #})
>    (ly:text-interface::print grob)))

The above had some unnecessary uses of \line.  Here's a cleaner version:

%%%%
myNoteNamesWithOld =
#(lambda (grob)
   (let* ((default-name (ly:grob-property grob 'text))
          (new-name (assoc-get default-name newnames)))
         (ly:grob-set-property! grob 'text #{ \markup
           \override #'(baseline-skip . 1.5)
           \center-column {
             \bold $new-name
             \tiny \concat { ( $default-name ) } } #})
   (ly:text-interface::print grob)))
%%%%


-- Aaron Hill