* scm/define-grobs.scm (all-grob-descriptions): reorganize in

[lilypond.git] / ly / gregorian-init.ly

diff --git a/ly/gregorian-init.ly b/ly/gregorian-init.ly
index 32099830c7bdba770396686895b05fb45e00d07f..efab48580d75d8734a54fda0139625b291fda2c4 100644 (file)
--- a/ly/gregorian-init.ly
+++ b/ly/gregorian-init.ly
@@ -1,4 +1,4 @@
-\version "2.3.16"
+\version "2.6.0"
 
 %%%%%%%%
 %%%%%%%% shortcuts common for all styles of gregorian chant notation
@@ -38,7 +38,7 @@ cavum =
 % declare divisiones shortcuts
 %
 virgula = {
-  \once \override BreathingSign  #'text = #(make-musicglyph-markup "scripts-rcomma")
+  \once \override BreathingSign  #'text = #(make-musicglyph-markup "scripts.rcomma")
   \once \override BreathingSign  #'font-size = #-2
 
   % Workaround: add padding.  Correct fix would be spacing engine handle this.
@@ -47,7 +47,7 @@ virgula = {
   \breathe
 }
 caesura = {
-  \once \override BreathingSign  #'text = #(make-musicglyph-markup "scripts-rvarcomma")
+  \once \override BreathingSign  #'text = #(make-musicglyph-markup "scripts.rvarcomma")
   \once \override BreathingSign  #'font-size = #-2
 
   % Workaround: add padding.  Correct fix would be spacing engine handle this.
@@ -105,6 +105,24 @@ episemFinis = #(make-span-event 'TextSpanEvent STOP)
 % shortcut music functions for Liber Hymnarius neumes table
 % (experimental)
 %
+
+#(define (make-ligature music)
+   (make-music 'SequentialMusic
+              'elements (append
+                         (cons
+                          (make-music 'EventChord
+                                      'elements (list
+                                                 (make-span-event 'LigatureEvent START)))
+                          (ly:music-property music 'elements))
+                         (list
+                          (make-music 'EventChord
+                                      'elements (list
+                                                 (make-span-event 'LigatureEvent STOP)))))))
+
+ligature = #(def-music-function
+             (location music) (ly:music?)
+             (make-ligature music))
+
 %#(define (make-script x)
 %   (make-music 'ArticulationEvent
 %               'articulation-type x))
@@ -136,10 +154,10 @@ episemFinis = #(make-span-event 'TextSpanEvent STOP)
 %climacus = #(def-climacus-function startSequentialMusic stopSequentialMusic)
 
 %
-% example paper block for gregorian chant notation
+% example layout block for gregorian chant notation
 %
 
-neumeDemoPaper = \paper {
+neumeDemoLayout = \layout {
     interscoreline = 1
     \context {
        \Score
@@ -158,7 +176,7 @@ neumeDemoPaper = \paper {
        \Voice
        \remove Ligature_bracket_engraver
        \consists Vaticana_ligature_engraver
-       \override NoteHead #'style = #'vaticana_punctum
+       \override NoteHead #'style = #'vaticana.punctum
        \override Stem #'transparent = ##t
     }
 }