Add/import music functions Syntax::property-{override,set)-function

diff --git a/lily/include/lily-imports.hh b/lily/include/lily-imports.hh
index c53ad421d8736ec184cba469c5c2b6d0356771cc..638aa132a9e79a9e070f111c7431912314eb40ad 100644 (file)
--- a/lily/include/lily-imports.hh
+++ b/lily/include/lily-imports.hh
@@ -122,8 +122,10 @@ namespace Syntax {
   extern Variable partial_markup;
   extern Variable partial_music_function;
   extern Variable property_override;
+  extern Variable property_override_function;
   extern Variable property_revert;
   extern Variable property_set;
+  extern Variable property_set_function;
   extern Variable property_unset;
   extern Variable repeat;
   extern Variable repetition_chord;

diff --git a/lily/lily-imports.cc b/lily/lily-imports.cc
index 16087513df5bd01df69c35c115bd46aefd7df204..27ca05924ea78692f2321726384ca6f2d6ec6fa2 100644 (file)
--- a/lily/lily-imports.cc
+++ b/lily/lily-imports.cc
@@ -115,8 +115,10 @@ namespace Syntax {
   Variable partial_markup ("partial-markup");
   Variable partial_music_function ("partial-music-function");
   Variable property_override ("property-override");
+  Variable property_override_function ("property-override-function");
   Variable property_revert ("property-revert");
   Variable property_set ("property-set");
+  Variable property_set_function ("property-set-function");
   Variable property_unset ("property-unset");
   Variable repeat ("repeat");
   Variable repetition_chord ("repetition-chord");

diff --git a/scm/ly-syntax-constructors.scm b/scm/ly-syntax-constructors.scm
index 0d37c0f766fad8b92d53203827d18b54077e2b34..c690413c88d2957db10b642b8b8c44dac4b1a599 100644 (file)
--- a/scm/ly-syntax-constructors.scm
+++ b/scm/ly-syntax-constructors.scm
@@ -246,6 +246,16 @@ into a @code{MultiMeasureTextEvent}."
                                 'grob-property-path (cdr path)))
                    context)))
 
+(define-public property-override-function
+  (ly:make-music-function
+   (list (cons ly:music? (void-music)) symbol? symbol-list? scheme?)
+   property-override))
+
+(define-public property-set-function
+  (ly:make-music-function
+   (list (cons ly:music? (void-music)) symbol? symbol? scheme?)
+   property-set))
+
 (define (get-first-context-id! mus)
   "Find the name of a ContextSpeccedMusic, possibly naming it"
   (let ((id (ly:music-property mus 'context-id)))