Re: Conditionally including lyrics

[Marc Hohl]

Am 03.12.2011 20:25, schrieb Jay Anderson:
> On Fri, Dec 2, 2011 at 3:26 AM, Marc Hohl<address@hidden>  wrote:
> > Now the data files contain different numbers of stanzas, and ideally, the
> > generator file
> > should be intelligent enough to include all stanzas which are present. Has
> > someone an idea
> > how to create a loop which scans for textA, textB, textC etc. and puts a
> > command that acts like
> > \addlyrics for each hit?
> I'll add my solution to this problem. I keep each verse in a separate
> file with just "\lyricmode {...}". These are named verse_1.ily,
> verse_2.ily, etc. Then where I want the lyrics I add '\createLyrics
> "001" "soprano"' (see below for the definition). It isn't doing
> \addLyrics, but \new Lyrics ... \lyricsto ... so it isn't exactly the
> same. It isn't perfect but it works for what I need.
Hello Jay,

I think this would clutter up my file structure, but I think I'll find
a use of your solution for another project - thanks for sharing!

Marc
> -----Jay
>
> ==========
> #(use-modules (ice-9 regex))
>
> #(define (verse-files dir)
>    (define (is-verse-file? file)
>      (string-match "^verse_[0-9]+\\.ily$" file))
>    (let ((dir-stream (opendir dir))
>          (count 0))
>      (do
>        ((entry (readdir dir-stream) (readdir dir-stream)))
>        ((eof-object? entry))
>        (if
>          (is-verse-file? entry)
>          (set! count (+ 1 count))))
>      (closedir dir-stream)
>      count))
>
> #(define (range a b)
>    (define (range-inner a b out)
>      (if (>  a b)
>        out
>        (range-inner a (- b 1) (cons b out))))
>    (range-inner a b '()))
>
> createLyrics =
> #(define-music-function (parser location dir voice) (string? string?)
>    (make-simultaneous-music
>      (map
>        (lambda (num)
>          (let* ((num-str (number->string num))
>                 (file (string-append dir "/verse_" num-str ".ily"))
>                 (verse (string-append num-str ".")))
>            #{ \new Lyrics \with {alignAboveContext = "bot"} \lyricsto
> $voice { \set stanza = $verse { \include $file }} #}))
>        (range 1 (verse-files dir)))))
> ===============