Bookmarking labels and page referencing:

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

diff --git a/ly/music-functions-init.ly b/ly/music-functions-init.ly
index 8360dcbe84b7f7e6e938ff99dc7f1f4b874cb657..ea28ba4a58ccf86fd6995b5d03d6529a9852730b 100644 (file)
--- a/ly/music-functions-init.ly
+++ b/ly/music-functions-init.ly
@@ -298,7 +298,15 @@ killCues =
       (if (string? (ly:music-property mus 'quoted-music-name))
          (ly:music-property mus 'element)
          mus)) music))
-   
+
+label = 
+#(define-music-function (parser location label) (symbol?)
+   (_i "Place a bookmarking label, either at top-level or inside music.")
+   (make-music 'EventChord
+              'page-marker #t
+              'label label
+              'elements (list (make-music 'LabelEvent
+                                          'label label)))) 
 
 makeClusters =
 #(define-music-function