+ (apply make-music
+ (append
+ (list
+ 'StrokeFingerEvent
+ 'origin location)
+ (if (string? finger)
+ (list 'text finger)
+ (list 'digit finger)))))
+
+scoreTweak =
+#(define-music-function (parser location name) (string?)
+ (_i "Include the score tweak, if exists.")
+ (if (and page-layout-parser (not (ly:get-option 'dump-tweaks)))
+ (let ((tweak-music (ly:parser-lookup page-layout-parser
+ (string->symbol name))))
+ (if (ly:music? tweak-music)
+ tweak-music
+ (make-music 'SequentialMusic)))
+ (make-music 'SequentialMusic)))
+
+transposedCueDuring =
+#(define-music-function
+ (parser location what dir pitch-note main-music)
+ (string? ly:dir? ly:music? ly:music?)
+
+ (_i "Insert notes from the part @var{what} into a voice called @code{cue},
+using the transposition defined by @var{pitch-note}. This happens
+simultaneously with @var{main-music}, which is usually a rest. The
+argument @var{dir} determines whether the cue notes should be notated
+as a first or second voice.")
+
+ (make-music 'QuoteMusic
+ 'element main-music
+ 'quoted-context-type 'Voice
+ 'quoted-context-id "cue"
+ 'quoted-music-name what
+ 'quoted-voice-direction dir
+ 'quoted-transposition (pitch-of-note pitch-note)
+ 'origin location))
+
+
+
+transposition =
+#(define-music-function (parser location pitch-note) (ly:music?)
+ (_i "Set instrument transposition")
+
+ (context-spec-music
+ (make-property-set 'instrumentTransposition
+ (ly:pitch-negate (pitch-of-note pitch-note)))
+ 'Staff))
+
+tweak = #(define-music-function (parser location sym val arg)
+ (symbol? scheme? ly:music?)
+
+ (_i "Add @code{sym . val} to the @code{tweaks} property of @var{arg}.")
+
+ (set!
+ (ly:music-property arg 'tweaks)
+ (acons sym val
+ (ly:music-property arg 'tweaks)))
+ arg)
+
+tag = #(define-music-function (parser location tag arg)
+ (symbol? ly:music?)
+
+ (_i "Add @var{tag} to the @code{tags} property of @var{arg}.")
+
+ (set!
+ (ly:music-property arg 'tags)
+ (cons tag
+ (ly:music-property arg 'tags)))
+ arg)
+
+
+unfoldRepeats =
+#(define-music-function (parser location music) (ly:music?)
+ (unfold-repeats music))
+
+
+
+withMusicProperty =
+#(define-music-function (parser location sym val music) (symbol? scheme? ly:music?)
+ (_i "Set @var{sym} to @var{val} in @var{music}.")
+
+ (set! (ly:music-property music sym) val)
+ music)
+
+