|
36 | 36 |
|
37 | 37 | %%%% export music |
38 | 38 | % filebase: file basename - suffix (.krn/.xml) is taken from the exporter |
39 | | -% exporter: symbol or function: hum -> humdrum, xml -> musicXML, not implemented yet: [l]mei -> [L-]MEI, lily -> LilyPond |
| 39 | +% exporter: symbol or function: hum -> humdrum, xml -> musicXML, |
| 40 | +% not implemented yet: [l]mei -> [L-]MEI, lily -> LilyPond |
40 | 41 | % or an exporter function #(lambda (export-tree filename . options) ...) |
41 | 42 | % music: the music to export |
42 | 43 | #(define (symbol-or-procedure? v) (or (symbol? v)(procedure? v))) |
43 | 44 | exportMusic = |
44 | | -#(let ((exporters `((xml . ,exportMusicXML)(hum . ,exportHumdrum)(lily . ,exportLilyPond)))) |
45 | | - (define-void-function (filebase exporter music)((string? (ly:parser-output-name)) symbol-or-procedure? ly:music?) |
46 | | - (if (symbol? exporter) (set! exporter (ly:assoc-get exporter exporters exportMusicXML #t))) |
47 | | - (ly:run-translator (ly:score-music (scorify-music music)) (FileExport `((filebase . ,filebase)(exporter . ,exporter)) )) |
48 | | - )) |
| 45 | +#(let |
| 46 | + ((exporters |
| 47 | + `((xml . ,exportMusicXML) |
| 48 | + (hum . ,exportHumdrum) |
| 49 | + (lily . ,exportLilyPond)))) |
| 50 | + (define-void-function (filebase exporter music) |
| 51 | + ((string? (ly:parser-output-name)) symbol-or-procedure? ly:music?) |
| 52 | + (if (symbol? exporter) |
| 53 | + (set! exporter (ly:assoc-get exporter exporters exportMusicXML #t))) |
| 54 | + (ly:run-translator |
| 55 | + (ly:score-music (scorify-music music)) |
| 56 | + (FileExport `((filebase . ,filebase)(exporter . ,exporter)))))) |
0 commit comments