4 applymusic = #(def-music-function (location func music) (procedure? ly:music?)
7 addlyrics = #(def-music-function (location music lyrics) (ly:music? ly:music?)
8 (make-music 'LyricCombineMusic
10 'elements (list music lyrics)))
12 grace = #(def-grace-function startGraceMusic stopGraceMusic)
13 acciaccatura = #(def-grace-function startAcciaccaturaMusic stopAcciaccaturaMusic)
14 appoggiatura = #(def-grace-function startAppoggiaturaMusic stopAppoggiaturaMusic)
16 partcombine = #(def-music-function (location part1 part2) (ly:music? ly:music?)
17 (make-part-combine-music (list part1 part2)))
19 autochange = #(def-music-function (location music) (ly:music?)
20 (make-autochange-music music))
22 applycontext = #(def-music-function (location proc) (procedure?)
23 (make-music 'ApplyContext
27 applyoutput = #(def-music-function (location proc) (procedure?)
28 (make-music 'ApplyOutputEvent
32 breathe = #(def-music-function (location) ()
33 (make-music 'EventChord
35 'elements (list (make-music 'BreathingSignEvent))))
38 unfoldrepeats = #(def-music-function (location music) (ly:music?)
39 (unfold-repeats music))
41 compressmusic = #(def-music-function
42 (location fraction music) (number-pair? ly:music?)
43 (ly:music-compress music (ly:make-moment (car fraction) (cdr fraction))))
46 %% \mytag #'foo { ... } ==> OK
47 %% c-\mytag #'foo ^4 ==> KO
49 #(use-modules (srfi srfi-1))
50 #(define-public (symbol-or-symbols? obj)
51 "Return #t iif obj is a symbol or a symbol list."
54 (null? (remove symbol? obj)))))
56 mytag = #(def-music-function (location tagname music) (symbol-or-symbols? ly:music?)
57 (set! (ly:music-property music 'tags)
58 ((if (list? tagname) append cons) tagname (ly:music-property music 'tags)))
66 remove these from the parser, and softcode here:
70 with small syntax changes, we could also do