various small updates in non-music files

.lilydrum/embellishments.ily

@@ -1,7 +1,7 @@
 % =================================================	%
 % 	Flams, Drags & the sort							%
 % =================================================	%
-drumgrace = #(define-music-function (parser location notes) (ly:music?) #{
+drumgrace = #(define-music-function (parser location notes ) ( ly:music? ) #{
 	% Set settings
 	\stemUp
 	\once \override Beam.positions = #'(2 . 2)
@@ -11,7 +11,7 @@ drumgrace = #(define-music-function (parser location notes) (ly:music?) #{
 	\override Score.Stem #'beamlet-max-length-proportion = #'(0.5 . 0.5)
 
 	% Print notes
-	\grace $notes
+	\small \grace $notes
 
 	% Revert back
 	\revert Score.Stem #'beamlet-default-length
@@ -27,22 +27,28 @@ flamddr = \drummode { \drumgrace { g8\startGroup } }		% Flam right with start re
 flamgdr = \drummode { \drumgrace { d8\startGroup } }		% Flam left	 with start repeat
 
 % Drags
-dragd =   \drummode { \drumgrace { g16[ g] }}				% Drag right
-dragg =   \drummode { \drumgrace { d16[ d] }}				% Drag left
-dragddr = \drummode { \drumgrace { g16[\startGroup g] }} 	% Drag right with start repeat
-draggdr = \drummode { \drumgrace { d16[\startGroup d] }} 	% Drag left  with start repeat
+dragd =   \drummode { \drumgrace { g16[ g] } }				% Drag right
+dragg =   \drummode { \drumgrace { d16[ d] } }				% Drag left
+dragddr = \drummode { \drumgrace { g16[\startGroup g] } } 	% Drag right with start repeat
+draggdr = \drummode { \drumgrace { d16[\startGroup d] } } 	% Drag left  with start repeat
+
+% Open Drags
+odragd =   \drummode { \drumgrace { g16[ s^"o" g] } }				% Open Drag right
+odragg =   \drummode { \drumgrace { d16[ s^"o" d] } }				% Open Drag left
+odragddr = \drummode { \drumgrace { g16[\startGroup s^"o" g] } } 	% Open Drag right with start repeat
+odraggdr = \drummode { \drumgrace { d16[\startGroup s^"o" d] } } 	% Open Drag left  with start repeat
 
 % Ruff
-ruffg =   \drummode { \drumgrace { g16[ d g] }}				% Ruff right
-ruffd =   \drummode { \drumgrace { d16[ g d] }}				% Ruff left
-ruffgdr = \drummode { \drumgrace { g16[\startGroup d g] }}	% Ruff right with start repeat
-ruffddr = \drummode { \drumgrace  { d16[\startGroup g d] }}	% Ruff left  with start repeat
+ruffg =   \drummode { \drumgrace { g16[ d g] } }				% Ruff right
+ruffd =   \drummode { \drumgrace { d16[ g d] } }				% Ruff left
+ruffgdr = \drummode { \drumgrace { g16[\startGroup d g] } }	% Ruff right with start repeat
+ruffddr = \drummode { \drumgrace { d16[\startGroup g d] } }	% Ruff left  with start repeat
 
 % Swiss Ruff
-sruffg =   \drummode { \drumgrace { g16[ d d] }}			% Swiss Ruff right
-sruffd =   \drummode { \drumgrace { d16[ g g] }}			% Swiss Ruff left
-sruffgdr = \drummode { \drumgrace { g16[\startGroup d d] }}	% Swiss Ruff right with start repeat
-sruffddr = \drummode { \drumgrace { d16[\startGroup g g] }}	% Swiss Ruff left  with start repeat
+sruffg =   \drummode { \drumgrace { g16[ d d] } }			% Swiss Ruff right
+sruffd =   \drummode { \drumgrace { d16[ g g] } }			% Swiss Ruff left
+sruffgdr = \drummode { \drumgrace { g16[\startGroup d d] } }	% Swiss Ruff right with start repeat
+sruffddr = \drummode { \drumgrace { d16[\startGroup g g] } }	% Swiss Ruff left  with start repeat
 
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %%	Embellishment functions, automatic left or right	%%
@@ -69,6 +75,16 @@ drag = #(define-music-function (parser location note) (ly:music?) #{
 	% print the note, else it won't show up
 	$note
 #})
+% Open Drag
+odrag = #(define-music-function (parser location note) (ly:music?) #{
+	% is note right-handed? then \flamd
+	% if left, then \flamg
+	#(if (string=? (symbol->string (ly:music-property note 'drum-type)) "left-hand")
+          #{ \odragg #}
+          #{ \odragd #})
+	% print the note, else it won't show up
+	$note
+#})
 
 % Ruff
 ruff = #(define-music-function (parser location note) (ly:music?) #{

.lilydrum/flourishing.ily

@@ -24,13 +24,20 @@ scoop = \markup {
 						 (lineto 7 1 )
 						 )
 			}
-
+scoopo = #(define-music-function (parser location beg notes) (ly:music? ly:music?)
+			#{
+			%Set spanner from first to last note
+				$beg
+				\startGroup
+				$notes
+				\stopGroup
+			#})
 flourish = #(define-music-function (parser location notes) (ly:music?)
-				#{
-					\temporary \override Staff.NoteHead.style = #'cross
-					$notes
-					\revert Staff.NoteHead.style
-				#})
+			#{
+				\temporary \override Staff.NoteHead.style = #'cross
+				$notes
+				\revert Staff.NoteHead.style
+			#})
 sdcoop = #(define-music-function (parser location notes end) (ly:music? ly:music?)
 				#{
 					$notes

.lilydrum/layout_tweaks.ily

@@ -28,6 +28,7 @@ drumPitchNames =
 	}
 }
 \layout {
+	indent = 0.0
 	\context {
 		\DrumStaff
 		\name PipeBandDrumStaff
@@ -93,4 +94,21 @@ drumPitchNames =
 		\StaffGroup
 		\accepts "PipeBandDrumStaff"
 	}
-}
+}
+
+% ===================================================	%
+% 	*Shorts* for Naming									%
+% ===================================================	%
+
+instrumentSide = "Side"
+instrumentTenor = "Tenor"
+instrumentBass = "Bass"
+instrumentPipes = "Pipes"
+shortInstrumentSide = "S.D."
+shortInstrumentTenor = "T.D."
+shortInstrumentBass = "B.D."
+shortInstrumentPipes = "P."
+composerSide  = ""
+composerTenor = ""
+composerBass  = ""
+composerPipes = ""

.lilydrum/musical_functions.ily

@@ -5,7 +5,7 @@
 
 eighthBeaming = {
   \set baseMoment = #(ly:make-moment 1/8)
-  \set beatStructure = #'( 2 )
+  \set beatStructure = #'( 2  2 )
 }
 compoundEighthBeaming = {
   \set baseMoment = #(ly:make-moment 1/8)