* 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 f60cd2c6144831b3e7fee2ae92d10f0b222367e3..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
@@ -49,21 +49,38 @@ displayMusic =
                 music)
 
 %% FIXME: guile-1.7 required?
-%% # (use-modules (scm display-lily))invalid module name for use-syntax ((srfi srfi-39))
+%#(use-modules (scm display-lily))invalid module name for use-syntax ((srfi srfi-39))
 
-%%#(use-modules (scm display-lily))
-%%displayLilyMusic =
-%%#(def-music-function (parser location music) (ly:music?)
-%%   (display-lily-init parser)
-%%   (display-lily-music music)
-%%   music)
+#(use-modules (scm display-lily))
+#(display-lily-init parser)
+displayLilyMusic =
+#(def-music-function (parser location music) (ly:music?)
+   (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 
@@ -156,7 +173,7 @@ pitchedTrill =
             )))
      
      (if (ly:pitch? trill-pitch)
-        (for-each (lambda (m) (ly:music-set-property! m 'trill-pitch trill-pitch))
+        (for-each (lambda (m) (ly:music-set-property! m 'pitch trill-pitch))
                   trill-events)
         (begin
           (ly:warning (_ "Second argument of \\pitchedTrill should be single note: "))