4 applymusic = #(def-music-function (location func music) (procedure? ly:music?)
7 oldaddlyrics = #(def-music-function (location music lyrics) (ly:music? ly:music?)
9 (make-music 'LyricCombineMusic
11 'elements (list music lyrics)))
13 grace = #(def-grace-function startGraceMusic stopGraceMusic)
14 acciaccatura = #(def-grace-function startAcciaccaturaMusic stopAcciaccaturaMusic)
15 appoggiatura = #(def-grace-function startAppoggiaturaMusic stopAppoggiaturaMusic)
17 partcombine = #(def-music-function (location part1 part2) (ly:music? ly:music?)
18 (make-part-combine-music (list part1 part2)))
20 autochange = #(def-music-function (location music) (ly:music?)
21 (make-autochange-music music))
23 applycontext = #(def-music-function (location proc) (procedure?)
24 (make-music 'ApplyContext
28 applyoutput = #(def-music-function (location proc) (procedure?)
29 (make-music 'ApplyOutputEvent
33 breathe = #(def-music-function (location) ()
34 (make-music 'EventChord
36 'elements (list (make-music 'BreathingSignEvent))))
39 unfoldrepeats = #(def-music-function (location music) (ly:music?)
40 (unfold-repeats music))
42 compressmusic = #(def-music-function
43 (location fraction music) (number-pair? ly:music?)
44 (ly:music-compress music (ly:make-moment (car fraction) (cdr fraction))))
46 makeClusters = #(def-music-function
47 (location arg) (ly:music?)
48 (music-map note-to-cluster arg))
53 (location tag music) (symbol? ly:music?)
56 (let* ((tags (ly:music-property m 'tags))
57 (res (memq tag tags)))
62 (location tag music) (symbol? ly:music?)
65 (let* ((tags (ly:music-property m 'tags))
66 (res (memq tag tags)))
76 remove these from the parser, and softcode here:
80 with small syntax changes, we could also do