macros.tex

\newcommand{\songTitle}[1]{
  {\Huge\sffamily\bfseries\MakeUppercase{#1}}
}

\newcommand{\songAuthor}[1]{
  {\LARGE\sffamily\slshape #1}
}

\newenvironment{song}[3]{
  \clearpage
  \centering
  \phantomsection\addcontentsline{toc}{section}{\noindent{#1}}%
  \songTitle{#1}\\[8pt]
  \songAuthor{#2}\\
  \begin{guitar}
  \leftskip=#3
  \Large
}{
  \end{guitar}
}

\newcommand\capo[1]{%
  \sbox{\mybox}{\slshape Capo #1}%
  \vskip-40pt\hfill\usebox{\mybox}}

\newcommand\bFont{\LARGE\bfseries}

\renewcommand{\verse}[1]{%
  \sbox{\mybox}{\LARGE\bfseries #1.}%
  \hskip -\wd\mybox%
  \hskip -5pt%
  \usebox{\mybox}%
  \hskip 5pt%
}

\newsavebox\mybox

\newcommand{\chorus}{%
  \sbox{\mybox}{\LARGE\bfseries R:}%
  \hskip -\wd\mybox%
  \hskip -5pt%
  \usebox{\mybox}%
  \hskip 5pt%
}

\newcommand{\nchorus}[1]{%
  \sbox{\mybox}{\LARGE\bfseries R#1:}%
  \hskip -\wd\mybox%
  \hskip -5pt%
  \usebox{\mybox}%
  \hskip 5pt%
}

\newcommand{\rec}[1]{%
  \sbox{\mybox}{\LARGE\bfseries\itshape Rec.}%
  \hskip -\wd\mybox%
  \hskip -5pt%
  \usebox{\mybox}%
  \hskip 5pt%
  {\itshape #1}
}

% Right repetition
\newcommand{\rl}{%
  \raisebox{-.4ex}{\rule{.3ex}{2.5ex}\,\rule{.1ex}{2.5ex}}%
  \raisebox{.2ex}{:}\hskip 3pt}
  
% Left repetition with optional \times
\newcommand{\rr}[1]{%
  \hskip 3pt\raisebox{.2ex}{:}%
  \raisebox{-.4ex}{\rule{.1ex}{2.5ex}\,\rule{.3ex}{2.5ex}}%
  \ifthenelse{\isempty{#1}}{}{\ #1$\times$}}

\newcommand{\rep}[1]{#1$\times$}

\newcommand{\repchor}{{\Large\bfseries R:}}

% Set chords font
\renewcommand{\guitarPreAccord}{\sffamily\bfseries\Large}

% Customize end of line behavior
\renewcommand\guitarEndLine{\par\leavevmode\setstretch{1}}
\renewcommand\guitarEndPar{\par\setstretch{1}\bigskip\leavevmode}
\renewcommand\guitarEndDoublePar{\par\setstretch{1}\bigskip\leavevmode}


\makeatletter

% Hack: word stretching with a dash
\def\myrulefill{\hskip 1pt\xrfill[.5ex]{.4pt}\hskip 1pt}
\renewcommand\guitarPutMerge{\gtr@distMerge\myrulefill}

% Hack: set line spacing when there are chords and set how much the chords are raised
\def\setChordsLineStretch{\setstretch{1.75}}
\def\setRaiseHeigth{13pt}
\renewcommand\guitarPut[1]{\setChordsLineStretch\setbox0\hbox{\strut#1}\leavevmode
  \raise\setRaiseHeigth\hbox to 0pt{\hbox to\wd0{\guitarPreAccord
    \hfill\guitarAccord\hfill\hss}\hss}#1}
\renewcommand\guitarPutOnSpace{\setChordsLineStretch\leavevmode\raise\setRaiseHeigth
  \hbox{\guitarPreAccord\guitarAccord}}
\renewcommand\gtr@distMerge[2]{\setChordsLineStretch\setbox\guitarBox\hbox{\strut#2}%
  \setbox0\hbox{\guitarPreAccord\guitarAccord}\leavevmode
  \guitarDim=\wd0\relax\guitarCalcDim
  \ifdim\wd\guitarBox<\guitarDim% Accord is too large:
    \hbox to 0pt{\raise\setRaiseHeigth\hbox{\copy0}\hss}%
    \hbox to\guitarDim{\box\guitarBox#1}%
    \let\guitarAccord\toolboxEmpty%now used as a temporary variable.
  \else
    \hbox to 0pt{\raise\setRaiseHeigth
      \hbox to\wd\guitarBox{\hfil\box0\hfil}\hss}%
    \def\guitarAccord{#2}%
  \fi\guitarAccord}

% Hack: makes \leftskip work in guitar environment
\renewcommand\guitarCrOnHook{\begingroup
  \parindent 0pt\leavevmode\nobreak\hskip-\leftskip\relax
  \finalhyphendemerits=0\everypar{\nobreak}\sloppy\relax
  \linepenalty=50\relax\parskip0pt\relax}

\makeatother