* ly/music-functions-init.ly (Module): add shiftDurations

[lilypond.git] / ly / music-functions-init.ly

diff --git a/ly/music-functions-init.ly b/ly/music-functions-init.ly
index 8079d42e80e805013543da0037d390b724800494..3255290a5748bc5284e05a50a117ed2e2dcba945 100644 (file)
--- a/ly/music-functions-init.ly
+++ b/ly/music-functions-init.ly
@@ -78,6 +78,12 @@ applyContext =
                    'origin location
                    'procedure proc))
 
+shiftDurations =
+#(define-music-function (parser location dur dots arg) (integer? integer? ly:music?)
+   (music-map
+    (lambda (x)
+      (shift-one-duration-log x dur dots)) arg))
+
 musicMap =
 #(define-music-function (parser location proc mus) (procedure? ly:music?)
             (music-map proc mus))