patacrep/tex/crepbook.cls

% CREPBOOK DOCUMENT CLASS -- version 0.2.2
% for LaTeX2e
%
\NeedsTeXFormat{LaTeX2e}[1995/12/01]
\ProvidesClass{crepbook}[2012/02/19 v0.5.0 LaTeX document class for Crep
  Books]

\makeatletter\def\input@path{{tex/}}

\newif{\iftabs}
\newif{\iflilypond}
\newif{\ifnodiagram}
\newif{\ifimportantdiagramonly}
\newif{\ifpictures}
\newif{\ifnorepeatchords}
\newif{\ifrepeatchords}
\newif{\ifukulele}
\newif{\ifguitar}
\newif{\ifonesongperpage}

\tabsfalse
\lilypondfalse
\nodiagramtrue
\picturesfalse
\importantdiagramonlyfalse
\norepeatchordstrue
\ukulelefalse
\guitarfalse
\onesongperpagefalse

% Options
\DeclareOption{tabs}{\tabstrue}
\DeclareOption{notabs}{\tabsfalse}
\DeclareOption{lilypond}{\lilypondtrue}
\DeclareOption{nolilypond}{\lilypondfalse}
\DeclareOption{nodiagram}{\nodiagramtrue}
\DeclareOption{diagram}{\nodiagramfalse}
\DeclareOption{importantdiagramonly}{\importantdiagramonlytrue\nodiagramfalse}
\DeclareOption{pictures}{\picturestrue}
\DeclareOption{nopictures}{\picturesfalse}
\DeclareOption{norepeatchords}{\norepeatchordstrue}
\DeclareOption{repeatchords}{\norepeatchordsfalse}
\DeclareOption{ukulele}{\ukuleletrue}
\DeclareOption{noukulele}{\ukulelefalse}
\DeclareOption{guitar}{\guitartrue}
\DeclareOption{noguitar}{\guitarfalse}
\DeclareOption{onesongperpage}{\onesongperpagetrue}

\DeclareOption{10pt}{\PassOptionsToClass{\CurrentOption}{article}}
\DeclareOption{11pt}{\PassOptionsToClass{\CurrentOption}{article}}
\DeclareOption{12pt}{\PassOptionsToClass{\CurrentOption}{article}}

% Default options : pass to the songs package
\DeclareOption*{\PassOptionsToPackage{\CurrentOption}{songs}}
\ProcessOptions

% Base class
\LoadClass{article}

% Main packages
\RequirePackage{graphicx,xcolor}
\RequirePackage{songs}
\RequirePackage{fancybox}
\definecolor{tango-green-3}{HTML}{4e9a06}
\definecolor{tango-blue-3}{HTML}{204a87}
\RequirePackage[bookmarks,
  bookmarksopen,
  hyperfigures=true,
  colorlinks=true,
  linkcolor=tango-green-3,
  urlcolor=tango-blue-3]{hyperref}
\RequirePackage{tikz}
\RequirePackage{licence}
\RequirePackage{xstring}
\RequirePackage{ifthen}
\RequirePackage{framed}
\RequirePackage{currfile}

\iflyric%
  \tabsfalse%
  \lilypondfalse%
  \nodiagramtrue%
  \picturesfalse%
  \renewcommand{\colbotglue}{0pt plus .5\textheight minus 0pt}%
\fi

% Start
\def\andname{and}
\def\lastandname{\unskip, and}

\newcounter{@inst}
\newcounter{@auth}
\newcounter{auco}

\def\clearheadinfo{
  \gdef\@author{No Author Given}%
  \gdef\@title{No Title Given}%
  \gdef\@subtitle{}
  \gdef\@version{}
  \gdef\@web{}
  \gdef\@mail{}
  \gdef\@email{}
  \gdef\@picture{}
  \gdef\@picturecopyright{}
}

\def\subtitle#1{\gdef\@subtitle{#1}}
\def\version#1{\gdef\@version{#1}}
\def\web#1{\gdef\@web{#1}}
\def\mail#1{\gdef\@mail{#1}}
\def\email#1{\gdef\@email{#1}}
\def\licence#1{\gdef\@licence{#1}}
\def\picture#1{\gdef\@picture{#1}}
\def\picturecopyright#1{\gdef\@picturecopyright{#1}}
\def\footer#1{\gdef\@footer{#1}}
\def\lang#1{\gdef\@lang{#1}}
\clearheadinfo

\newcommand{\l@belVersion}{
  \IfStrEq{\@lang}{english}{\bf version:}{}
  \IfStrEq{\@lang}{french}{\bf version :}{}
}
\newcommand{\l@belDate}{
  \IfStrEq{\@lang}{english}{\bf date:}{}
  \IfStrEq{\@lang}{french}{\bf date :}{}
}
\newcommand{\l@belAuthor}{
  \IfStrEq{\@lang}{english}{\bf authors:}{}
  \IfStrEq{\@lang}{french}{\bf auteurs :}{}
}
\newcommand{\l@belWeb}{
  \IfStrEq{\@lang}{english}{\bf web:}{}
  \IfStrEq{\@lang}{french}{\bf web :}{}
}
\newcommand{\l@belMail}{
  \IfStrEq{\@lang}{english}{\bf mail:}{}
  \IfStrEq{\@lang}{french}{\bf mail :}{}
}

\renewcommand\maketitle{
  \@maketitle

  \thispagestyle{empty}

  \clearheadinfo}
%
\def\@maketitle{\newpage
 \markboth{}{}%
 \def\lastand{\ifnum\value{@inst}=2\relax
                 \unskip{} \andname\
              \else
                 \unskip \lastandname\
              \fi}%
 \def\and{\stepcounter{@auth}\relax
          \ifnum\value{@auth}=\value{@inst}%
             \lastand
          \else
             \unskip,
          \fi}%
 \begin{center}%
   {\rule{\textwidth}{1mm}}

   {\Huge \bfseries\boldmath\@title \par}
       
   \if!\@subtitle!\else {\begin{flushright}\large \bfseries\boldmath
       \@subtitle \par \end{flushright}}
   \fi
   
   {\rule{\textwidth}{1mm}}

 \end{center}%

 \vspace{1.5cm}

 \begin{flushleft}
   \begin{tabular}{l l}
     \if!\@version!\else{\l@belVersion} & \@version \\ \fi
     \if!\@date!\else{\l@belDate} &   \@date \\ \fi
     \if!\@author!\else{\l@belAuthor} & \@author \\ \fi
     \if!\@web!\else{\l@belWeb} &  \url{\@web} \\ \fi
     \if!\@mail!\else{\l@belMail} &  \url{\@mail} \\ \fi
   \end{tabular}
 \end{flushleft}

 \vspace{1.5cm}

 \begin{center}
   \includegraphics[keepaspectratio=true, width=14cm, height=14cm]{\@picture}
   \begin{flushright}
   {\flushright \small \@picturecopyright}
   \end{flushright}
 \end{center}

 \@footer

 \thispagestyle{empty}
}

\makeatletter

\newlength{\coverheight}
\setlength{\coverheight}{2cm}
\newlength{\coverspace}
\setlength{\coverspace}{0.1cm}
\newcommand{\songcover}{}
\newcommand{\songalbum}{}
\newsongkey{cover}{\let\songcover\@empty}{\def\songcover{\currfiledir#1}}
\newsongkey{album}{\let\songalbum\@empty}{\def\songalbum{#1}}
\newsongkey{url}{\let\songurl\@empty}{\def\songurl{#1}}
\newsongkey{original}{\let\songoriginal\@empty}{\def\songoriginal{#1}}
\newcommand\cover{%
  \ifpictures%
    \ifx\songcover\@empty\else%
      \mbox{%
        \includegraphics[width=\coverheight]{\songcover}%
        \hspace{\coverspace}%
      }%
    \fi%
  \fi%
}

% display album in song header
\renewcommand{\extendprelude}{
  {\bfseries\showauthors}
  {\footnotesize\it\songalbum}
  \IfStrEq{\songurl}{}{}{
    \href{\songurl}{\includegraphics[width=.3cm]{internet}}
  }
}
\renewcommand{\extendpostlude}{
  {\footnotesize%
    \IfStrEq{\songoriginal}{}{}{
      \IfStrEq{\@lang}{english}{Original song:}{Chanson originale :}
      \songoriginal
    }
  }
}

\newlength{\capoheight}
\setlength{\capoheight}{1.5cm}
\renewcommand\capo[1]{%
  \ifchorded%
    \iftranscapos%
    \transpose{#1}%
    \else%
      \ifpictures
        \mbox{%
          \includegraphics[height=\capoheight]{capodastre}%
          \put(-22,8){\Large #1}
        }%
      \else
        \musicnote{capo: #1}%
      \fi
    \hspace{\coverspace}%
    \fi%
  \fi%
}%

\let\utab\gtab
\let\utab@Original\utab
\newcommand{\utab@Hidden}[2]{}%

\let\gtab@Original\gtab
\newcommand{\gtab@Hidden}[2]{}%

\ifnodiagram%
\renewcommand{\gtab}{\@ifstar
  \gtab@Hidden%
  \gtab@Hidden%
}
\renewcommand{\utab}{\@ifstar
  \utab@Hidden%
  \utab@Hidden%
}
\else%
\ifimportantdiagramonly%
\renewcommand{\gtab}{\@ifstar
  \gtab@Original%
  \gtab@Hidden%
}
\renewcommand{\utab}{\@ifstar
  \utab@Original%
  \utab@Hidden%
}
\else%
\renewcommand{\gtab}{\@ifstar
  \gtab@Original%
  \gtab@Original%
}
\renewcommand{\utab}{\@ifstar
  \utab@Original%
  \utab@Original%
}
\fi%
\fi%

\ifguitar%
\else
\renewcommand{\gtab}{\@ifstar
  \gtab@Hidden%
  \gtab@Hidden%
}
\fi%

\ifukulele%
\else
\renewcommand{\utab}{\@ifstar
  \utab@Hidden%
  \utab@Hidden%
}
\fi%

\newcommand{\lilypond}[1]{%
  \iflilypond%
  \includegraphics{#1}%
  \fi%
}

\newcommand{\image}[2][]{%
  \ifpictures%
  \begin{flushright}%
    \includegraphics[#1]{#2}%
  \end{flushright}%
  \fi%
}

% Configuration of the songs package
\titleprefixword{}
\renewcommand{\stitlefont}{\LARGE\bf}
\renewcommand{\printchord}[1]{\small{\it#1}}
\renewcommand{\chorusfont}{\it}
\renewcommand{\showauthors}{%
  \hbox{\normalsize\songauthors}%
}
\renewcommand{\idxtitlefont}{\sffamily\bfseries}
\renewcommand{\idxauthfont}{\sffamily\bfseries}
\renewcommand{\idxheadfont}{\sffamily\it\LARGE}
\renewcommand{\idxrefsfont}{\bfseries}

% Paragraph indentation space
\setlength{\parindent}{0.3cm}

%
% songs class options
%
% Horizontal space reserved to verse number
\setlength{\versenumwidth}{1em}
% Modifier to the space between consecutive lines of lyrics
\baselineadj=-6pt plus 0pt minus 2pt
% Space between verses and chorus
\versesep=6pt plus 2pt minus 2pt
% lyrics font
\renewcommand{\lyricfont}{\normalfont\normalsize}


% color used to shade song numbers.
\definecolor{SongbookShade}{HTML}{d1e4ae}

%
\iftabs%
%% Code from tabs.sty
% Counters
\newcounter{tab-string}
\newcounter{tab-tempo}
\newcounter{tab-line}
% Length
\newlength{\tablen}
% Variables
\def\chordtuning{E,A,D,G,B,e}
\def\xunit{0.35}
\def\yunit{0.2}
% The tab environmant
% \begin{tab}
\newenvironment{tab}
{
  \normalsize
  \setcounter{tab-line}{0}
  \setcounter{tab-tempo}{0}

  \setlength{\tablen}{\xunit cm}

  % A single note
  % \single <string> <fret>
  \newcommand{\single}[2]{
    % draw tuning if we are at the beginining of a new tab line
    \ifnum\value{tab-tempo}=0
     \setcounter{tab-string}{6}
     \foreach \tuning in \chordtuning
     {
       \node at (-1,\value{tab-line}+\value{tab-string}) {\tuning};
       \addtocounter{tab-string}{-1}
     }
    \fi

    % draw the 6 strings
    \foreach \string in {1,...,6}
    {
      \draw[xshift=-0.5cm] (\value{tab-tempo},\value{tab-line}+\string) -- +(1,0);
    }
    \draw node[single] at (\value{tab-tempo},\value{tab-line}+##1) {##2};
    \addtocounter{tab-tempo}{1}
    \addtolength{\tablen}{\xunit cm}
    \ifnum\hsize<\tablen
      \addtocounter{tab-line}{8}
      \setlength{\tablen}{\xunit cm}
      \setcounter{tab-tempo}{0}
      \end{tikzpicture}
      \begin{tikzpicture}[
        single/.style={},
        cm={\xunit,0,0,-\yunit,(0,0)}
      ]
    \fi
  }
  % A mesure bar
  % \bar
  \renewcommand{\bar}{
    \draw[xshift=-0.5cm] (\value{tab-tempo},\value{tab-line}+1) --+(0,5);
  }
  
  \hspace{-\parindent}
  \begin{tikzpicture}[
    single/.style={},
    cm={\xunit,0,0,-\yunit,(0,0)}
  ]

  % draw the first bar
  \draw[xshift=-0.5cm] (0,1) --+(0,5);
}
{
  \end{tikzpicture}
}
\else%
\newenvironment{tab}{%
  \newcommand{\single}[2]{}%
  \renewcommand{\bar}{}%
}{}%
\fi%
%% End of tabs.sty file

\newcommand*{\Intro}{%
  \IfStrEq{\@lang}{english}{intro}{}%
  \IfStrEq{\@lang}{french}{intro}{}%
}%
\newcommand*{\Outro}{%
  \IfStrEq{\@lang}{english}{outro}{}%
  \IfStrEq{\@lang}{french}{outro}{}%
}%
\newcommand*{\Bridge}{%
  \IfStrEq{\@lang}{english}{bridge}{}%
  \IfStrEq{\@lang}{french}{pont}{}%
}%
\newcommand*{\Chorus}{%
  \IfStrEq{\@lang}{english}{chorus}{}%
  \IfStrEq{\@lang}{french}{refrain}{}%
}%
\newcommand*{\Verse}{%
  \IfStrEq{\@lang}{english}{verse}{}%
  \IfStrEq{\@lang}{french}{couplet}{}%
}%
\newcommand*{\Solo}{%
  \IfStrEq{\@lang}{english}{solo}{}%
  \IfStrEq{\@lang}{french}{solo}{}%
}%
\newcommand*{\Pattern}{%
  \IfStrEq{\@lang}{english}{pattern}{}%
  \IfStrEq{\@lang}{french}{motif}{}%
}%
\newcommand*{\Rythm}{%
  \IfStrEq{\@lang}{english}{rythm}{}%
  \IfStrEq{\@lang}{french}{rythme}{}%
}%
\newcommand*{\Adlib}{%
  \emph{ad~lib.}%
}%

\let\musicnoteORIG\musicnote
\renewcommand{\musicnote}[2][]{%
  \vspace{.1cm}
  \IfStrEq{}{#1}{\musicnoteORIG{#2}}{
    \IfStrEq{\@lang}{#1}{\musicnoteORIG{#2}}{}
  }
}

\let\textnoteORIG\textnote
\renewcommand{\textnote}[2][]{%
  \vspace{.1cm}
  \IfStrEq{}{#1}{\textnoteORIG{#2}}{
    \IfStrEq{\@lang}{#1}{\textnoteORIG{#2}}{}
  }
}

\renewcommand{\FrameCommand}[1]{
  \begin{tikzpicture}
    \node[rectangle] (rect) {
      \begin{minipage}{.8\textwidth}
        #1
      \end{minipage}
    };
    \draw[very thick, dashed] (rect.north west) -- (rect.south west);
  \end{tikzpicture}
}

\newenvironment{bridge}{%
  \begin{framed}
    \vspace{-.4cm}
    \begin{verse*}
}{
    \end{verse*}
    \vspace{-.2cm}
  \end{framed}
}

%% \SB@chordsoff with a greater for the line spacing
\newcommand{\CB@chordshidden}{%
  \def\SB@bracket##1]{\ignorespaces}%
  \let\SB@rechord\relax%
  \let\SB@ch\SB@ch@off%
  \ifSB@measurespec%
    \ifmeasures\SB@measureson\else\SB@measuresoff\fi%
  \else%
    \SB@measuresoff%
  \fi%
  \ifSB@preamble\let\colbotglue{\z@\@plus.5\textheight}\fi%
  \SB@setbaselineskip%
}

\newenvironment{repeatedchords}{%
  \ifnorepeatchords%
    \CB@chordshidden%
  \fi
}{}%

\ifonesongperpage%
  \renewcommand\songcolumns[1]{%
    \SB@cnt#1\relax%
    \ifSB@preamble\else{\SB@clearpage}\fi%
    \SB@numcols\SB@cnt%
    \ifnum\SB@numcols>\z@%
      \SB@colwidth-\columnsep%
      \multiply\SB@colwidth\SB@numcols%
      \advance\SB@colwidth\columnsep%
      \advance\SB@colwidth\textwidth%
      \divide\SB@colwidth\SB@numcols%
    \else%
      \ifrepchorus\SB@warnrc\fi%
    \fi%
  }
\fi

\def\removefirstch@r#1{}
\newcommand{\transposition}[1]{%
  \ifnorepeatchords%
    \musicnote{%
      \IfStrEq{\@lang}{english}{transposition:~}{}%
      \IfStrEq{\@lang}{french}{transposition~:~}{}%
      \ifthenelse{#1>0}{#1$\Uparrow$}{\removefirstch@r#1$\Downarrow$}%
    }%
  \else%
    \transpose{#1}
  \fi%
}%

\makeatother