From e2a68e35b139622bd8b0efaf00beb3726eb015cf Mon Sep 17 00:00:00 2001
From: Valentin Villenave <valentin@villenave.net>
Date: Fri, 2 Mar 2012 20:36:58 +0100
Subject: [PATCH] Add tuplet (in)visibility shortcuts

---
 bin/macros.scm | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)

diff --git a/bin/macros.scm b/bin/macros.scm
index 8f54e13..ecca3ac 100644
--- a/bin/macros.scm
+++ b/bin/macros.scm
@@ -101,6 +101,26 @@
 \once \override TupletNumber #'transparent = ##t
 #})
 
+(define noTuplets
+  (define-music-function (parser location x) (ly:music?)
+  #{
+\override TupletBracket #'transparent = ##t
+\override TupletNumber #'transparent = ##t
+$x
+\revert TupletBracket #'transparent
+\revert TupletNumber #'transparent
+#})
+
+(define tupletsOff #{
+\override TupletBracket #'transparent = ##t
+\override TupletNumber #'transparent = ##t
+#})
+
+(define tupletsOn #{
+\override TupletBracket #'transparent = ##f
+\override TupletNumber #'transparent = ##f
+#})
+
 (define oneStemDown #{
 \once \override Stem #'direction = #DOWN
 #})
-- 
2.11.4.GIT