Closes #14

Removable tutti's can be pulled off using the tag in the \dr and \fr variables

lib/musical_functions.ily

@@ -83,10 +83,10 @@ dynLine = #(define-music-function
 %fr = { <>\="unison"\stopTextSpan }
 %odr = { \unisonbracket	<>\="unison"\startTextSpan }
 %ofr = { <>\="unison"\stopTextSpan }
-dr = #(define-event-function (parser location) () #{ \startGroup #})
+dr = #(define-event-function (parser location) () #{ -\tag #'tutti \startGroup #})
-fr = #(define-event-function (parser location) () #{ \stopGroup #})
+fr = #(define-event-function (parser location) () #{ -\tag #'tutti \stopGroup #})
-odr = #(define-event-function (parser location) () #{ \startGroup #})
+odr = #(define-event-function (parser location) () #{ -\tag #'tutti \startGroup #})
-ofr = #(define-event-function (parser location) () #{ \stopGroup #})
+ofr = #(define-event-function (parser location) () #{ -\tag #'tutti \stopGroup #})
 
 #(define (allbutlastnote mus)
 	(let ((elts (ly:music-property mus 'elements)))
@@ -101,17 +101,10 @@ ofr = #(define-event-function (parser location) () #{ \stopGroup #})
 % TODO: check whether on one note
 tutti = #(define-music-function (music) (ly:music?)
 	#{
-		<<
-			\tag #'tutti {
 		\override HorizontalBracket.connect-to-neighbor = #'(#t #t)
 		<>\dr
-					#(skip-of-length (allbutlastnote music))
+		#(allbutlastnote music)
 		<>\fr
-					#(skip-of-length (lastnote music))
+		#(lastnote music)
 		\revert HorizontalBracket.connect-to-neighbor
-			}
-			{
-					$music
-			}
-		>>
 	#})