Fix Tracker 918, Add extra RemoveEmpty*StaffContext functions to support "Frenched" scores

ly/engraver-init.ly

 %%%% This file is part of LilyPond, the GNU music typesetter.
 %%%%
 %%%% Copyright (C) 1996--2009 Han-Wen Nienhuys <hanwen@xs4all.nl>
 %%%%                          Jan Nieuwenhuizen <janneke@gnu.org>
 %%%%
 %%%% LilyPond is free software: you can redistribute it and/or modify
 %%%% it under the terms of the GNU General Public License as published by
 %%%% the Free Software Foundation, either version 3 of the License, or
 %%%% (at your option) any later version.
 %%%%
 %%%% LilyPond is distributed in the hope that it will be useful,
 %%%% but WITHOUT ANY WARRANTY; without even the implied warranty of
 %%%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 %%%% GNU General Public License for more details.
 %%%%
 %%%% You should have received a copy of the GNU General Public License
 %%%% along with LilyPond.  If not, see <http://www.gnu.org/licenses/>.
 
-\version "2.12.0"
+\version "2.13.10"
 
 \context {
   \name "Global"
 
   \accepts "Score"
 
   \defaultchild "Score"
   \description "Hard coded entry point for LilyPond.  Cannot be tuned."
   \grobdescriptions #all-grob-descriptions
 }
@@ skipping 104 matching lines @@
   vocalName = #'()
   shortVocalName = #'()
 
   \accepts "Staff"
   \accepts "DrumStaff"
   \accepts "RhythmicStaff"
   \accepts "GrandStaff"
   \accepts "PianoStaff"
   \accepts "Lyrics"
   \accepts "ChordNames"
-  \accepts "FiguredBass"

[Ian Hulin, 2009/12/14 17:15:14]

This line not removed by this patch:  appeared after git rebase.

   \accepts "ChoirStaff"
   \accepts "StaffGroup"
   \defaultchild "Staff"
   \description "Identical to @code{StaffGroup} except that the
 contained staves are not connected vertically."
 }
 
 \context{
   \type "Engraver_group"
 
@@ skipping 164 matching lines @@
   \alias "GrandStaff"
 
   \description "Just like @code{GrandStaff} but with support for
 instrument names at the start of each system."
 
   \consists "Instrument_name_engraver"
   \consists "Vertical_align_engraver"
   topLevelAlignment = ##f
 
   \override StaffGrouper #'between-staff-spacing #'stretchability = #5
-
+  
   instrumentName = #'()
   shortInstrumentName = #'()
 }
 
 \context {
   \type "Engraver_group"
   \name "StaffGroup"
 
   \consists "Vertical_align_engraver"
   topLevelAlignment = ##f
@@ skipping 28 matching lines @@
   \type "Engraver_group"
   \name Dynamics
   \alias Voice
   \consists "Output_property_engraver"
   \consists "Bar_engraver"
   \consists "Piano_pedal_engraver"
   \consists "Script_engraver"
   \consists "New_dynamic_engraver"
   \consists "Dynamic_align_engraver"
   \consists "Text_engraver"
-  \consists "Text_spanner_engraver"

[Ian Hulin, 2009/12/14 17:15:14]

This line also not removed by this patch.

   \consists "Skip_event_swallow_translator"
   \consists "Axis_group_engraver"
 
   pedalSustainStrings = #'("Ped." "*Ped." "*")
   pedalUnaCordaStrings = #'("una corda" "" "tre corde")
   \override VerticalAxisGroup #'staff-affinity = #CENTER
   \override VerticalAxisGroup #'inter-staff-spacing = #'((space . 5) (padding . 0.5))
   \override TextScript #'font-shape = #'italic
 
   \description "Holds a single line of dynamics, which will be
@@ skipping 340 matching lines @@
   \description "Context for drawing notes in a Tab staff."
 
   %% TabStaff increase the staff-space, which in turn
   %% increases beam thickness and spacing; beams are
   %% too big. We have to adjust the beam settings:
   \override Beam #'beam-thickness = #0.32
   \override Beam #'length-fraction = #0.62
 
   %% No accidental in tablature !
   \remove "Accidental_engraver"
-  %% make the Stems as short as possible to minimize their influence
+  %% make the Stems as short as possible to minimize their influence 
   %% on the slur::calc-control-points routine
   \override Stem #'length = #0
   \override Stem #'no-stem-extend = ##t
   \override Stem #'flag-style = #'no-flag
   \override Stem #'details = #'((lengths 0 0 0 0 0 0)
                                 (beamed-lengths 0 0 0)
                                 (beamed-minimum-free-lengths 0 0 0)
                                 (beamed-extreme-minimum-free-lengths 0 0)
                                 (stem-shorten 0 0))
   %% after all, the stubs of the stems may still be visible, so ...
@@ skipping 254 matching lines @@
   \override Custos #'neutral-direction = #DOWN
 
   %% Accidentals are valid only once (same as
   %% #(set-accidental-style 'forget))
   extraNatural = ##f
   autoAccidentals = #`(Staff ,(make-accidental-rule 'same-octave -1))
   autoCautionaries = #'()
   printKeyCancellation = ##f
 }
 
+RemoveEmptyDrumStaffContext = \context {
+  \DrumStaff
+  \remove "Axis_group_engraver"
+  \override VerticalAxisGroup #'remove-empty = ##t
+  \consists "Hara_kiri_engraver"
+}
 
-RemoveEmptyRhythmicStaffContext= \context {
+RemoveEmptyRhythmicStaffContext = \context {
   \RhythmicStaff
   \remove "Axis_group_engraver"
   \override VerticalAxisGroup #'remove-empty = ##t
   \consists "Hara_kiri_engraver"
 }
+
+RemoveEmptyTabStaffContext = \context {
+  \TabStaff
+  \remove "Axis_group_engraver"
+  \override VerticalAxisGroup #'remove-empty = ##t
+  \consists "Hara_kiri_engraver"
+}
+