* lily/paper-system.cc (read_left_bound): new function. Read

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

diff --git a/ly/music-functions-init.ly b/ly/music-functions-init.ly
index 18297e98aba6bbdb9015543d78ebeda8d0257b21..d32a540f761d622a8a2b9ba65c1d8199420c7002 100644 (file)
--- a/ly/music-functions-init.ly
+++ b/ly/music-functions-init.ly
@@ -6,7 +6,7 @@
 
 #(use-modules (srfi srfi-1))  
 
-applymusic =
+applyMusic =
 #(def-music-function (parser location func music) (procedure? ly:music?)
                (func music))
 
@@ -33,7 +33,7 @@ autochange =
 #(def-music-function (parser location music) (ly:music?)
                (make-autochange-music music))
 
-applycontext =
+applyContext =
 #(def-music-function (parser location proc) (procedure?)
                  (make-music 'ApplyContext 
                    'origin location
@@ -58,12 +58,29 @@ displayLilyMusic =
    (display-lily-music music)
    music)
 
-applyoutput =
+applyOutput =
 #(def-music-function (parser location proc) (procedure?)
                 (make-music 'ApplyOutputEvent 
                   'origin location
                   'procedure proc))
 
+outputProperty =
+#(def-music-function (parser location name prop value)
+   (symbol? symbol? scheme?)
+
+
+   "Set @var{prop} to @var{value} in all grobs named @var{name} "
+
+   (make-music 'ApplyOutputEvent
+              'origin location
+              'procedure
+              (lambda (grob orig-context context)
+                (if (equal?
+                     (cdr (assoc 'name (ly:grob-property grob 'meta)))
+                     name)
+                    (set! (ly:grob-property grob prop) value)
+                ))))
+
 breathe =
 #(def-music-function (parser location) ()
             (make-music 'EventChord