Re: Making lyrics quicker

[Aaron Hill]

On 2020-08-11 1:57 am, Aaron Hill wrote:
> On 2020-08-11 1:48 am, Aaron Hill wrote:
> >          (last (car (take-right elts 1)))
>
> And in my haste to reply, I overlooked simplifying the car/take-right
> 1 to being just a call to the SRFI-1 "last" procedure:
>
> >          (last (last elts))
>
> Though, I probably should pick a better local variable name than
> "last".  Even though the compiler does the right thing, such usage
> could be prone to misunderstanding.

Minimally improved version here that also demonstrates that lyric 
hyphens work:

%%%%
\version "2.20.0"

#(define (lyrics? x)
  (and (ly:music? x)
       (music-is-of-type? x 'sequential-music)
       (every (music-type-predicate '(lyric-event))
              (ly:prob-property x 'elements))))

addPunct = #(define-music-function
  (lyrics punct)
  (lyrics? markup?)
  (let* ((elts (ly:prob-property lyrics 'elements))
         (last-elt (last elts))
         (text (ly:prob-property last-elt 'text)))
    (ly:prob-set-property! last-elt 'text
      #{ \markup \concat { $text $punct } #})
    lyrics))

foobarbaz = \lyricmode { foo -- bar baz }

\new Voice \fixed c' { g8 fis g4 a4. b8 | c'1 }
\addlyrics { \addPunct \foobarbaz "," \addPunct \foobarbaz "!" }
%%%%


-- Aaron Hill

lyric-add-punct.cropped.png
Description: PNG image