Fixes missing images in web-big

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

diff --git a/ly/music-functions-init.ly b/ly/music-functions-init.ly
index 5a95cc6e035787eabcccb0266a4a5f30c6d304b1..e0b36696bab23c20eefaede5e1c1e634baa87faa 100644 (file)
--- a/ly/music-functions-init.ly
+++ b/ly/music-functions-init.ly
@@ -85,6 +85,21 @@ markups), or inside a score.")
               'elements (list (make-music 'PageTurnEvent
                                           'break-permission 'allow))))
 
+appendToTag =
+#(define-music-function (parser location tag music more)
+   (symbol? ly:music? ly:music?)
+   (_i "Append @var{more} to the @code{elements} of all music
+expressions in @var{music} that are tagged with @var{tag}.")
+   (music-map-copy (lambda (m)
+                    (if (memq tag (ly:music-property m 'tags))
+                        (begin
+                          (set! m (music-clone m))
+                          (set! (ly:music-property m 'elements)
+                                (append (ly:music-property m 'elements)
+                                        (list more)))))
+                    m)
+                  music))
+
 applyContext =
 #(define-music-function (parser location proc) (procedure?)
    (_i "Modify context properties with Scheme procedure @var{proc}.")
@@ -830,6 +845,20 @@ print @var{secondary-note} as a stemless note head in parentheses.")
                            trill-events)))))
      main-note))
 
+pushToTag =
+#(define-music-function (parser location tag music more)
+   (symbol? ly:music? ly:music?)
+   (_i "Add @var{more} to the front of @code{elements} of all music
+expressions in @var{music} that are tagged with @var{tag}.")
+   (music-map-copy (lambda (m)
+                    (if (memq tag (ly:music-property m 'tags))
+                        (begin
+                          (set! m (music-clone m))
+                          (set! (ly:music-property m 'elements)
+                                (cons more (ly:music-property m 'elements)))))
+                    m)
+                  music))
+
 quoteDuring =
 #(define-music-function (parser location what main-music) (string? ly:music?)
    (_i "Indicate a section of music to be quoted.  @var{what} indicates the name