From ee97c531786e9ed017f8ed34c6a762b1bc6ba19c Mon Sep 17 00:00:00 2001
From: Eric Teunis de Boone <ericteunis@gmail.com>
Date: Tue, 27 Feb 2018 23:33:31 +0100
Subject: [PATCH] Closes #14

Removable tutti's can be pulled off using the tag in the \dr and \fr variables
---
 lib/musical_functions.ily | 33 +++++++++++++--------------------
 1 file changed, 13 insertions(+), 20 deletions(-)

diff --git a/lib/musical_functions.ily b/lib/musical_functions.ily
index b267d5c..7d771d1 100644
--- a/lib/musical_functions.ily
+++ b/lib/musical_functions.ily
@@ -37,8 +37,8 @@ v = #(define-event-function (parser location) () #{ \upbow #})
 
 #(define (text-spanner-start-stop mus)
 	(let ((elts (ly:music-property mus 'elements)))
-	(make-music 'SequentialMusic 'elements 
-		(append	
+	(make-music 'SequentialMusic 'elements
+		(append
 			(list (make-music 'TextSpanEvent 'span-direction -1))
 			(reverse (cdr (reverse elts)))
 			(list (make-music 'TextSpanEvent 'span-direction 1))
@@ -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 #})
-fr = #(define-event-function (parser location) () #{ \stopGroup #})
-odr = #(define-event-function (parser location) () #{ \startGroup #})
-ofr = #(define-event-function (parser location) () #{ \stopGroup #})
+dr = #(define-event-function (parser location) () #{ -\tag #'tutti \startGroup #})
+fr = #(define-event-function (parser location) () #{ -\tag #'tutti \stopGroup #})
+odr = #(define-event-function (parser location) () #{ -\tag #'tutti \startGroup #})
+ofr = #(define-event-function (parser location) () #{ -\tag #'tutti \stopGroup #})
 
 #(define (allbutlastnote mus)
 	(let ((elts (ly:music-property mus 'elements)))
@@ -99,19 +99,12 @@ ofr = #(define-event-function (parser location) () #{ \stopGroup #})
 	)
 )
 % TODO: check whether on one note
-tutti = #(define-music-function (music) (ly:music?) 
+tutti = #(define-music-function (music) (ly:music?)
 	#{
-		<<
-			\tag #'tutti {
-					\override HorizontalBracket.connect-to-neighbor = #'(#t #t)
-					<>\dr
-					#(skip-of-length (allbutlastnote music))
-					<>\fr
-					#(skip-of-length (lastnote music))
-					\revert HorizontalBracket.connect-to-neighbor
-			}
-			{
-					$music
-			}
-		>>
+		\override HorizontalBracket.connect-to-neighbor = #'(#t #t)
+		<>\dr
+		#(allbutlastnote music)
+		<>\fr
+		#(lastnote music)
+		\revert HorizontalBracket.connect-to-neighbor
 	#})