songs (10jun17)

git-svn-id: svn://tug.org/texlive/trunk@44553 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 441 insertions, 360 deletions

diff --git a/Master/texmf-dist/tex/latex/songs/songs.sty b/Master/texmf-dist/tex/latex/songs/songs.sty
index 24992416b08..5cf5af58711 100644
--- a/Master/texmf-dist/tex/latex/songs/songs.sty
+++ b/Master/texmf-dist/tex/latex/songs/songs.sty
@@ -8,7 +8,7 @@
 %% 
 %% This is a generated file.
 %% 
-%% Copyright (C) 2012 by Kevin W. Hamlen
+%% Copyright (C) 2017 by Kevin W. Hamlen
 %% 
 %% This file may be distributed and/or modified under the conditions of
 %% the LaTeX Project Public License, either version 1.3a of this license
@@ -22,12 +22,14 @@
 %% 
 \NeedsTeXFormat{LaTeX2e}
 \ProvidesPackage{songs}
-  [2012/03/17 v2.14 Songs package]
+  [2017/06/05 v3.0 Songs package]
 \newif\ifSB@etex
 \ifx\eTeXversion\undefined\else
   \ifx\eTeXversion\relax\else
     \SB@etextrue
-    \IfFileExists{etex.sty}{\RequirePackage{etex}}{}
+    \ifx\e@alloc\@undefined
+      \IfFileExists{etex.sty}{\RequirePackage{etex}}{}
+    \fi
   \fi
 \fi
 \newif\ifSB@pdf\SB@pdffalse
@@ -41,30 +43,44 @@
 \newif\ifSB@preamble
 \SB@preambletrue
 \newif\ifSB@test
+\newif\ifSB@testii
 \newcommand\SB@temp{}
 \newcommand\SB@tempii{}
 \newcommand\SB@tempiii{}
 \newcommand\SB@tempiv{}
 \newcommand\SB@tempv{}
-\newdimen\SB@dimen
-\newdimen\SB@dimenii
-\newdimen\SB@dimeniii
-\newdimen\SB@dimeniv
-\newbox\SB@box
-\newbox\SB@boxii
-\newbox\SB@boxiii
-\newtoks\SB@toks
-\newcount\SB@cnt
-\newcount\SB@cntii
-\newskip\SB@skip
+\newcommand\SB@newcount[1]{\@ifdefinable#1{\newcount#1}}
+\newcommand\SB@newdimen[1]{\@ifdefinable#1{\newdimen#1}}
+\newcommand\SB@newbox[1]{\@ifdefinable#1{\newbox#1}}
+\newcommand\SB@newtoks[1]{\@ifdefinable#1{\newtoks#1}}
+\newcommand\SB@newwrite[1]{\@ifdefinable#1{\newwrite#1}}
+\SB@newdimen\SB@dimen
+\SB@newdimen\SB@dimenii
+\SB@newdimen\SB@dimeniii
+\SB@newdimen\SB@dimeniv
+\SB@newbox\SB@box
+\SB@newbox\SB@boxii
+\SB@newbox\SB@boxiii
+\SB@newtoks\SB@toks
+\SB@newcount\SB@cnt
+\SB@newcount\SB@cntii
+\newlength\SB@skip
+\SB@newbox\SB@envbox
 \RequirePackage{keyval}
+\newcommand\SB@app[3]{%
+  \expandafter#1\expandafter#2\expandafter{#2#3}%
+}
 \newcommand\lyricfont{\normalfont\normalsize}
 \newcommand\stitlefont{%
-  \ifslides\sffamily\Huge\else\sffamily\slshape\Large\fi%
+  \sffamily\ifslides\Huge\else\slshape\Large\fi%
 }
 \newcommand\versefont{}
 \newcommand\chorusfont{}
 \newcommand\notefont{}
+\newcommand\meterfont{\tiny\sffamily\upshape}
+\newcommand\echofont{%
+  \ifdim\fontdimen\@ne\font>\z@\upshape\else\slshape\fi%
+}
 \newcommand\scripturefont{%
   \usefont{OT1}{pzc}{mb}{it}%
   \shiftdblquotes{-1.1\p@}\z@{-2\p@}\z@%
@@ -102,13 +118,13 @@
 \newcommand\everychorus{}
 \newcommand\printchord[1]{\sffamily\slshape\large#1}
 \newcommand\chordlocals{}
-\newskip\versesep
+\newlength\versesep
 \versesep123456789sp\relax
-\newskip\afterpreludeskip
+\newlength\afterpreludeskip
 \afterpreludeskip=2\p@\@plus4\p@
-\newskip\beforepostludeskip
+\newlength\beforepostludeskip
 \beforepostludeskip=2\p@\@plus4\p@
-\newskip\baselineadj
+\newlength\baselineadj
 \baselineadj\z@skip
 \newcommand\clineparams{%
   \baselineskip\f@size\p@%
@@ -128,12 +144,12 @@
 \newlength\sbarheight
 \setlength\sbarheight\p@
 \interlinepenalty\@m
-\newcount\vvpenalty\vvpenalty200
-\newcount\ccpenalty\ccpenalty200
-\newcount\vcpenalty\vcpenalty200
-\newcount\cvpenalty\cvpenalty200
-\newcount\brkpenalty\brkpenalty200
-\newcount\spenalty\spenalty100
+\SB@newcount\vvpenalty\vvpenalty200
+\SB@newcount\ccpenalty\ccpenalty200
+\SB@newcount\vcpenalty\vcpenalty200
+\SB@newcount\cvpenalty\cvpenalty200
+\SB@newcount\brkpenalty\brkpenalty200
+\SB@newcount\spenalty\spenalty100
 \newcommand\songmark{}
 \newcommand\versemark{}
 \newcommand\chorusmark{}
@@ -151,8 +167,8 @@
 \let\colbotglue\z@skip
 \newcommand\lastcolglue{}
 \let\lastcolglue\@flushglue
-\newcount\minfrets\minfrets4
-\newdimen\SB@colwidth
+\SB@newcount\minfrets\minfrets4
+\SB@newdimen\SB@colwidth
 \DeclareOption{slides}{\slides}
 \newcommand\slides{%
   \slidestrue%
@@ -186,11 +202,14 @@
 \newcommand\SB@outer{\outer}
 \DeclareOption{unouter}{\let\SB@outer\relax}
 \DeclareOption{rawtext}{\rawtexttrue\indexesoff}
-\DeclareOption{nopdfindex}{\pdfindexfalse}
 \DeclareOption{noshading}{\SB@colorboxesfalse}
 \DeclareOption{noindexes}{\indexesoff}
 \newcommand\indexeson{\songindexestrue}
 \newcommand\indexesoff{\songindexesfalse}
+\DeclareOption{nopdfindex}{%
+  \let\songtarget\@gobbletwo%
+  \let\songlink\@secondoftwo%
+}
 \newif\ifSB@measurespec
 \newif\ifSB@chordedspec
 \DeclareOption{chorded}{\chordson}
@@ -310,41 +329,40 @@
   \songcolumns\SB@numcols
   \SB@preamblefalse
 }
-\newbox\SB@songbox
-\newcount\SB@numcols\SB@numcols\tw@
-\newcount\SB@colnum
-\newbox\SB@colbox
-\newbox\SB@pgbox
-\newbox\SB@mrkbox
+\SB@newbox\SB@songbox
+\SB@newcount\SB@numcols\SB@numcols\tw@
+\SB@newcount\SB@colnum
+\SB@newbox\SB@colbox
+\SB@newbox\SB@pgbox
+\SB@newbox\SB@mrkbox
 \newcommand\SB@maxmin[3]{\ifdim#1#2#3#1#3\fi}
-\newcommand\SB@mkpage[3]{%
-  \begingroup%
+\newcommand\SB@mkpage[4]{%
+  \ifvoid#2\else\begingroup%
+    \edef\SB@temp{\ifnum#2=\SB@box\SB@boxii\else\SB@box\fi}%
+    \edef\SB@tempii{\ifnum#2=\SB@boxiii\SB@boxii\else\SB@boxiii\fi}%
     \splitmaxdepth\maxdepth\splittopskip\z@skip%
-    \global\setbox#1\vbox{%
-      \unvbox#1%
-      \nointerlineskip%
-      \null%
-      \vfil%
-    }%
-    \loop\ifnum#2<\SB@numcols%
-      \setbox\SB@box\vsplit#1to#3\relax%
-      \ifvoid#1%
-        #2\SB@numcols%
+    \ifnum#1=\z@\global\setbox#2\vbox{\unvbox#2\vfil}\fi%
+    \loop\ifnum#3<\SB@numcols%
+      \ifnum#1=\z@\setbox\SB@tempii\copy#2\fi%
+      \setbox\SB@temp\vsplit#2to#4\relax%
+      \ifvoid#2%
+        \ifnum#1=\z@%
+          \global\setbox#2\box\SB@tempii%
+        \else%
+          \SB@updatepage%
+          \global\advance#3\@ne%
+        \fi%
+        #3\SB@numcols%
       \else%
         \SB@updatepage%
-        \global\advance#2\@ne%
+        \global\advance#3\@ne%
         \ifrepchorus\ifvoid\SB@chorusbox\else%
-          \SB@insertchorus#1%
+          \SB@insertchorus#2%
         \fi\fi%
       \fi%
     \repeat%
-    \global\setbox#1\vbox{%
-      \unvbox\SB@box%
-      \unvbox#1%
-      \unskip%
-      \setbox\SB@box\lastbox%
-    }%
-  \endgroup%
+    \ifnum#1=\z@\global\setbox#2\vbox{\unvbox#2\unskip}\fi%
+  \endgroup\fi%
 }
 \newcommand\SB@migrate[1]{%
   \SB@toks\expandafter{#1}%
@@ -364,23 +382,29 @@
     \advance\SB@dimen-\wd\SB@pgbox%
     \unhbox\SB@pgbox%
     \ifdim\SB@dimen=\z@\else\hskip\SB@dimen\relax\fi%
-    \box\SB@box%
+    \box\SB@temp%
   }%
 }
-\newcommand\SB@droppage{\setbox\SB@box\box\voidb@x}
-\newcommand\SB@output{%
+\newcommand\SB@droppage{\setbox\SB@temp\box\voidb@x}
+\newcommand\SB@output[1]{%
   \ifnum\SB@numcols>\z@\begingroup%
     \loop%
       \SB@dimen\textheight%
       \ifinner\else\advance\SB@dimen-\pagetotal\fi%
-      \SB@mkpage\SB@colbox\SB@colnum\SB@dimen%
-      \ifnum\SB@colnum<\SB@numcols\else%
+      \SB@mkpage#1\SB@colbox\SB@colnum\SB@dimen%
+      \SB@testfalse\SB@testiitrue%
+      \ifnum#1>\@ne\ifvoid\SB@colbox\ifnum\SB@colnum>\z@%
+        \SB@testtrue\SB@testiifalse%
+      \fi\fi\fi%
+      \ifnum\SB@colnum<\SB@numcols\SB@testiifalse\else\SB@testtrue\fi%
+      \ifSB@test%
         \unvbox\SB@mrkbox%
         \ifinner\else\kern\z@\fi%
         \box\SB@pgbox%
         \ifinner\else\vfil\break\vskip\vsize\relax\fi%
         \global\SB@colnum\z@%
-    \repeat%
+      \fi%
+    \ifSB@testii\repeat%
   \endgroup\else%
     \unvbox\SB@colbox\unskip%
   \fi%
@@ -417,7 +441,7 @@
           \advance\SB@cnt\m@ne%
         \repeat%
       }%
-      \SB@output%
+      \SB@output1%
     \else%
       \ifnum\lastpenalty=-\@M\null\fi%
       \break%
@@ -434,7 +458,7 @@
     \ifinner\else\advance\SB@dimen-\pagetotal\fi%
     \setbox\SB@boxii\vbox{\SB@putboxes\unvcopy}%
     \SB@cntii\SB@colnum%
-    \SB@mkpage\SB@boxii\SB@cntii\SB@dimen%
+    \SB@mkpage0\SB@boxii\SB@cntii\SB@dimen%
     \SB@spos%
     \global\SB@cnt\SB@cnt%
   \endgroup%
@@ -443,17 +467,17 @@
 \newcommand\SB@spbegnew{%
   \setbox\SB@boxiii\copy\SB@songbox%
   \SB@cntii\z@%
-  \SB@mkpage\SB@boxiii\SB@cntii\textheight%
+  \SB@mkpage0\SB@boxiii\SB@cntii\textheight%
 }
 \newcommand\SB@spextold{%
   \ifodd\c@page\else%
     \SB@cntii\z@%
-    \SB@mkpage\SB@boxii\SB@cntii\textheight%
+    \SB@mkpage0\SB@boxii\SB@cntii\textheight%
   \fi%
 }
 \newcommand\SB@spextnew{%
   \SB@cntii\z@%
-  \SB@mkpage\SB@boxiii\SB@cntii\textheight%
+  \SB@mkpage0\SB@boxiii\SB@cntii\textheight%
 }
 \newcommand\SB@spdblpg{%
   \ifnum\SB@cntii<\SB@numcols%
@@ -499,7 +523,7 @@
     \advance\SB@cnt\@ne%
     \ifnum\SB@cnt<\SB@numcols%
       \setbox\SB@boxiii\copy\SB@songbox%
-      \SB@mkpage\SB@boxiii\SB@cnt\SB@dimen%
+      \SB@mkpage0\SB@boxiii\SB@cnt\SB@dimen%
       \advance\SB@cnt\m@ne%
     \fi%
     \ifnum\SB@cnt>\SB@colnum%
@@ -531,17 +555,23 @@
 \songpos\thr@@
 \newcommand\SB@clearpage{%
   \SB@testtrue%
-  \ifvoid\SB@pgbox\ifvoid\SB@colbox\SB@testfalse\fi\fi%
+  \ifvoid\SB@pgbox%
+    \ifdim\ht\SB@colbox=\z@\ifdim\dp\SB@colbox=\z@%
+      \SB@testfalse%
+    \fi\fi%
+  \fi%
   \ifSB@test%
     \SB@cnt\SB@numcols%
     \advance\SB@cnt-\SB@colnum%
     \SB@nextcol\SB@cnt\lastcolglue%
+    \SB@output2%
   \fi%
 }
 \newcommand\SB@cleardpage{%
   \SB@clearpage%
   \if@twoside\ifodd\c@page%
     \SB@nextcol\SB@numcols\@flushglue%
+    \SB@output2%
   \fi\fi%
 }
 \newcommand\SB@stype{\SB@stypcol}
@@ -549,7 +579,7 @@
   \ifnum\SB@numcols>\z@%
     \SB@selectcol%
     \global\setbox\SB@colbox\vbox{\SB@putboxes\unvbox}%
-    \SB@output%
+    \SB@output0%
   \else%
     \unvbox\voidb@x%
     \SB@breakpoint\spenalty%
@@ -563,31 +593,36 @@
   \ifnum\SB@numcols>\z@%
     \SB@clearpage%
     \unvbox\SB@songbox%
-    \null\nointerlineskip%
+    \nointerlineskip\null%
   \else%
     \unvbox\SB@songbox%
   \fi%
+  \nointerlineskip%
 }
 \newcommand\SB@sgroup{}
 \let\SB@sgroup\@empty
-\newcount\SB@groupcnt
+\SB@newcount\SB@groupcnt
+\newcommand\SB@clearpboxes{}
+\newcommand\SB@partbox[1]{%
+  \SB@newbox#1%
+  \SB@app\gdef\SB@clearpboxes{\setbox#1\box\voidb@x}%
+  \global\setbox#1\box%
+}
 \newcommand\SB@submitpart{%
   \ifx\SB@sgroup\@empty\else%
-    \@for\SB@temp:=\songlist\do{%
-      \ifx\SB@temp\SB@sgroup%
-        \edef\SB@tempii{\SB@sgroup @\the\SB@groupcnt}%
-        \expandafter\newbox\csname songbox@\SB@tempii\endcsname%
-        \global\expandafter\setbox
-          \csname songbox@\SB@tempii\endcsname\box\SB@songbox%
-        \global\expandafter\let%
-          \csname stype@\SB@tempii\endcsname\SB@stype%
-        \ifrepchorus\ifvoid\SB@chorusbox\else%
-          \expandafter\newbox\csname chbox@\SB@tempii\endcsname%
-          \global\expandafter\setbox%
-            \csname chbox@\SB@tempii\endcsname\box\SB@chorusbox%
-        \fi\fi%
-      \fi%
-    }%
+    \SB@testfalse
+    \@for\SB@temp:=\songlist\do{\ifx\SB@temp\SB@sgroup\SB@testtrue\fi}%
+    \ifSB@test%
+      \edef\SB@tempii{\SB@sgroup @\the\SB@groupcnt}%
+      \expandafter\SB@partbox
+        \csname songbox@\SB@tempii\endcsname\SB@songbox%
+      \global\expandafter\let%
+        \csname stype@\SB@tempii\endcsname\SB@stype%
+      \ifrepchorus\ifvoid\SB@chorusbox\else%
+        \expandafter\SB@partbox
+  \csname chbox@\SB@tempii\endcsname\SB@chorusbox%
+      \fi\fi%
+    \fi%
     \global\advance\SB@groupcnt%
       \ifnum\SB@groupcnt<\z@\m@ne\else\@ne\fi%
   \fi%
@@ -597,6 +632,12 @@
 \newcommand\SB@submitsong{%
   \ifpartiallist\SB@submitpart\else\SB@stype\fi%
 }
+\newcommand\SB@submitenv{%
+  \begingroup%
+    \let\SB@songbox\SB@envbox%
+    \SB@styppage%
+  \endgroup%
+}
 \newcommand\SB@songlistbrk{}
 \def\SB@songlistbrk{brk}
 \newcommand\SB@songlistnc{}
@@ -631,6 +672,7 @@
         \fi\fi\fi\fi%
       }%
     \fi%
+    \SB@clearpboxes%
   \fi%
   \SB@clearpage%
 }
@@ -638,13 +680,13 @@
   \loop\edef\SB@tempii{\SB@temp @\the\SB@groupcnt}%
        \expandafter\ifx%
          \csname songbox@\SB@tempii\endcsname\relax\else%
-    \setbox\SB@songbox\expandafter\box%
+    \setbox\SB@songbox\expandafter\copy%
         \csname songbox@\SB@tempii\endcsname%
     \expandafter\ifx\csname chbox@\SB@tempii\endcsname\relax%
       \repchorusfalse%
     \else%
       \repchorustrue%
-      \setbox\SB@chorusbox\expandafter\box%
+      \setbox\SB@chorusbox\expandafter\copy%
         \csname chbox@\SB@tempii\endcsname%
     \fi%
     \csname stype@\SB@tempii\endcsname%
@@ -724,8 +766,8 @@
   \edef\SB@temp{\the#1}%
   \ifx\SB@temp\SB@emptylist#2\else#3\fi%
 }
-\newtoks\SB@titlelist
-\newtoks\SB@titletail
+\SB@newtoks\SB@titlelist
+\SB@newtoks\SB@titletail
 \newcommand\songtitle{}
 \newcommand\resettitles{%
   \global\SB@titletail\SB@titlelist%
@@ -758,8 +800,7 @@
 \newcommand\setlicense{\gdef\songlicense}
 \newcommand\SB@clearbskeys{}
 \newcommand\newsongkey[2]{%
-  \expandafter\gdef\expandafter\SB@clearbskeys\expandafter%
-    {\SB@clearbskeys#2}%
+  \SB@app\gdef\SB@clearbskeys{#2}%
   \define@key{beginsong}{#1}%
 }
 \newsongkey{sr}{\def\SB@rawrefs{}\gdef\songrefs{}}
@@ -811,7 +852,7 @@
     \nexttitle%
     \foreachtitle{\expandafter\SB@addtotitles\expandafter{\songtitle}}%
     \resettitles%
-    \lyricfont%
+    \lyricfont\relax%
     \SB@setbaselineskip%
 }
 \newcommand\SB@endsong{%
@@ -826,42 +867,47 @@
         \fi\fi%
       \fi\fi%
     \endgroup\egroup%
-    \setbox\SB@songbox\vbox{%
-      \songmark%
-      \unvbox\SB@songwrites%
-      \ifnum\SB@numcols>\z@\hsize\SB@colwidth\fi%
+    \begingroup%
+      \ifnum\SB@numcols>\z@%
+        \hsize\ifpagepreludes\textwidth\else\SB@colwidth\fi%
+      \fi%
       \leftskip\z@skip\rightskip\z@skip%
       \parfillskip\@flushglue\parskip\z@skip\parindent\z@%
-      \ifdim\sbarheight>\z@%
-        \hrule\@height\sbarheight\@width\hsize%
-        \nobreak\vskip5\p@%
-      \fi%
-      \ifpdfindex\begingroup%
-        \ifx\pdfbookmark\undefined\else%
-        \ifx\pdfbookmark\relax\else%
-          \resettitles%
-          \pdfbookmark[\ifnum\c@section=\z@1\else2\fi]%
-            {\thesongnum. \songtitle}%
-            {song\theSB@songsnum-\thesongnum}%
+      \global\setbox\SB@envbox\vbox{%
+        \songmark%
+        \unvbox\SB@songwrites%
+        \ifpagepreludes\else\ifdim\sbarheight>\z@%
+          \hrule\@height\sbarheight\@width\hsize%
+          \nobreak\vskip5\p@\relax%
         \fi\fi%
-      \endgroup\fi%
-      \vbox{\makeprelude}%
-      \nobreak\vskip\SB@skip%
-      \vskip\afterpreludeskip\relax%
-      \unvbox\SB@songbox%
-      \nobreak\vskip\SB@skip%
-      \vskip\beforepostludeskip\relax%
-      \nointerlineskip%
-      \vbox{\makepostlude}%
-      \ifdim\sbarheight>\z@%
-        \nobreak\vskip2\p@\@plus\p@%
+        \resettitles%
+        \begingroup%
+          \songtarget{\ifnum\c@section=\z@1\else2\fi}%
+                     {song\theSB@songsnum-\thesongnum}%
+        \endgroup%
+        \vbox{\makeprelude}%
+        \nobreak\vskip\SB@skip%
+        \vskip\afterpreludeskip\relax%
+      }%
+      \ifnum\SB@numcols>\z@\hsize\SB@colwidth\fi%
+      \global\setbox\SB@songbox\vbox{%
+        \ifpagepreludes\else\unvbox\SB@envbox\fi%
+        \unvbox\SB@songbox%
+        \nobreak\vskip\SB@skip%
+        \vskip\beforepostludeskip\relax%
         \nointerlineskip%
-        \hbox{\vrule\@height\sbarheight\@width\hsize}%
-      \fi%
-    }%
+        \vbox{\makepostlude}%
+        \ifdim\sbarheight>\z@%
+          \nobreak\vskip2\p@\@plus\p@%
+          \nointerlineskip%
+          \hbox{\vrule\@height\sbarheight\@width\hsize}%
+        \fi%
+      }%
+    \endgroup%
     \SB@insongfalse%
     \edef\SB@sgroup{\thesongnum}%
     \global\SB@groupcnt\z@%
+    \ifpagepreludes\SB@submitenv\fi%
     \SB@submitsong%
     \ifnum\SB@grouplvl=\z@\let\SB@sgroup\@empty\fi%
     \stepcounter{songnum}%
@@ -892,7 +938,7 @@
   \edef\SB@tempii{\the\versesep}%
   \ifx\SB@temp\SB@tempii%
     \begingroup%
-      \lyricfont%
+      \lyricfont\relax%
       \SB@dimen\f@size\p@%
       \ifchorded%
         \setbox\SB@box\hbox{{\printchord{ABCDEFG\shrp\flt/j7}}}%
@@ -911,9 +957,7 @@
 \newcommand\makeprelude{%
   \resettitles%
   \ifslides%
-    \hbox to\hsize{{%
-      \hfil\stitlefont\songtitle\hfil%
-    }}%
+    \hbox to\hsize{{\hfil\stitlefont\relax\songtitle\hfil}}%
     \vskip5\p@%
     \hbox to\hsize{%
       \hfil%
@@ -932,13 +976,15 @@
       }}}%
     \fi%
     \setbox\SB@box\vbox{%
-      \ifnum\SB@numcols>\z@\hsize\SB@colwidth\fi%
       \ifdim\songnumwidth>\z@%
-        \advance\hsize-\wd\SB@boxii%
-        \advance\hsize-3\p@%
+        \SB@dimen\wd\SB@boxii%
+        \advance\SB@dimen3\p@%
+        \ifpagepreludes\multiply\SB@dimen\tw@\fi%
+        \advance\hsize-\SB@dimen%
       \fi%
-      \SB@raggedright\offinterlineskip\lineskip\p@%
-      {\stitlefont%
+      \ifpagepreludes\centering\else\SB@raggedright\fi%
+      \offinterlineskip\lineskip\p@%
+      {\stitlefont\relax%
        \songtitle\par%
        \nexttitle%
        \foreachtitle{(\songtitle)\par}}%
@@ -990,69 +1036,50 @@
     \global\SB@titlelist{\\}%
     \SB@toks{}%
     \let\\\SB@titlesep%
-    \let\SB@dothis\SB@pthead%
-    \SB@ptstart#1\SB@endparse%
+    \SB@pthead#1\SB@endparse%
   \endgroup%
 }
-\newcommand\SB@ptstart{\futurelet\SB@next\SB@dothis}
-\newcommand\SB@pthead{%
-  \ifcat\noexpand\SB@next\noexpand\@sptoken%
-    \expandafter\SB@ptsp%
+\newcommand\SB@pthead{\futurelet\SB@next\SB@@pthead}
+\newcommand\SB@@pthead{%
+  \ifcat\noexpand\SB@next\@sptoken%
+    \expandafter\SB@@@pthead%
   \else%
-    \SB@toks{}%
-    \let\SB@dothis\SB@ptmain%
     \expandafter\SB@ptmain%
   \fi%
 }
+\newcommand\SB@@@pthead{%
+  \afterassignment\SB@pthead%
+  \let\SB@next= }
+\newcommand\SB@ptloop{\futurelet\SB@next\SB@ptmain}
 \newcommand\SB@ptmain{%
-  \ifcat\noexpand\SB@next\noexpand\@sptoken%
+  \ifcat\noexpand\SB@next\@sptoken%
     \let\SB@donext\SB@ptsp%
-  \else\ifcat\noexpand\SB@next\noexpand\bgroup%
+  \else\ifcat\noexpand\SB@next\bgroup%
     \let\SB@donext\SB@ptbg%
   \else\ifx\SB@next\SB@endparse%
     \global\SB@titlelist\expandafter{\the\SB@titlelist\\}%
     \let\SB@donext\@gobble%
+  \else\ifx\SB@next\\%
+    \SB@toks{}%
+    \def\SB@donext{\SB@ptstep\SB@pthead}%
   \else%
-    \ifx\SB@next\\%
-      \SB@toks{}%
-      \let\SB@dothis\SB@pthead%
-    \fi%
-    \let\SB@donext\SB@ptstep%
-  \fi\fi\fi%
-  \SB@donext%
-}
-\newcommand\SB@ptstep[1]{%
+    \def\SB@donext{\SB@ptstep\SB@ptloop}%
+  \fi\fi\fi\fi%
+  \SB@donext}
+\newcommand\SB@ptstep[2]{%
   \global\SB@titlelist\expandafter\expandafter\expandafter{%
-    \expandafter\the\expandafter\SB@titlelist\the\SB@toks#1}%
+    \expandafter\the\expandafter\SB@titlelist\the\SB@toks#2}%
   \SB@toks{}%
-  \SB@ptstart%
-}
-\newcommand\SB@ptbg[1]{\SB@ptstep{{#1}}}
+  #1}
+\newcommand\SB@ptbg[1]{\SB@ptstep\SB@ptloop{{#1}}}
 \newcommand\SB@ptsp{
   \SB@appendsp\SB@toks%
-  \afterassignment\SB@ptstart%
+  \afterassignment\SB@ptloop%
   \let\SB@next= }
 \newcommand\SB@titlesep{SB@titlesep}
 \newcommand\SB@endparse{%
   \SB@Error{Title parsing failed}{This error should not occur.}%
 }
-\newcommand\SB@testdigit[1]{%
-  \SB@testfalse%
-  \ifcat1\noexpand#1\SB@@testdigit#1\fi%
-}
-\newcommand\SB@@testdigit[1]{%
-  \ifx0#1\SB@testtrue\else%
-  \ifx1#1\SB@testtrue\else%
-  \ifx2#1\SB@testtrue\else%
-  \ifx3#1\SB@testtrue\else%
-  \ifx4#1\SB@testtrue\else%
-  \ifx5#1\SB@testtrue\else%
-  \ifx6#1\SB@testtrue\else%
-  \ifx7#1\SB@testtrue\else%
-  \ifx8#1\SB@testtrue\else%
-  \ifx9#1\SB@testtrue%
-  \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
-}
 \newcommand\SB@parsesrefs[1]{%
   \begingroup%
     \SB@toks{\begingroup\SB@sractives}%
@@ -1069,13 +1096,13 @@
   \fi%
 }
 \newcommand\SB@@prstep{%
-  \ifcat\noexpand\SB@next\noexpand\@sptoken%
+  \ifcat\noexpand\SB@next\@sptoken%
     \let\SB@donext\SB@prspace%
   \else\ifx\SB@next-%
     \let\SB@donext\SB@prhyphen%
   \else\ifx\SB@next,%
     \let\SB@donext\SB@prcomma%
-  \else\ifx\SB@next\SB@endparse
+  \else\ifx\SB@next\SB@endparse%
     \let\SB@donext\@gobble%
   \else\ifcat\noexpand\SB@next\bgroup%
     \let\SB@donext\SB@prgr%
@@ -1186,7 +1213,7 @@
   \begingroup%
     \SB@dimen\dp#2%
     #1#2%
-    \setbox\SB@box\hbox{{\lyricfont p}}%
+    \setbox\SB@box\hbox{{\lyricfont\relax p}}%
     \ifdim\SB@dimen<\dp\SB@box%
       \advance\SB@dimen-\dp\SB@box%
       \vskip-\SB@dimen%
@@ -1218,7 +1245,7 @@
   \fi%
 }
 \newcommand\SB@@par{\let\par\SB@par\par}
-\newdimen\SB@parindent
+\SB@newdimen\SB@parindent
 \newcommand\SB@everypar{}
 \newcommand\SB@raggedright{%
   \SB@parindent\parindent%
@@ -1273,15 +1300,13 @@
     \ifvnumbered%
       \protected@edef\@currentlabel{\p@versenum\theversenum}%
       \def\SB@everypar{%
-        \setbox\SB@box\hbox{{%
-          \printversenum{\theversenum}%
-        }}%
+        \setbox\SB@box\hbox{{\printversenum{\theversenum}}}%
         \ifdim\wd\SB@box<\versenumwidth%
           \setbox\SB@box%
           \hbox to\versenumwidth{\unhbox\SB@box\hfil}%
         \fi%
         \ifchorded\vrule\@height\baselineskip\@width\z@\@depth\z@\fi%
-        {\placeversenum\SB@box}%
+        \placeversenum\SB@box%
         \gdef\SB@everypar{}%
       }%
     \else%
@@ -1291,7 +1316,7 @@
       }%
     \fi%
     \everypar{\SB@everypar\everypar{}}%
-    \versefont\versejustify%
+    \versefont\relax\SB@setbaselineskip\versejustify%
     \SB@loadactives%
     \SB@obeylines%
     \penalty12345 %
@@ -1314,7 +1339,7 @@
   \fi%
 }
 \newif\ifSB@chorustop
-\newbox\SB@chorusbox
+\SB@newbox\SB@chorusbox
 \newif\ifSB@gotchorus
 \ifSB@etex
   \@ifundefined{newmarks}{
@@ -1374,7 +1399,7 @@
       }%
       \everypar{\SB@everypar\everypar{}}%
     \fi%
-    \chorusfont\chorusjustify%
+    \chorusfont\relax\SB@setbaselineskip\chorusjustify%
     \SB@loadactives%
     \SB@obeylines%
     \penalty12345 %
@@ -1484,7 +1509,7 @@
   \fi%
 }
 \newcommand\SB@boxup[1]{%
-  \setbox\SB@box\hbox{{\notefont#1}}%
+  \setbox\SB@box\hbox{{\notefont\relax#1}}%
   \SB@dimen\wd\SB@box%
   \advance\SB@dimen6\p@%
   \advance\SB@dimen\leftskip%
@@ -1533,7 +1558,7 @@
   \newcommand\SB@echo[1]{%
     \endgroup%
     \begingroup%
-      \ifdim\fontdimen\@ne\font>\z@\upshape\else\slshape\fi%
+      \echofont\relax%
       \endlinechar\m@ne%
       \scantokens{(#1)}%
     \endgroup%
@@ -1541,7 +1566,7 @@
 \else
   \newcommand\echo{%
     \begingroup%
-      \ifdim\fontdimen\@ne\font>\z@\upshape\else\slshape\fi%
+      \echofont\relax%
       \afterassignment\SB@echo%
       \setbox\SB@box\hbox%
   }
@@ -1563,7 +1588,7 @@
   \advance\SB@grouplvl\m@ne%
   \ifnum\SB@grouplvl=\z@\let\SB@sgroup\@empty\fi%
 }
-\newcount\SB@grouplvl
+\SB@newcount\SB@grouplvl
 \newenvironment{intersong}{%
   \ifSB@insong\SB@errbro\SB@closeall\fi%
   \ifSB@intersong\SB@errbrr\SB@closeall\fi%
@@ -1617,18 +1642,17 @@
     \ifSB@insong\SB@errero\SB@closeall\else\SB@errert\fi%
   \fi%
 }
-\newbox\SB@srbox
 \newenvironment{scripture}{\beginscripture}{\SB@endscripture}
 \newcommand\beginscripture[1]{%
   \begin{intersong}%
     \SB@parsesrefs{#1}%
-    \setbox\SB@srbox\hbox{{\printscrcite\songrefs}}%
+    \setbox\SB@envbox\hbox{{\printscrcite\songrefs}}%
     \def\SB@closeall{\endscripture}%
     \nobreak\vskip5\p@%
     \SB@parindent\parindent\parindent\z@%
     \parskip\z@skip\parfillskip\@flushglue%
     \leftskip\SB@parindent\rightskip\SB@parindent\relax%
-    \scripturefont%
+    \scripturefont\relax%
     \baselineskip\f@size\p@\@plus\p@\relax%
     \advance\baselineskip\p@\relax%
     \emergencystretch.3em%
@@ -1643,14 +1667,14 @@
 }
 \newcommand\scitehere{%
   \ifSB@intersong%
-    \ifvoid\SB@srbox\else%
+    \ifvoid\SB@envbox\else%
       \ifvmode%
         \setbox\SB@box\lastbox%
         \nointerlineskip\noindent\hskip-\leftskip%
         \unhbox\SB@box\unskip%
       \fi%
       \unskip\nobreak\hfil\penalty50\hskip.8em\null\nobreak\hfil%
-      \box\SB@srbox\kern-\SB@parindent%
+      \box\SB@envbox\kern-\SB@parindent%
       {\parfillskip\z@\finalhyphendemerits2000\par}%
     \fi%
   \else%
@@ -1738,7 +1762,7 @@
     \vadjust{}%
   }
 }
-\newcount\SB@transposefactor
+\SB@newcount\SB@transposefactor
 \newif\ifSB@convertnotes
 \newcommand\notenameA{}
 \newcommand\notenameB{}
@@ -1836,7 +1860,7 @@
   \else\ifx\SB@next\egroup%
     \SB@toks\expandafter{\the\SB@toks\egroup}%
     \let\SB@donext\SB@trskip%
-  \else\ifcat\noexpand\SB@next\noexpand\@sptoken%
+  \else\ifcat\noexpand\SB@next\@sptoken%
     \SB@appendsp\SB@toks%
     \let\SB@donext\SB@trskip%
   \else%
@@ -1887,7 +1911,7 @@
 }
 \newcommand\SB@trnotestep[1]{%
   \ifnum\uccode`#1=`#1%
-    \expandafter\def\expandafter\SB@temp\expandafter{\SB@temp#1}%
+    \SB@app\def\SB@temp{#1}%
     \expandafter\SB@trscan%
   \else%
     \SB@cnt\z@%
@@ -1997,22 +2021,22 @@
     \fi%
   \fi%
   \ifvmode\leavevmode\fi%
-  \setbox\SB@box\hbox{\tiny\sffamily{#1}}%
-  \setbox\SB@boxii\hbox{\tiny\sffamily{#2}}%
-  \ifdim\wd\SB@box>\wd\SB@boxii%
-    \SB@dimen\wd\SB@box\relax%
-  \else%
-    \SB@dimen\wd\SB@boxii\relax%
-  \fi%
-  \ifdim\SB@dimen<.5\p@%
-    \SB@dimen.5\p@%
-  \fi%
+  \setbox\SB@box\hbox{{\meterfont\relax#1}}%
+  \setbox\SB@boxii\hbox{{\meterfont\relax#2}}%
+  \SB@dimen\wd\ifdim\wd\SB@box>\wd\SB@boxii\SB@box\else\SB@boxii\fi%
   \SB@dimenii\baselineskip%
   \advance\SB@dimenii-2\p@%
   \advance\SB@dimenii-\ht\SB@box%
   \advance\SB@dimenii-\dp\SB@box%
   \advance\SB@dimenii-\ht\SB@boxii%
   \advance\SB@dimenii-\dp\SB@boxii%
+  \let\SB@temp\relax%
+  \ifdim\SB@dimen>\z@%
+    \advance\SB@dimenii-.75\p@%
+    \def\SB@temp{\kern.75\p@}%
+  \fi%
+  \SB@maxmin\SB@dimen<{.5\p@}%
+  \SB@maxmin\SB@dimenii<\z@%
   \vbox{%
     \mark{\SB@measuremark}%
     \hbox to\SB@dimen{%
@@ -2026,6 +2050,7 @@
       \box\SB@boxii%
       \hfil%
     }%
+    \SB@temp%
     \nointerlineskip%
     \hbox to\SB@dimen{%
       \hfil%
@@ -2033,11 +2058,11 @@
       \hfil%
     }%
   }%
+  \meter{}{}%
 }
 \newcommand\mbar{\SB@mbar}
 \newcommand\measurebar{%
   \mbar\SB@metertop\SB@meterbot%
-  \meter{}{}%
 }
 \newcommand\SB@repcolon{{%
   \usefont{OT1}{cmss}{m}{n}\selectfont%
@@ -2066,27 +2091,24 @@
 }
 \newif\ifSB@wordends
 \newif\ifSB@brokenword
-\newtoks\SB@lyric
-\newcount\SB@numhyps
-\newtoks\SB@lyricnohyp
-\newbox\SB@lyricbox
-\newbox\SB@chordbox
+\SB@newtoks\SB@lyric
+\SB@newcount\SB@numhyps
+\SB@newtoks\SB@lyricnohyp
+\SB@newbox\SB@lyricbox
+\SB@newbox\SB@chordbox
 \newcommand\SB@chbstok{}
 \newcommand\SB@setchord{}
 {
   \catcode`^\active
-  \catcode`!7
   \gdef\SB@setchord#1{%
     \SB@gettabindtrue\SB@nohattrue%
     \setbox\SB@chordbox\hbox{%
       \unhbox\SB@chordbox%
       \begingroup%
         \ifSB@trackch%
-          \def\SB@activehat{\ifmmode!\else\global\SB@nohatfalse\fi}%
+          \let\SB@activehat\SB@hat@tr%
         \else%
-          \def\SB@activehat{%
-            \ifmmode!\else\SB@lop\SB@ctail\SB@toks\the\SB@toks\fi%
-          }%
+          \let\SB@activehat\SB@hat@notr%
         \fi%
         \let^\SB@activehat%
         \printchord{%
@@ -2104,100 +2126,97 @@
     \let\SB@noreplay\@firstofone%
   }
 }
-\newcommand\SB@outertest{}
-\edef\SB@outertest#1{%
-  \noexpand\SB@@outertest#1%
-  \string\outer%
-  \noexpand\SB@@outertest%
+\newcommand\SB@outertest{%
+  \expandafter\SB@otesta\meaning\SB@next:\SB@otesta%
 }
-\newcommand\SB@@outertest{}
-\expandafter\def\expandafter\SB@@outertest%
-\expandafter#\expandafter1\string\outer#2\SB@@outertest{%
+\newcommand\SB@otesta{}
+\edef\SB@otesta#1:#2\SB@otesta{%
+  \noexpand\SB@otestb%
+  #1\string\outer%
+  \noexpand\SB@otestb%
+}
+\newcommand\SB@otestb{}
+\expandafter\def\expandafter\SB@otestb%
+\expandafter#\expandafter1\string\outer#2\SB@otestb{%
   \def\SB@temp{#2}%
-  \ifx\SB@temp\@empty\else\SB@testtrue\fi%
+  \ifx\SB@temp\@empty\SB@testfalse\else\SB@testtrue\fi%
 }
 \newcommand\SB@UTFtest{}
 \edef\SB@UTFtest#1{%
-  \noexpand\SB@UTFtester#1%
+  \noexpand\expandafter%
+  \noexpand\SB@@UTFtest%
+  \noexpand\meaning#1%
   \string\UTFviii@zero@octets%
-  \noexpand\SB@UTFtester%
-}
-\begingroup
-  \escapechar\m@ne
-  \xdef\SB@two{\string\two}
-  \xdef\SB@three{\string\three}
-  \xdef\SB@four{\string\four}
-  \xdef\SB@temp{\string\@octets}
-\endgroup
-\edef\SB@temp{##1\string\UTFviii@##2\SB@temp##3}
-\expandafter\def\expandafter\SB@UTFtester\SB@temp\SB@UTFtester{%
-  \def\SB@temp{#2}%
-  \ifx\SB@temp\SB@two%
-    \SB@cnt\tw@%
-  \else\ifx\SB@temp\SB@three%
-    \SB@cnt\thr@@%
-  \else\ifx\SB@temp\SB@four%
-    \SB@cnt4 %
-  \else%
-    \SB@cnt\z@%
-  \fi\fi\fi%
+  \noexpand\SB@@UTFtest%
+}
+\newcommand\SB@U@two{\global\SB@cnt\tw@}
+\newcommand\SB@U@three{\global\SB@cnt\thr@@}
+\newcommand\SB@U@four{\global\SB@cnt4\relax}
+\newcommand\SB@@UTFtest{}
+{\escapechar\m@ne
+ \xdef\SB@temp{\string\@octets}}
+\edef\SB@temp{##1\string\UTFviii@##2\SB@temp}
+\expandafter\def\expandafter\SB@@UTFtest\SB@temp#3\SB@@UTFtest{%
+  \SB@cnt\z@%
+  {\csname SB@U@#2\endcsname}%
 }
 \newcommand\SB@declare[3]{%
   \afterassignment\iffalse\let\SB@next= #3\relax\fi%
-  \expandafter\SB@UTFtest\expandafter{\meaning\SB@next}%
+  \SB@UTFtest\SB@next%
   \ifcase\SB@cnt%
     \ifcat\noexpand#3\relax%
       \SB@addNtest\SB@macrotests#1#2#3%
     \else\ifcat\noexpand#3.%
-      \SB@addDtest\SB@othertests#1#2#3%
+      \SB@addDtest\SB@othertests#1#2%
     \else\ifcat\noexpand#3A%
-      \SB@addDtest\SB@lettertests#1#2#3%
+      \SB@addDtest\SB@lettertests#1#2%
     \else%
-      \SB@addDtest\relax0#2#3%
+      \SB@addDtest\relax0#2%
     \fi\fi\fi%
   \or%
     \SB@addNtest\SB@macrotests#1#2#3%
   \else%
-    \SB@addMtest\SB@multitests#1#2{#3}%
+    \SB@addMtest\SB@multitests#1#2#3\relax\relax\relax%
   \fi%
 }
 \newcommand\DeclareLyricChar{\SB@declare\SB@testtrue0}
-\newcommand\DeclareNonLyric{%
-  \SB@declare\SB@testfalse\SB@testfalse%
-}
-\newcommand\DeclareNoHyphen{%
-  \SB@declare\SB@testfalse\SB@testtrue%
-}
+\newcommand\DeclareNonLyric{\SB@declare\SB@testfalse\SB@testfalse}
+\newcommand\DeclareNoHyphen{\SB@declare\SB@testfalse\SB@testtrue}
 \newcommand\SB@lettertests{}
 \newcommand\SB@macrotests{}
 \newcommand\SB@multitests{}
 \newcommand\SB@othertests{}
-\newcommand\SB@hyphtests{}
-\newcommand\SB@addtest[2]{%
-  \expandafter\gdef\expandafter#1\expandafter{#1#2}%
-}
-\newcommand\SB@addDtest[4]{%
-  \ifx0#2\else\SB@addtest#1{\ifx\SB@next#4#2\fi}\fi%
-  \ifx0#3\else\SB@addtest\SB@hyphtests{\ifx\SB@next#4#3\fi}\fi%
+\newcommand\SB@addDtest[3]{%
+  \ifx0#2\else%
+    \def#1{{\csname SB@!\meaning\SB@next\endcsname}}%
+    \expandafter\def\csname SB@!\meaning\SB@next\endcsname{\global#2}%
+  \fi%
+  \ifx0#3\else%
+    \expandafter\def\csname SB@HT@\meaning\SB@next\endcsname{\global#3}%
+  \fi%
 }
 \newcommand\SB@addNtest[4]{%
   \ifx0#2\else%
-    \SB@addtest#1{%
-      \edef\SB@temp{\string#4}\ifx\SB@temp\SB@nextname#2\fi%
-    }%
+    \def#1{{\csname SB@!\SB@nextname\endcsname}}%
+    \expandafter\def\csname SB@!\string#4\endcsname{\global#2}%
   \fi%
   \ifx0#3\else%
-    \SB@addtest\SB@hyphtests{%
-      \edef\SB@temp{\string#4}\ifx\SB@temp\SB@nextname#3\fi%
-    }%
+    \expandafter\def\csname SB@HT@\string#4\endcsname{\global#3}%
   \fi%
 }
-\newcommand\SB@addMtest[4]{%
+\newcommand\SB@addMtest[7]{%
+  \edef\SB@temp{%
+    \string#4%
+    \ifx\relax#5\else\string#5\fi%
+    \ifx\relax#6\else\string#6\fi%
+    \ifx\relax#7\else\string#7\fi%
+  }%
   \ifx0#2\else%
-    \SB@addtest#1{\def\SB@temp{#4}\ifx\SB@next\SB@temp#2\fi}%
+    \def#1{{\csname SB@!\SB@nextname\endcsname}}%
+    \expandafter\def\csname SB@!\SB@temp\endcsname{\global#2}%
   \fi%
-  \ifx0#3\else\SB@addtest\SB@hyphtests{%
-    \def\SB@temp{#4}\ifx\SB@next\SB@temp#3\fi}%
+  \ifx0#3\else%
+    \expandafter\def\csname SB@HT@\SB@temp\endcsname{\global#3}%
   \fi%
 }
 \DeclareLyricChar\`
@@ -2241,7 +2260,7 @@
      \catcode`:12\relax%
      \catcode`\^^M\active\SB@outer\def^^M{}%
      \SB@outer\def\[{}%
-     \chordlocals%
+     \chordlocals\relax%
   }
 }
 \newcommand\SB@endcname{}
@@ -2269,8 +2288,8 @@
 \newcommand\MultiwordChords{%
   \def\SB@spcinit{%
     \let\SB@chdone\SB@chlyrdone%
-    \def\SB@chimpspace{\let\SB@donext\SB@chdone}%
-    \def\SB@chexpspace{\let\SB@donext\SB@chdone}%
+    \let\SB@chimpspace\SB@chnxtdone%
+    \let\SB@chexpspace\SB@chnxtdone%
     \let\SB@chespace\SB@chendspace%
   }%
 }
@@ -2279,21 +2298,17 @@
   \futurelet\SB@next\SB@chmain%
 }
 \newcommand\SB@chmain{\SB@dothis\SB@donext}
+\newcommand\SB@chnxtrelax{\let\SB@donext\relax}
+\newcommand\SB@chnxtstep{\let\SB@donext\SB@chstep}
+\newcommand\SB@chnxtdone{\let\SB@donext\SB@chdone}
 \newcommand\SB@chstart{%
-  \ifx\SB@next\[%
-    \let\SB@donext\relax%
-  \else\ifx\SB@next\SB@activehat%
-    \let\SB@donext\relax%
-  \else\ifx\SB@next\ch%
-    \let\SB@donext\relax%
-  \else\ifx\SB@next\mch%
-    \let\SB@donext\relax%
-  \else\ifx\SB@next`%
-    \let\SB@donext\SB@chstep%
-  \else\ifx\SB@next'%
-    \let\SB@donext\SB@chstep%
-  \else\ifx\SB@next"%
-    \let\SB@donext\SB@chstep%
+  \ifx\SB@next\[\SB@chnxtrelax%
+  \else\ifx\SB@next\SB@activehat\SB@chnxtrelax%
+  \else\ifx\SB@next\ch\SB@chnxtrelax%
+  \else\ifx\SB@next\mch\SB@chnxtrelax%
+  \else\ifx\SB@next`\SB@chnxtstep%
+  \else\ifx\SB@next'\SB@chnxtstep%
+  \else\ifx\SB@next"\SB@chnxtstep%
   \else%
     \the\SB@lyric%
     \SB@lyric{}%
@@ -2306,9 +2321,9 @@
   \ifcat\noexpand\SB@next A%
     \SB@testtrue\SB@lettertests%
     \ifSB@test%
-      \SB@chespace\let\SB@donext\SB@chstep%
+      \SB@chespace\SB@chnxtstep%
     \else%
-      \let\SB@donext\SB@chdone%
+      \SB@chnxtdone%
     \fi%
   \else%
     \SB@chtrymacro%
@@ -2322,33 +2337,32 @@
   \fi%
 }
 \newcommand\SB@chother{%
-  \ifcat\noexpand\SB@next\noexpand\@sptoken%
+  \ifcat\noexpand\SB@next\@sptoken%
     \SB@chexpspace%
-  \else\ifcat\noexpand\SB@next\noexpand\bgroup%
+  \else\ifcat\noexpand\SB@next\bgroup%
     \SB@chespace\let\SB@donext\SB@chbgroup%
-  \else\ifcat\noexpand\SB@next\noexpand\egroup%
+  \else\ifcat\noexpand\SB@next\egroup%
     \SB@chespace\let\SB@donext\SB@chegroup%
   \else\ifx\SB@next-%
     \SB@numhyps\@ne\relax%
     \SB@lyricnohyp\expandafter{\the\SB@lyric}%
     \let\SB@dothis\SB@chhyph%
-    \SB@chespace\let\SB@donext\SB@chstep%
+    \SB@chespace\SB@chnxtstep%
   \else\ifcat\noexpand\SB@next.%
     \SB@testtrue\SB@othertests%
     \ifSB@test%
-      \SB@chespace\let\SB@donext\SB@chstep%
+      \SB@chespace\SB@chnxtstep%
     \else%
-      \let\SB@donext\SB@chdone%
+      \SB@chnxtdone%
     \fi%
   \else%
-    \SB@chespace\let\SB@donext\SB@chstep%
+    \SB@chespace\SB@chnxtstep%
   \fi\fi\fi\fi\fi%
 }
 \newcommand\SB@chmacro{%
-  \SB@testfalse%
-  \expandafter\SB@outertest\expandafter{\meaning\SB@next}%
+  \SB@outertest%
   \ifSB@test%
-    \let\SB@donext\SB@chdone%
+    \SB@chnxtdone%
   \else%
     \let\SB@donext\SB@chgetname%
   \fi%
@@ -2359,9 +2373,9 @@
 }
 \newcommand\SB@@chmacro{%
   \ifx\SB@next\SB@activehat%
-    \let\SB@donext\SB@chdone%
+    \SB@chnxtdone%
   \else\ifx\SB@next\SB@par%
-    \let\SB@donext\SB@chdone%
+    \SB@chnxtdone%
   \else\ifx\SB@next\measurebar%
     \SB@chmbar%
   \else\ifx\SB@next\mbar%
@@ -2375,7 +2389,7 @@
   \else\ifx\SB@next\SB@nbsp%
     \SB@chimpspace%
   \else%
-    \expandafter\SB@UTFtest\expandafter{\meaning\SB@next}%
+    \SB@UTFtest\SB@next%
     \ifcase\SB@cnt\SB@chothermac%
     \or\or\SB@chespace\let\SB@donext\SB@chsteptwo%
     \or\SB@chespace\let\SB@donext\SB@chstepthree%
@@ -2389,21 +2403,25 @@
   \ifnum\the\catcode\SB@cnt=\z@\else\SB@testtrue\fi%
   \SB@macrotests%
   \ifSB@test%
-    \SB@chespace\let\SB@donext\SB@chstep%
+    \SB@chespace\SB@chnxtstep%
   \else%
-    \let\SB@donext\SB@chdone%
+    \SB@chnxtdone%
   \fi%
 }
 \newcommand\SB@chstep[1]{%
   \SB@lyric\expandafter{\the\SB@lyric#1}%
   \SB@chscan%
 }
-\newcommand\SB@chsteptwo[2]{\SB@chmulti{#1#2}}
-\newcommand\SB@chstepthree[3]{\SB@chmulti{#1#2#3}}
-\newcommand\SB@chstepfour[4]{\SB@chmulti{#1#2#3#4}}
-\newcommand\SB@chmulti[1]{%
+\newcommand\SB@chsteptwo[2]{\SB@chmulti{#1#2}{\string#1\string#2}}
+\newcommand\SB@chstepthree[3]{%
+  \SB@chmulti{#1#2#3}{\string#1\string#2\string#3}%
+}
+\newcommand\SB@chstepfour[4]{%
+  \SB@chmulti{#1#2#3#4}{\string#1\string#2\string#3\string#4}%
+}
+\newcommand\SB@chmulti[2]{%
   \def\SB@next{#1}%
-  \let\SB@nextname\relax%
+  \edef\SB@nextname{#2}%
   \SB@testtrue\SB@multitests%
   \ifSB@test%
     \SB@lyric\expandafter{\the\SB@lyric#1}%
@@ -2416,13 +2434,15 @@
 \newcommand\SB@chhyph{%
   \ifx\SB@next-%
     \advance\SB@numhyps\@ne\relax%
-    \let\SB@donext\SB@chstep%
+    \SB@chnxtstep%
   \else%
-    \let\SB@donext\SB@chdone%
+    \SB@chnxtdone%
   \fi%
 }
-\newcommand\SB@chimpspace{\let\SB@donext\SB@chdone}
-\newcommand\SB@chexpspace{\let\SB@donext\SB@chdone}
+\newcommand\SB@chimpspace{}
+\let\SB@chimpspace\SB@chnxtdone
+\newcommand\SB@chexpspace{}
+\let\SB@chexpspace\SB@chnxtdone
 \newcommand\SB@chespace{}
 \newcommand\SB@chendspace{%
   \let\SB@chdone\SB@chlyrdone%
@@ -2439,12 +2459,12 @@
   \ifdim\wd\SB@lyricbox<\wd\SB@chordbox%
     \let\SB@chbstok= \SB@next%
     \def\SB@chexpspace{\let\SB@donext\SB@chgetspace}%
-    \def\SB@chimpspace{\let\SB@donext\SB@chstep}%
+    \let\SB@chimpspace\SB@chnxtstep%
     \let\SB@chespace\SB@chendspace%
     \let\SB@chdone\SB@chspcdone%
   \else%
-    \def\SB@chimpspace{\let\SB@donext\SB@chdone}%
-    \def\SB@chexpspace{\let\SB@donext\SB@chdone}%
+    \let\SB@chimpspace\SB@chnxtdone%
+    \let\SB@chexpspace\SB@chnxtdone%
   \fi%
 }
 \newcommand\SB@chgetspace{%
@@ -2454,9 +2474,9 @@
   \let\SB@next= }
 \newcommand\SB@chmbar{%
   \ifmeasures%
-    \let\SB@donext\SB@chdone%
+    \SB@chnxtdone%
   \else%
-    \SB@chespace\let\SB@donext\SB@chstep%
+    \SB@chespace\SB@chnxtstep%
   \fi%
 }
 \newcommand\SB@chbgroup[1]{%
@@ -2478,8 +2498,7 @@
   \fi%
 }
 \newcommand\SB@chegrpouter{%
-  \SB@testfalse%
-  \expandafter\SB@outertest\expandafter{\meaning\SB@next}%
+  \SB@outertest%
   \ifSB@test%
     \expandafter\SB@chegrpdone%
   \else%
@@ -2494,7 +2513,9 @@
 \newcommand\SB@chlig[5]{%
   \gdef\SB@ligpre{{#3}}%
   \gdef\SB@ligpost{\[#2]{#4}}%
-  \gdef\SB@ligfull{\[\SB@noreplay{\hphantom{{\lyricfont#3}}}#2]{#5}}%
+  \gdef\SB@ligfull{%
+    \[\SB@noreplay{\hphantom{{\lyricfont\relax#3}}}#2]{#5}%
+  }%
   \SB@chdone%
 }
 \newcommand\SB@mchlig[5]{%
@@ -2534,12 +2555,14 @@
 \newcommand\SB@emitchord{%
   \ifSB@inverse\else\ifSB@inchorus\else\SB@errchord\fi\fi%
   \SB@testfalse%
-  \ifcat\noexpand\SB@next\noexpand\@sptoken\SB@testtrue\fi%
+  \ifcat\noexpand\SB@next\@sptoken\SB@testtrue\fi%
   \ifcat\noexpand\SB@next.\SB@testtrue\fi%
   \ifx\SB@next\SB@par\SB@testtrue\fi%
   \ifx\SB@next\egroup\SB@testtrue\fi%
   \ifx\SB@next\endgroup\SB@testtrue\fi%
-  \SB@hyphtests%
+  {\csname%
+     SB@HT@\ifx\SB@nextname\relax\meaning\SB@next\else\SB@nextname\fi%
+   \endcsname}%
   \ifSB@test\SB@wordendstrue\else\SB@wordendsfalse\fi%
   \SB@dimen\wd\SB@chordbox%
   \ifvmode\leavevmode\fi%
@@ -2575,7 +2598,8 @@
         \advance\SB@dimen.5em%
         \hbox to\SB@dimen{\unhbox\SB@chordbox\hfil}%
         \hbox to\SB@dimen{%
-          \unhcopy\SB@lyricbox\hfil\char\hyphenchar\font\hfil%
+          \unhcopy\SB@lyricbox\hfil
+          \ifnum\hyphenchar\font>\m@ne\char\hyphenchar\font\hfil\fi%
         }%
         \global\SB@cnt\@m%
         \gdef\SB@temp{\expandafter\SB@clearlig\SB@ligpost}%
@@ -2651,6 +2675,15 @@
 \newcommand\SB@activehat{%
   \ifmmode^\else\expandafter\SB@rechord\fi%
 }
+\newcommand\SB@hat@tr{%
+  \ifmmode^\else\global\SB@nohatfalse\fi%
+}
+\newcommand\SB@hat@notr{%
+  \ifmmode^\else%
+    \SB@lop\SB@ctail\SB@toks%
+    \expandafter\transposehere\expandafter{\the\SB@toks}%
+  \fi%
+}
 \newcommand\SB@loadactives{}
 {
   \catcode`&\active
@@ -2668,12 +2701,12 @@
   }
 }
 \newif\ifSB@trackch
-\newtoks\SB@cr@
-\newtoks\SB@ctail
+\SB@newtoks\SB@cr@
+\SB@newtoks\SB@ctail
 \newcommand\SB@creg{}
 \newcommand\newchords[1]{%
   \@ifundefined{SB@cr@#1}{%
-    \expandafter\newtoks\csname SB@cr@#1\endcsname%
+    \expandafter\SB@newtoks\csname SB@cr@#1\endcsname%
     \global\csname SB@cr@#1\endcsname{\\}%
   }{\SB@errdup{#1}}%
 }
@@ -2772,7 +2805,7 @@
   \SB@atopfret{\sffamily\fontsize\@vipt\@vipt\selectfont#1}%
 }
 \newif\ifSB@gettabind\SB@gettabindfalse
-\newdimen\SB@tabindent
+\SB@newdimen\SB@tabindent
 \newcommand\SB@targfret{}
 \newcommand\SB@targstr{}
 \newcommand\SB@targfing{}
@@ -2946,6 +2979,23 @@
   \SB@songsenvfalse%
 }
 \newcounter{SB@songsnum}
+\newcommand\songtarget[2]{%
+  \ifnum\@ne=0\ifSB@pdf\ifx\pdfbookmark\undefined\else%
+                       \ifx\pdfbookmark\relax\else1\fi\fi\fi\relax%
+    \pdfbookmark[#1]{\thesongnum. \songtitle}{#2}%
+  \else\ifx\hypertarget\undefined%
+  \else\ifx\hypertarget\relax\else%
+    \hypertarget{#2}{\relax}%
+  \fi\fi\fi%
+}
+\newcommand\songlink{%
+  \ifnum\@ne=0\ifx\hyperlink\undefined\else%
+              \ifx\hyperlink\relax\else1\fi\fi\relax%
+    \expandafter\hyperlink%
+  \else%
+    \expandafter\@gobble%
+  \fi%
+}
 \newcommand\SB@indexlist{}
 \newcommand\SB@allindexes{}
 \let\SB@allindexes\@empty
@@ -2960,7 +3010,7 @@
   }%
   \if@filesw%
     \ifx\SB@out\relax%
-      \newwrite\SB@out%
+      \SB@newwrite\SB@out%
       \immediate\openout\SB@out=\jobname.sxc\relax%
     \fi%
     \immediate\write\SB@out{\noexpand\SB@iwrite{#3}{#2}}%
@@ -2974,8 +3024,31 @@
 \@onlypreamble\newauthorindex
 \newcommand\SB@cwrite[2]{%
   \ifx\SB@out\relax\else%
-    \protected@write\SB@out{}{\protect\SB@iwrite{#1}{#2}}%
-  \fi%
+    \protected@write\SB@out\SB@keepactive{\protect\SB@iwrite{#1}{#2}}%
+  \fi%
+}
+\newcommand\SB@keepactive{}
+{\catcode`\~\active
+ \catcode`\.12
+ \def\\#1#2{%
+   \endgroup
+   \SB@app\gdef\SB@keepactive{\def#1{#2}}%
+ }
+ \def\SB@temp#1#2{%
+   \SB@cnt#1\relax
+   \loop
+     \begingroup
+       \uccode`\~\SB@cnt
+       \uccode`\.\SB@cnt
+     \uppercase{\\~.}
+   \ifnum\SB@cnt<#2\relax
+     \advance\SB@cnt\@ne
+   \repeat
+ }
+ \SB@temp{1}{8}
+ \SB@temp{11}{11}
+ \SB@temp{14}{91}
+ \SB@temp{93}{255}
 }
 \newcommand\SB@iwrite[2]{%
   \def\SB@tempii{#1}%
@@ -2999,7 +3072,7 @@
   \fi%
 }
 \AtEndDocument{\SB@uncombine}
-\newbox\SB@songwrites
+\SB@newbox\SB@songwrites
 \newcommand\SB@addtoindex[2]{%
   \protected@edef\SB@tempii{#2}%
   \ifx\SB@tempii\@empty\else%
@@ -3056,12 +3129,14 @@
     {\expandafter\renewcommand\csname SB@idxref@#1\endcsname}%
 }
 \newcommand\SB@idxcmd[3]{%
-  \ifx\SB@out\relax\else%
+  \ifx\SB@allindexes\@empty%
+    \SB@warnnoidx%
+  \else\ifx\SB@out\relax\else%
     \@for\SB@temp:=\SB@allindexes\do{%
       \csname SB@idxsel@\SB@temp\endcsname%
         {\SB@@idxcmd{#1}}{\SB@@idxcmd{#2}}{\SB@@idxcmd{#3}}%
     }%
-  \fi%
+  \fi\fi%
 }
 \newcommand\SB@@idxcmd[1]{%
   \def\SB@tempii{#1}%
@@ -3076,15 +3151,14 @@
 \newcommand\authignoreword[1]{}
 \newcommand\titleprefixword[1]{}
 {\catcode`\%=12
- \gdef\authsepword#1{\SB@idxcmd{}{%sep #1}{}}
- \gdef\authbyword#1{\SB@idxcmd{}{%after #1}{}}
- \gdef\authignoreword#1{\SB@idxcmd{}{%ignore #1}{}}
+ \gdef\authsepword#1{\SB@idxcmd{}{}{%sep #1}}
+ \gdef\authbyword#1{\SB@idxcmd{}{}{%after #1}}
+ \gdef\authignoreword#1{\SB@idxcmd{}{}{%ignore #1}}
  \gdef\titleprefixword#1{\SB@idxcmd{%prefix #1}{}{}}}
 \@onlypreamble\authsepword
 \@onlypreamble\authbyword
 \@onlypreamble\authignoreword
 \@onlypreamble\titleprefixword
-\newbox\SB@idxtitlebox
 \newcommand\SB@idxlineskip[1]{%
   \vskip#1\p@\@plus#1\p@\@minus#1\p@%
 }
@@ -3207,7 +3281,7 @@
     \advance\SB@colwidth-#1\columnsep%
     \advance\SB@colwidth\columnsep%
     \divide\SB@colwidth#1%
-    \setbox\SB@idxtitlebox\vbox{%
+    \setbox\SB@envbox\vbox{%
       \let\SB@temp\songsection%
       \ifx\chapter\undefined\else%
         \ifx\chapter\relax\else%
@@ -3217,13 +3291,11 @@
       \SB@temp{#2}%
     }%
     \IfFileExists{\csname SB@idxfilename@#3\endcsname.sbx}{%
-      \ifx\hyperlink\undefined\let\hyperlink\@secondoftwo\fi%
-      \ifx\hyperlink\relax\let\hyperlink\@secondoftwo\fi%
       \ifsepindexes%
         \global\setbox\SB@box\vbox{%
           \null%
           \vfil%
-          \unvcopy\SB@idxtitlebox%
+          \unvcopy\SB@envbox%
           \vskip.5in\@minus.3in\relax%
           \hbox to\hsize{%
             \hfil%
@@ -3254,13 +3326,13 @@
       \ifsepindexes%
         \vbox to\textheight{%
           \vfil%
-          \unvbox\SB@idxtitlebox%
+          \unvbox\SB@envbox%
           \vskip1em\relax%
           \hbox to\hsize{\hfil[Index not yet generated.]\hfil}%
           \vskip\z@\@plus2fil\relax%
         }%
       \else%
-        \unvbox\SB@idxtitlebox%
+        \unvbox\SB@envbox%
         \hbox to\hsize{\hfil[Index not yet generated.]\hfil}%
       \fi%
     }%
@@ -3284,7 +3356,7 @@
     \advance\SB@cnt\m@ne%
   \repeat%
   \edef\SB@oneidxpage{\the\SB@toks}%
-  \unvbox\SB@idxtitlebox%
+  \unvbox\SB@envbox%
   \vskip.2in\relax%
   \nointerlineskip%
   \null%
@@ -3327,12 +3399,16 @@
   }%
 }
 \newcommand\SB@maketitleindex{%
-  \renewenvironment{SB@lgidx}[1]{
-    \hbox{\SB@colorbox\idxbgcolor{\vbox{%
-      \hbox to\idxheadwidth{{\idxheadfont\relax##1}\hfil}%
-    }}}%
-    \nobreak\vskip3\p@\@plus2\p@\@minus2\p@\nointerlineskip%
-  }{\penalty-50\vskip5\p@\@plus5\p@\@minus4\p@}%
+  \ifnum\idxheadwidth>\z@%
+    \renewenvironment{SB@lgidx}[1]{
+      \hbox{\SB@colorbox\idxbgcolor{\vbox{%
+        \hbox to\idxheadwidth{{\idxheadfont\relax##1}\hfil}%
+      }}}%
+      \nobreak\vskip3\p@\@plus2\p@\@minus2\p@\nointerlineskip%
+    }{\penalty-50\vskip5\p@\@plus5\p@\@minus4\p@}%
+  \else%
+    \renewenvironment{SB@lgidx}[1]{}{}%
+  \fi%
   \renewenvironment{SB@smidx}[1]{}{}%
   \renewcommand\idxentry[2]{%
     \SB@ellipspread{\idxtitlefont\relax\ignorespaces##1\unskip}%
@@ -3415,6 +3491,10 @@
   \SB@Warn{The \protect\repchoruses\space feature will not wor%
   k when the number of columns is set to zero}%
 }
+\newcommand\SB@warnnoidx{%
+  \SB@Warn{Index command has no effect since no indexes are ye%
+  t declared}%
+}
 \newcommand\SB@errboo{%
   \SB@Error{Encountered \protect\beginsong\space without seein%
   g an \protect\endsong\space for the previous song}%
@@ -3614,16 +3694,17 @@
 \newif\iftranscapos
 \newif\ifnolyrics
 \newif\ifrawtext
-\newif\ifpdfindex\pdfindextrue
 \newif\ifsongindexes\songindexestrue
 \newif\ifsepindexes\sepindexestrue
-\newif\ifSB@colorboxes\SB@colorboxestrue
+\newif\ifpagepreludes
+\newif\ifSB@colorboxes
+\IfFileExists{color.sty}\SB@colorboxestrue\SB@colorboxesfalse
 \newif\ifSB@omitscrip
 \newcommand\nolyrics{}
 \let\nolyrics\nolyricstrue
+\newcommand\pagepreludes{\pagepreludestrue\songpos0}
 \SB@chordson
 \ProcessOptions\relax
-\ifSB@pdf\else\pdfindexfalse\fi
 \ifSB@colorboxes
   \RequirePackage{color}
   \definecolor{SongbookShade}{gray}{.80}
@@ -3646,7 +3727,7 @@
   }}
 \fi
 \ifrawtext
-  \newwrite\SB@txtout
+  \SB@newwrite\SB@txtout
   \immediate\openout\SB@txtout=\jobname.txt
   \newif\ifSB@doEOL
   {\catcode`\^^M12 %