LSR/392/code
Zur Navigation springen
Zur Suche springen
%% http://lsr.di.unimi.it/LSR/Item?id=392
%% see also http://www.lilypond.org/doc/v2.18/Documentation/notation/midi-instruments
%LSR upgrade by David Kastrup
%see http://lilypond.1069038.n5.nabble.com/fatal-error-define-session-used-after-session-start-with-LSR-392-td144026.html
\header { title = "Creating the list of all supported midi instruments" }
% We apply a lambda function to the list (instrument-names-alist) of instrument definitions
% That function simply creates a markup containing the name as a simple string (the first
% entry of the instrument definition is the name, thus the (car instr).
% Since we return a list of markups, we have to define that function as a markup-list command
#(define-markup-list-command (midi-instruments-markup-list layout props) ()
(interpret-markup-list layout props
(map (lambda (instr) (markup (car instr))) (@@ (lily) instrument-names-alist))))
% simply display the list of markups generated by the function above
\markuplist \midi-instruments-markup-list