remove spaces around keywords in musicnote and texnote boxes

tex/crepbook.cls

@@ -430,38 +430,38 @@
 \fi%
 %% End of tabs.sty file
 
-\newcommand{\Intro}{
+\newcommand{\Intro}{%
-  \IfStrEq{\@lang}{english}{intro}{}
+  \IfStrEq{\@lang}{english}{intro}{}%
-  \IfStrEq{\@lang}{french}{intro}{}
+  \IfStrEq{\@lang}{french}{intro}{}%
-}
+}%
-\newcommand{\Outro}{
+\newcommand{\Outro}{%
-  \IfStrEq{\@lang}{english}{outro}{}
+  \IfStrEq{\@lang}{english}{outro}{}%
-  \IfStrEq{\@lang}{french}{outro}{}
+  \IfStrEq{\@lang}{french}{outro}{}%
-}
+}%
-\newcommand{\Bridge}{
+\newcommand{\Bridge}{%
-  \IfStrEq{\@lang}{english}{bridge}{}
+  \IfStrEq{\@lang}{english}{bridge}{}%
-  \IfStrEq{\@lang}{french}{pont}{}
+  \IfStrEq{\@lang}{french}{pont}{}%
-}
+}%
-\newcommand{\Chorus}{
+\newcommand{\Chorus}{%
-  \IfStrEq{\@lang}{english}{chorus}{}
+  \IfStrEq{\@lang}{english}{chorus}{}%
-  \IfStrEq{\@lang}{french}{refrain}{}
+  \IfStrEq{\@lang}{french}{refrain}{}%
-}
+}%
-\newcommand{\Verse}{
+\newcommand{\Verse}{%
-  \IfStrEq{\@lang}{english}{verse}{}
+  \IfStrEq{\@lang}{english}{verse}{}%
-  \IfStrEq{\@lang}{french}{couplet}{}
+  \IfStrEq{\@lang}{french}{couplet}{}%
-}
+}%
-\newcommand{\Solo}{
+\newcommand{\Solo}{%
-  \IfStrEq{\@lang}{english}{solo}{}
+  \IfStrEq{\@lang}{english}{solo}{}%
-  \IfStrEq{\@lang}{french}{solo}{}
+  \IfStrEq{\@lang}{french}{solo}{}%
-}
+}%
-\newcommand{\Pattern}{
+\newcommand{\Pattern}{%
-  \IfStrEq{\@lang}{english}{pattern}{}
+  \IfStrEq{\@lang}{english}{pattern}{}%
-  \IfStrEq{\@lang}{french}{motif}{}
+  \IfStrEq{\@lang}{french}{motif}{}%
-}
+}%
-\newcommand{\Rythm}{
+\newcommand{\Rythm}{%
-  \IfStrEq{\@lang}{english}{rythm}{}
+  \IfStrEq{\@lang}{english}{rythm}{}%
-  \IfStrEq{\@lang}{french}{rythme}{}
+  \IfStrEq{\@lang}{french}{rythme}{}%
-}
+}%
 
 \let\musicnoteORIG\musicnote
 \renewcommand{\musicnote}[2][]{%