prueba.ly

   1 \header { title = "Creating the list of all supported midi instruments" }
   2
   3 % We need to load the scheme file containing the definitions
   4 #(ly:load "midi.scm")
   5
   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
  10
  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)))
  14
  15 % simply display the list of markups generated by the function above
  16 \markuplines \midi-instruments-markup-list