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 displayMusic = #(def-music-function (location music) (ly:music?)
31 applyoutput = #(def-music-function (location proc) (procedure?)
32 (make-music 'ApplyOutputEvent
36 breathe = #(def-music-function (location) ()
37 (make-music 'EventChord
39 'elements (list (make-music 'BreathingSignEvent))))
42 unfoldrepeats = #(def-music-function (location music) (ly:music?)
43 (unfold-repeats music))
45 compressmusic = #(def-music-function
46 (location fraction music) (number-pair? ly:music?)
47 (ly:music-compress music (ly:make-moment (car fraction) (cdr fraction))))
49 makeClusters = #(def-music-function
50 (location arg) (ly:music?)
51 (music-map note-to-cluster arg))
56 (location tag music) (symbol? ly:music?)
59 (let* ((tags (ly:music-property m 'tags))
60 (res (memq tag tags)))
65 (location tag music) (symbol? ly:music?)
68 (let* ((tags (ly:music-property m 'tags))
69 (res (memq tag tags)))
78 %% def-music-function in a .scm causes crash.
82 (location what dir main-music)
83 (string? ly:dir? ly:music?)
86 (make-music 'NewQuoteMusic
87 'quoted-context-type 'Voice
88 'quoted-context-id "cue"
89 'quoted-music-name what
91 (main-voice (if (= 1 dir) 2 1))
92 (cue-voice (if (= 1 dir) 1 2))
93 (return-value quote-music)
99 (make-sequential-music
101 (context-spec-music (make-voice-props-set cue-voice) 'Voice "cue")
103 (context-spec-music (make-voice-props-revert) 'Voice "cue"))
107 (make-sequential-music
109 (make-voice-props-set main-voice)
111 (make-voice-props-revert)))
113 (set! (ly:music-property quote-music 'element) main-music)
118 (location what main-music)
120 (make-music 'NewQuoteMusic
122 'quoted-music-name what
130 remove these from the parser, and softcode here:
134 with small syntax changes, we could also do