From 2f474e8b9b996a85edff8a8518fe255124a4ecf6 Mon Sep 17 00:00:00 2001
From: ET de Boone <ericteunis@gmail.com>
Date: Tue, 16 Jan 2018 17:06:51 +0100
Subject: [PATCH] Tutti autotagging with #'tutti

Close !14

Tutti is automatically tagged with #'tutti, so it can be removed using ```removeWithTag #'tutti```
---
 lib/musical_functions.ily | 18 +++++++++++++-----
 1 file changed, 13 insertions(+), 5 deletions(-)

diff --git a/lib/musical_functions.ily b/lib/musical_functions.ily
index 1049fa1..e022eae 100644
--- a/lib/musical_functions.ily
+++ b/lib/musical_functions.ily
@@ -101,9 +101,17 @@ ofr = #(define-event-function (parser location) () #{ \stopGroup #})
 % TODO: check whether on one note
 tutti = #(define-music-function (music) (ly:music?) 
 	#{
-		\once \override HorizontalBracket.connect-to-neighbor = #'(#t #t)
-		<>\startGroup
-		#(allbutlastnote music)
-		<>\stopGroup
-		#(lastnote music)
+		<<
+			\tag #'tutti {
+					\override HorizontalBracket.connect-to-neighbor = #'(#t #t)
+					<>\startGroup
+					#(skip-of-length (allbutlastnote music))
+					<>\stopGroup
+					#(skip-of-length (lastnote music))
+					\revert HorizontalBracket.connect-to-neighbor
+			}
+			{
+					#music
+			}
+		>>
 	#})