Skip to content

Commit cc12baf

Browse files
uliskajpvoigt
authored andcommitted
Reformat package.ily file
Objectives: - limit line lengths - improve readability
1 parent 1a91c8e commit cc12baf

File tree

1 file changed

+14
-6
lines changed

1 file changed

+14
-6
lines changed

package.ily

Lines changed: 14 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -36,13 +36,21 @@
3636

3737
%%%% export music
3838
% 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
4041
% or an exporter function #(lambda (export-tree filename . options) ...)
4142
% music: the music to export
4243
#(define (symbol-or-procedure? v) (or (symbol? v)(procedure? v)))
4344
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

Comments
 (0)