Le 24 juil. 09 à 10:37, Valentin Villenave a écrit :
musicOne = { c''' }
musicTwo = { c, }
#(define mylist (list "musicOne" "musicTwo"))
includeList =
#(define-music-function (parser location listname) (string?)
(make-sequential-music (for-each
(lambda (x)
(let ((music (ly:parser-lookup parser (string->symbol x))))
(if (ly:music? music) music)
(make-music 'Music 'void #t)))
'listname)))
{
c \includeList #"mylist"
}
This is not a "mylist" string that you want to pass to your function,
but a list.
And `for-each' does not return a list, you want `map' here.
%% UNTESTED!
includeList =
#(define-music-function (parser location variable-names) (list?)
(make-sequential-music
(map (lambda (variable-name)
(let ((music (ly:parser-lookup parser (string->symbol
variable-name))))
(if (ly:music? music)
music
(make-music 'Music))))
variable-names)))
\includeList #mylist
Nicolas
_______________________________________________
lilypond-user mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/lilypond-user
