X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=ly%2Fgregorian.ly;h=e4d34f6e4c9bb37f1b02e7ccb444279f2623ba23;hb=5d84bfad4626892bcffd05adcced53c8a2329047;hp=b5b088b95cf5cb99a02d0539d13800f00a3e5ee1;hpb=cccd2bf82ebfb55b6423346037fa4d2793fc4c3b;p=lilypond.git

diff --git a/ly/gregorian.ly b/ly/gregorian.ly
index b5b088b95c..e4d34f6e4c 100644
--- a/ly/gregorian.ly
+++ b/ly/gregorian.ly
@@ -3,12 +3,12 @@
   $Id$
 %}
 
-\version "2.17.11"
+\version "2.19.22"
 
 %
 % Declare memorable shortcuts for special unicode characters
 % that are used in chant notation.
-% 
+%
 
 % unicode 0132 (latin capital ligature IJ)
 IJ = \lyricmode { IJ }
@@ -26,23 +26,23 @@ iij = \lyricmode { iij }
    (let ((found? #f))
      (map-some-music
       (lambda (m)
-	(if found? m
-	    (and (music-is-of-type? m 'lyric-event)
-		 (begin
-		   (set! (ly:music-property m 'text)
-			 (string-append prefix (ly:music-property m 'text)))
-		   (set! found? #t)
-		   m))))
+        (if found? m
+            (and (music-is-of-type? m 'lyric-event)
+                 (begin
+                   (set! (ly:music-property m 'text)
+                         (string-append prefix (ly:music-property m 'text)))
+                   (set! found? #t)
+                   m))))
       music)))
 
 % Add unicode 2123 (versicle) as prefix to lyrics.
 versus =
-#(define-music-function (parser location music) (ly:music?)
+#(define-music-function (music) (ly:music?)
    (add-prefix-to-lyrics "℣" music))
 
 % Add unicode 211F (response) as prefix to lyrics.
 responsum =
-#(define-music-function (parser location music) (ly:music?)
+#(define-music-function (music) (ly:music?)
    (add-prefix-to-lyrics "℟" music))
 
 %
@@ -151,7 +151,7 @@ circulus = #(make-articulation "circulus")
 % it is applied by one.
 %
 augmentum =
-#(define-music-function (parser location expr) (ly:music?)
+#(define-music-function (expr) (ly:music?)
    (shift-duration-log expr 0 1))
 
 %
@@ -161,25 +161,25 @@ augmentum =
 
 #(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)))))))
+               '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 = #(define-music-function
-	      (location music) (ly:music?)
-	      (make-ligature music))
+              (location music) (ly:music?)
+              (make-ligature music))
 
 %#(define (make-script x)
 %   (make-music 'ArticulationEvent
 %               'articulation-type x))
-%    
+%
 %#(define (add-script m x)
 %   (if
 %     (equal? (ly:music-property m 'name) 'EventChord)
@@ -200,10 +200,10 @@ ligature = #(define-music-function
 %  `(define-music-function (location music) (ly:music?)
 %     (make-music 'SequentialMusic
 %        'elements (list 'LigatureStartEvent
-%			(ly:music-deep-copy ,start)
+%                       (ly:music-deep-copy ,start)
 %                        music
 %                        (ly:music-deep-copy ,stop)
-%			'LigatureStopEvent))))
+%                       'LigatureStopEvent))))
 %climacus = #(def-climacus-function startSequentialMusic stopSequentialMusic)
 
 %
@@ -225,46 +225,46 @@ ligature = #(define-music-function
     line-thickness = #(/ (ly:output-def-lookup $defaultpaper 'staff-space) 7.0)
 
     \context {
-	\VaticanaStaff
-	 \override StaffSymbol.color = #red
-	 \override LedgerLineSpanner.color = #red
+        \VaticanaStaff
+         \override StaffSymbol.color = #red
+         \override LedgerLineSpanner.color = #red
     }
     \context {
-	\Score
-	\remove "Bar_number_engraver"
-
-	%%%
-	%%% FIXME: Musicologically seen, timing should be set to #f.
-	%%% Unfortunately, setting it to #f will result in no
-	%%% line-breakable items being created, such that the whole
-	%%% music will end up in a single line.  Therefore, we
-	%%% currently set it to #t, until the ligature code is fixed
-	%%% to automatically insert breakable items.
-	%%%
-	timing = ##t
-
-	%%%
-	%%% FIXME: Setting barAlways to #t would fix the above
-	%%% "timing = ##t" problem, but, surprisingly, it increases
-	%%% the space between ligatures.  Hence, we set it to #f.
-	%%%
-	barAlways = ##f
-
-	\override SpacingSpanner.packed-spacing = ##t
-
-	%%%
-	%%% TODO: Play around with the following SpacingSpanner
-	%%% settings to yield better spacing between ligatures.
-	%%%
-	%%% FIXME: setting #'spacing-increment to a small value
-	%%% causes tons of "programming error: adding reverse spring,
-	%%% setting to unit" messages.
-	%%%
-	%\override SpacingSpanner.base-shortest-duration = #(ly:make-moment 1/4)
-	%\override SpacingSpanner.shortest-duration-space = #0
-	%\override SpacingSpanner.average-spacing-wishes = ##f
-	%\override SpacingSpanner.spacing-increment = #0.0
-	%\override SpacingSpanner.uniform-stretching = ##t
+        \Score
+        \remove "Bar_number_engraver"
+
+        %%%
+        %%% FIXME: Musicologically seen, timing should be set to #f.
+        %%% Unfortunately, setting it to #f will result in no
+        %%% line-breakable items being created, such that the whole
+        %%% music will end up in a single line.  Therefore, we
+        %%% currently set it to #t, until the ligature code is fixed
+        %%% to automatically insert breakable items.
+        %%%
+        timing = ##t
+
+        %%%
+        %%% FIXME: Setting barAlways to #t would fix the above
+        %%% "timing = ##t" problem, but, surprisingly, it increases
+        %%% the space between ligatures.  Hence, we set it to #f.
+        %%%
+        barAlways = ##f
+
+        \override SpacingSpanner.packed-spacing = ##t
+
+        %%%
+        %%% TODO: Play around with the following SpacingSpanner
+        %%% settings to yield better spacing between ligatures.
+        %%%
+        %%% FIXME: setting #'spacing-increment to a small value
+        %%% causes tons of "programming error: adding reverse spring,
+        %%% setting to unit" messages.
+        %%%
+        %\override SpacingSpanner.base-shortest-duration = #(ly:make-moment 1/4)
+        %\override SpacingSpanner.shortest-duration-space = #0
+        %\override SpacingSpanner.average-spacing-wishes = ##f
+        %\override SpacingSpanner.spacing-increment = #0.0
+        %\override SpacingSpanner.uniform-stretching = ##t
     }
 }
 
@@ -278,25 +278,24 @@ ligature = #(define-music-function
 neumeDemoLayout = \layout {
     interscoreline = 1
     \context {
-	\Score
-	\remove "Bar_number_engraver"
+        \Score
+        \remove "Bar_number_engraver"
     }
     \context {
-	\Staff
-	\remove "Clef_engraver"
-	\remove "Key_engraver"
-	\override StaffSymbol.transparent = ##t
-	\remove "Time_signature_engraver"
-	\remove "Bar_engraver"
-	\override VerticalAxisGroup.staff-staff-spacing = #'()
+        \Staff
+        \remove "Clef_engraver"
+        \remove "Key_engraver"
+        \hide StaffSymbol
+        \remove "Time_signature_engraver"
+        \remove "Bar_engraver"
+        \override VerticalAxisGroup.staff-staff-spacing = #'()
     }
     \context {
-	\Voice
-	\remove "Ligature_bracket_engraver"
-	\consists "Vaticana_ligature_engraver"
-	\override NoteHead.style = #'vaticana.punctum
-	\override Stem.transparent = ##t
-	\override Flag.transparent = ##t
+        \Voice
+        \remove "Ligature_bracket_engraver"
+        \consists "Vaticana_ligature_engraver"
+        \override NoteHead.style = #'vaticana.punctum
+        \hide Stem
     }
 }