Delete unneeded new snippets

7 files changed, 13 insertions, 236 deletions

diff --git a/Documentation/snippets/displaying-grob-ancestry.ly b/Documentation/snippets/displaying-grob-ancestry.ly
index 47077461d9..dc55c346f2 100644
--- a/Documentation/snippets/displaying-grob-ancestry.ly
+++ b/Documentation/snippets/displaying-grob-ancestry.ly
@@ -64,17 +64,17 @@ The following output is generated:
 %% http://lsr.di.unimi.it/LSR/Item?id=622
 %% see also http://www.lilypond.org/doc/v2.18/Documentation/snippets/tweaks-and-overrides#tweaks-and-overrides-displaying-grob-ancestry
 
-#(define (grob-name grob)
-   (if (ly:grob? grob)
-       (assoc-ref (ly:grob-property grob 'meta) 'name)
-       #f))
+%% Remark:
+%% grob::name is in the source since 2.19.x could be deleted during next LSR-upgrade
+#(define (grob::name grob)
+  (assq-ref (ly:grob-property grob 'meta) 'name))
 
 #(define (get-ancestry grob)
-   (if (not (null? (ly:grob-parent grob X)))
-       (list (grob-name grob)
-             (get-ancestry (ly:grob-parent grob X))
-             (get-ancestry (ly:grob-parent grob Y)))
-       (grob-name grob)))
+  (if (not (null? (ly:grob-parent grob X)))
+      (list (grob::name grob)
+            (get-ancestry (ly:grob-parent grob X))
+            (get-ancestry (ly:grob-parent grob Y)))
+      (grob::name grob)))
 
 #(define (format-ancestry lst padding)
    (string-append
@@ -110,7 +110,9 @@ The following output is generated:
    (format (current-error-port)
       "~3&~a~2%~a~&"
       (make-string 36 #\-)
-      (format-ancestry (get-ancestry grob) 0)))
+      (if (ly:grob? grob)
+          (format-ancestry (get-ancestry grob) 0)
+          (format #f "~a is not a grob" grob))))
 
 \relative c' {
   \once \override NoteHead.before-line-breaking = #display-ancestry
diff --git a/Documentation/snippets/new/arranging-separate-lyrics-on-a-single-line.ly b/Documentation/snippets/new/arranging-separate-lyrics-on-a-single-line.ly
deleted file mode 100644
index 16935f8d49..0000000000
--- a/Documentation/snippets/new/arranging-separate-lyrics-on-a-single-line.ly
+++ /dev/null
@@ -1,65 +0,0 @@
-\version "2.18.0"
-
-\header {
-  lsrtags = "paper-and-layout, vocal-music"
-
-  texidoc = "
-Sometimes you may want to put lyrics for different performers on a
-single line: where there is rapidly alternating text, for example.
-This snippet shows how this can be done with @code{\\override
-VerticalAxisGroup.nonstaff-nonstaff-spacing.minimum-distance =
-##f}.
-
-"
-  doctitle = "Arranging separate lyrics on a single line"
-}
-\layout {
-  \context {
-    \Lyrics
-    \override VerticalAxisGroup.nonstaff-nonstaff-spacing.minimum-distance = ##f
-  }
-}
-
-aliceSings = \markup { \smallCaps "Alice" }
-eveSings = \markup { \smallCaps "Eve" }
-
-<<
-  \new Staff <<
-    \new Voice = "alice" {
-      f'4^\aliceSings g' r2 |
-      s1 |
-      f'4^\aliceSings g' r2 |
-      s1 | \break
-      % ...
-
-      \voiceOne
-      s2 a'8^\aliceSings a' b'4 |
-      \oneVoice
-      g'1
-    }
-    \new Voice = "eve" {
-      s1 |
-      a'2^\eveSings g' |
-      s1 |
-      a'2^\eveSings g'
-      % ...
-
-      \voiceTwo
-      f'4^\eveSings a'8 g' f'4 e' |
-      \oneVoice
-      s1
-    }
-  >>
-  \new Lyrics \lyricsto "alice" {
-    may -- be
-    sec -- ond
-    % ...
-    Shut up, you fool!
-  }
-  \new Lyrics \lyricsto "eve" {
-    that the
-    words are
-    % ...
-    …and then I was like–
-  }
->>
diff --git a/Documentation/snippets/new/changing-stanza-fonts.ly b/Documentation/snippets/new/changing-stanza-fonts.ly
deleted file mode 100644
index 65f54fed92..0000000000
--- a/Documentation/snippets/new/changing-stanza-fonts.ly
+++ /dev/null
@@ -1,29 +0,0 @@
-\version "2.18.0"
-
-\header {
-  lsrtags = "really-simple, vocal-music"
-
-  texidoc = "
-Fonts can be changed independently for each stanza, including the font
-used for printing the stanza number.
-
-"
-  doctitle = "Changing stanza fonts"
-}
-
-\new Voice {
-  \time 3/4
-  g2 e4
-  a2 f4
-  g2.
-}
-\addlyrics {
-  \set stanza = #"1. "
-  Hi, my name is Bert.
-}
-\addlyrics {
-  \override StanzaNumber.font-name = #"DejaVu Sans"
-  \set stanza = #"2. "
-  \override LyricText.font-family = #'typewriter
-  Oh, ché -- ri, je t'aime
-}
diff --git a/Documentation/snippets/new/changing-the-default-text-font-family.ly b/Documentation/snippets/new/changing-the-default-text-font-family.ly
deleted file mode 100644
index 7db90d3d19..0000000000
--- a/Documentation/snippets/new/changing-the-default-text-font-family.ly
+++ /dev/null
@@ -1,48 +0,0 @@
-\version "2.18.0"
-
-\header {
-  lsrtags = "text, tweaks-and-overrides"
-
-  texidoc = "
-The default font families for text can be overridden with
-@code{make-pango-font-tree}.
-
-"
-  doctitle = "Changing the default text font family"
-}
-
-\paper {
-  % change for other default global staff size.
-  myStaffSize = #20
-  %{
-     run
-         lilypond -dshow-available-fonts blabla
-     to show all fonts available in the process log.
-  %}
-
-  #(define fonts
-    (make-pango-font-tree "Times New Roman"
-                          "Nimbus Sans,Nimbus Sans L"
-                          "Luxi Mono"
-;;                        "Helvetica"
-;;                        "Courier"
-     (/ myStaffSize 20)))
-}
-
-\relative c'' {
-  c4^\markup {
-    roman: foo \bold bla \italic bar \italic \bold baz
-  }
-  c'4_\markup {
-    \override #'(font-family . sans)
-    {
-      sans: foo \bold bla \italic bar \italic \bold baz
-    }
-  }
-  c'2^\markup {
-    \override #'(font-family . typewriter)
-    {
-      mono: foo \bold bla \italic bar \italic \bold baz
-    }
-  }
-}
diff --git a/Documentation/snippets/new/how-to-change-fret-diagram-position.ly b/Documentation/snippets/new/how-to-change-fret-diagram-position.ly
deleted file mode 100644
index 39cf3cf470..0000000000
--- a/Documentation/snippets/new/how-to-change-fret-diagram-position.ly
+++ /dev/null
@@ -1,52 +0,0 @@
-\version "2.19.22"
-
-\header {
-  lsrtags = "fretted-strings, specific-notation, tweaks-and-overrides"
-
-  texidoc = "
-If you want to move the position of a fret diagram, for example, to
-avoid collision, or to place it between two notes, you have various
-possibilities:
-
-1) modify #'padding or #'extra-offset values (as shown in the first
-snippet)
-
-2) you can add an invisible voice and attach the fret diagrams to the
-invisible notes in that voice (as shown in the second example).
-
- If you need to move the fret according with a rythmic position inside
-the bar (in the example, the third beat of the measure) the second
-example is better, because the fret is aligned with the third beat
-itself.
-
-"
-  doctitle = "How to change fret diagram position"
-}
-harmonies = \chordmode
-{
-  a8:13
-% THE FOLLOWING IS THE COMMAND TO MOVE THE CHORD NAME
-  \once \override ChordNames.ChordName.extra-offset = #'(10 . 0)
-  b8:13 s2.
-% THIS LINE IS THE SECOND METHOD
-    s4 s4  b4:13
-}
-
-\score
-{
-  <<
-    \new ChordNames \harmonies
-    \new Staff
-    {a8^\markup { \fret-diagram  #"6-x;5-0;4-2;3-0;2-0;1-2;"  }
-% THE FOLLOWING IS THE COMMAND TO MOVE THE FRET DIAGRAM
-     \once \override TextScript.extra-offset = #'(10 . 0)
-     b4.~^\markup { \fret-diagram  #"6-x;5-2;4-4;3-2;2-2;1-4;"  } b4. a8\break
-% HERE IS THE SECOND METHOD
-     <<
-       { a8 b4.~ b4. a8}
-       { s4 s4 s4^\markup { \fret-diagram  #"6-x;5-2;4-4;3-2;2-2;1-4;"  }
-       }
-     >>
-   }
-  >>
-}
diff --git a/Documentation/snippets/new/modifying-the-ottava-spanner-slope.ly b/Documentation/snippets/new/modifying-the-ottava-spanner-slope.ly
deleted file mode 100644
index bc9e4a48b5..0000000000
--- a/Documentation/snippets/new/modifying-the-ottava-spanner-slope.ly
+++ /dev/null
@@ -1,31 +0,0 @@
-\version "2.18.0"
-
-\header {
-  lsrtags = "tweaks-and-overrides, pitches, staff-notation"
-
-  texidoc = "
-It is possible to change the slope of the Ottava spanner.
-
-"
-  doctitle = "Modifying the Ottava spanner slope"
-}
-
-\relative c'' {
-  \override Staff.OttavaBracket.stencil = #ly:line-spanner::print
-  \override Staff.OttavaBracket.bound-details =
-    #`((left . ((Y . 0) ; Change the integer here
-                (attach-dir . ,LEFT)
-                (padding . 0)
-                (stencil-align-dir-y . ,CENTER)))
-       (right . ((Y . 5) ; Change the integer here
-                 (padding . 0)
-                 (attach-dir . ,RIGHT)
-                 (text . ,(make-draw-dashed-line-markup (cons 0 -1.2))))))
-  \override Staff.OttavaBracket.left-bound-info =
-     #ly:line-spanner::calc-left-bound-info-and-text
-  \override Staff.OttavaBracket.right-bound-info =
-     #ly:line-spanner::calc-right-bound-info
-  \ottava #1
-  c1
-  c'''1
-}
diff --git a/Documentation/snippets/score-for-diatonic-accordion.ly b/Documentation/snippets/score-for-diatonic-accordion.ly
index 9419a6893e..fddf7c230b 100644
--- a/Documentation/snippets/score-for-diatonic-accordion.ly
+++ b/Documentation/snippets/score-for-diatonic-accordion.ly
@@ -81,7 +81,7 @@ staffTabLine = \new Staff \with {
   \key c \major
   \relative c''
   {
-    % disable the following line to see the noteheads while writing the song
+    % disable the following line to see the the noteheads while writing the song
     \NoNoteHead
     \override NoteHead.no-ledgers = ##t