Merge branch 'source-lilypond-ejercicios'
[lilypond-ejercicios.git] / prueba.ly
blob8b01b376ea72adf6dca58c61118c234b6e42a59a
1 \header { title = "Creating the list of all supported midi instruments" }
3 % We need to load the scheme file containing the definitions
4 #(ly:load "midi.scm")
6 % We apply a lambda function to the list (instrument-names-alist) of instrument definitions
7 % That function simply creates a markup containing the name as a simple string (the first
8 % entry of the instrument definition is the name, thus the (car instr).
9 % Since we return a list of markups, we have to define that function as a markup-list command
11 #(define-markup-list-command (midi-instruments-markup-list layout props) ()
12 (interpret-markup-list layout props
13 (map (lambda (instr) (markup (car instr))) instrument-names-alist)))
15 % simply display the list of markups generated by the function above
16 \markuplines \midi-instruments-markup-list