diff options
18 files changed, 4042 insertions, 2 deletions
diff --git a/Master/texmf-dist/doc/latex/leadsheets/README b/Master/texmf-dist/doc/latex/leadsheets/README new file mode 100644 index 00000000000..458f562b3e8 --- /dev/null +++ b/Master/texmf-dist/doc/latex/leadsheets/README @@ -0,0 +1,43 @@ +-------------------------------------------------------------------------- +the LEADSHEETS package v0.1 2015/01/11 + + typesetting leadsheets and songbooks + +-------------------------------------------------------------------------- +Clemens Niederberger +Web: https://github.com/cgnieder/leadsheets/ +E-Mail: contact@mychemistry.eu +-------------------------------------------------------------------------- +Copyright 2014-2015 Clemens Niederberger + +This work may be distributed and/or modified under the +conditions of the LaTeX Project Public License, either version 1.3 +of this license or (at your option) any later version. +The latest version of this license is in + http://www.latex-project.org/lppl.txt +and version 1.3 or later is part of all distributions of LaTeX +version 2005/12/01 or later. + +This work has the LPPL maintenance status `maintained'. + +The Current Maintainer of this work is Clemens Niederberger. +-------------------------------------------------------------------------- +The leadsheets bundle consists of the following files + - leadsheets.sty + - libraries -- they all follow the naming scheme + leadsheets.library.<name>.code.tex: + * chordnames + * chords + * musejazz + * musicsymbols + * properties + * songs + * templates + * translations + * transposing + - leadsheets_en.tex + - leadsheets_en.pdf +-------------------------------------------------------------------------- +If you have any ideas, questions, suggestions or bugs to report, please +feel free to contact me. +-------------------------------------------------------------------------- diff --git a/Master/texmf-dist/doc/latex/leadsheets/leadsheets_en.pdf b/Master/texmf-dist/doc/latex/leadsheets/leadsheets_en.pdf Binary files differnew file mode 100644 index 00000000000..69af371ca47 --- /dev/null +++ b/Master/texmf-dist/doc/latex/leadsheets/leadsheets_en.pdf diff --git a/Master/texmf-dist/doc/latex/leadsheets/leadsheets_en.tex b/Master/texmf-dist/doc/latex/leadsheets/leadsheets_en.tex new file mode 100644 index 00000000000..118320aa61e --- /dev/null +++ b/Master/texmf-dist/doc/latex/leadsheets/leadsheets_en.tex @@ -0,0 +1,1897 @@ +% !arara: pdflatex: { shell: on } +% !arara: biber +% arara: pdflatex +% arara: pdflatex +\documentclass[load-preamble+]{cnltx-doc} +\usepackage{leadsheets} +\setcnltx{ + package = leadsheets , + info = Typesetting leadsheets and songbooks , + authors = Clemens Niederberger , + email = contact@mychemistry.eu , + url = https://github.com/cgnieder/leadsheets/ , + add-cmds = { + chord , chordname , + definesongtitletemplate , + defineversetypetemplate , + expandcode , + ifobeylines , + ifsongmeasuring , + ifsongpropertiesequal , + ifsongproperty , + ifversenamed , + ifversenumbered , + ifversestarred , + newversetype , + printsongpropertylist , + setchordnames , + setleadsheets , + songproperty , + useleadsheetslibraries , + useleadsheetslibrary , + verseafterlabel , + verselabel , + verselabelformat , + versename , + versenumber , + writechord + } , + add-silent-cmds = { + @itemdepth , + endmdframed , + mdframed , + newfontfamily, + musejazz + } , + add-envs = { + arraybackslash , + bridge , + chorus , chorus* , + flushleft , + flushright , + info , + interlude , + intro , intro* , + outro , outro * + solo , solo* , + song , + verse + } , + index-setup = { othercode=\footnotesize, level=\section , noclearpage } , + makeindex-setup = { columns=3, columnsep=1em } +} + +\defbibheading{bibliography}{\section{References}} +\addbibresource{\jobname.bib} + +\usepackage{filecontents} +\begin{filecontents}{\jobname.bib} +@book{book:realbook, + author = {Various} , + title = {The Real Book} , + volume = {I} , + subtitle = {C Edition} , + publisher = {Hal Leonard Publishing Corporation} , + isbn = {978-0634060380} , + date = {2000-01-01} , + edition = {6th edition} +} +@book{book:newrealbook, + author = {Various} , + title = {The New Real Book} , + volume = {I} , + subtitle = {C Edition} , + publisher = {Ama Verlag} , + isbn = {978-0961470142} , + date = {2009-02-12} , + edition = {1st edition} +} +\end{filecontents} + +\usepackage{booktabs} + +\newidxcmd\library{\code{#1}}[ (library)] +\AtEndPreamble{% + \pdfstringdefDisableCommands{% + \def\library*#1{``#1''}% + }% +} +\newrobustcmd*\musicsymbols{\library{musicsymbols}} +\newrobustcmd*\chordnames{\library{chordnames}} +\newrobustcmd*\musejazz{\library{musejazz}} + +\setchordnames{format=\libertineLF} + +\makeatletter +\colorlet{property}{cnltxgreen} +\newenvironment{properties} + {% + \def\prop{\@cnltx@option@item\propval}% + \cnltxlist + } + {\endcnltxlist} + +\newrobustcmd*\propval{\@ifstar{\cnltx@prop@star}{\cnltx@prop@nostar}} + +\newrobustcmd*\cnltx@prop@star{% + \cnltx@ifdash + {\cnltx@prop@aux*\meta} + {\cnltx@prop@aux*\marg}% +} +\newrobustcmd*\cnltx@prop@nostar{% + \cnltx@ifdash + {\cnltx@prop@aux{}\meta} + {\cnltx@prop@aux{}\marg}% +} +\newcommand*\cnltx@prop@aux[4]{% + \code{\property#1{#3}\cnltx@isvalue#2{#4}}% +} +\makeatother + +\newidxcmd\property{\code{\textcolor{property}{#1}}} + +\newrobustcmd*\symarg[1]{\textcolor{argument}{\code{#1}}} + +\newidxcmd\titletemplate{\textit{\sffamily#1}}[\ (songtitle template)] +\newidxcmd\versetemplate{\textit{\sffamily#1}}[\ (verse-type template)] +\newidxcmd\shortcut{\code{#1}}[ (shortcut)] +\newidxcmd\pkgopt{\code{#1}}[ (package option)] +\newnote*\packageoption[1]{Package option: \pkgopt{#1}} + +\newrobustcmd*\barsymbol{|} + +\AfterPackage{hyperref}{% +\pdfstringdefDisableCommands{% + \def\property#1{#1}% +}} + +\renewcommand*\dictumauthorformat[1]{#1} +\renewcommand*\raggeddictumtext{} + +\begin{document} + +\part{About the Package} +\dictum[Tom Waits]{% + I like beautiful melodies telling me terrible things.% +} + +\section{License and Requirements} + +\license + +\leadsheets{} requires the bundles \bnd{l3kernel}~\cite{bnd:l3kernel} and +\bnd{l3packages}~\cite{bnd:l3packages} to be available. It also needs the +package \pkg{translations}~\cite{pkg:translations}. + +\section{Background} + +Over the years I repeatedly wanted to typeset simple leadsheets of songs, \ie, +song lyrics and the corresponding chords\footnote{I also have had the need (or + let's say: wish) to typeset leadsheets in the style of the + \citetitle{book:realbook} -- but this is a task where other software than + \LaTeX{} usually is far easier.}. This is not too hard with standard +\LaTeX{} commands and environments but it is not very convenient\ldots{} so +looking for existing packages is the logical next step and I found two very +promising packages: \pkg{songs}~\cite{pkg:songs} and +\pkg{songbook}~\cite{pkg:songbook}. However, both were note \emph{quite} what +I wanted. Just a bit too inflexible in the wrong places, needing tweaking +here and there, and so on. On the other hand I had quite some code lying on +my hard drive with various attempts of typesetting leadsheets. This package +is now the attempt to have a clean, documented and customisable version of my +code\footnote{Plus new things!}. + +\section{The Structure of the Package} +\leadsheets{} is a modular package and consists of several +libraries\footnote{This did seem like a good idea for maintenance when I first + came up with it. Now I'm not so sure any more but I am way too lazy to + change it back. So here we are\ldots}. If you just say +\begin{sourcecode} + \usepackage{leadsheets} +\end{sourcecode} +then the \library{songs} library is loaded\footnote{Which currently means that + \emph{all} libraries are loaded as the \library{songs} library needs them.}. +If you want to ensure that \emph{every} library is loaded\packageoption{full} +so you don't have to think about it any more you can use +\begin{sourcecode} + \usepackage[full]{leadsheets} +\end{sourcecode} +If you instead use\packageoption{minimal} +\begin{sourcecode} + \usepackage[minimal]{leadsheets} +\end{sourcecode} +then \emph{no} libraries are loaded. In this case you have to load the +libraries yourself in order to use the package. +\begin{commands} + \command{useleadsheetslibraries}[\marg{comma list of libraries}] + With this command one or several of \leadsheets' libraries can be loaded. + \command{useleadsheetslibrary}[\marg{library}] + With this command one of \leadsheets' libraries can be loaded. +\end{commands} +The libraries are divided into two parts: libraries to be loaded by users and +auxiliary libraries loaded by other libraries but not to be loaded directly by +users. + +The user-libraries are the following ones: +\begin{description} + \item[\library{musicsymbols}] \packageoption{musicsymbols}This library makes + the music symbol font provided by MusiX\TeX{} available as text font. It + is described in part~\ref{part:musicsymbols-library}. + \item[\library{chordnames}] \packageoption{chordnames}This library defines a + few macros for typesetting of chord symbols. It is described in + part~\ref{part:chordnames-library}. It also loads the + \library{musicsymbols}library. + \item[\library{musejazz}] \packageoption{musejazz}extends the \chordnames\ + library to use MuseScore's \enquote{MuseJazz} font, see + section~\ref{sec:musejazz-libr}. It loads the \library{chordnames} + library. + \item[\library{songs}] \packageoption{songs}This is the main library. It + defines everything necessary for the typesetting of the leadsheets. It + currently loads \emph{all other libraries}, \ie, user libraries \emph{and} + internal libraries. This library is described in + part~\ref{part:leadsheets-library}. +\end{description} +Those libraries can also be loaded as a package option. If you say +\begin{sourcecode} + \usepackage[musicsymbols]{leadsheets} +\end{sourcecode} +then \emph{only} the \library{musicsymbols} library is loaded. Saying +\begin{sourcecode} + \usepackage[songs]{leadsheets} +\end{sourcecode} +is the same as using the package \emph{without} any options. ``Without any'' +also means that neither \library{musicsymbols}, \library{chordnames} nor +\library{songs} has been given as class option! + +There is also a number of auxiliary libraries which are all needed by +the \library{songs} library. The libraries are usually not described in +sections of their own but as part of the \library{songs} library. However, +the following list gives hints to where some of the concepts are explained: +\begin{description} + \item[\library{properties}] This is an auxiliary library not meant to be + loaded directly by users. It defines the necessary macros for song + properties. See section~\ref{sec:song-properties} for more details on the + concept. + \item[\library{transposing}] This is an auxiliary library not meant to be + loaded directly by users. It defines a transposing mechanism for chord + symbols. See section~\ref{sec:transposing} for further details. + \item[\library{chords}] This is an auxiliary library not meant to be loaded + directly by users. It defines the necessary macros for printing the + chords in songs as well as the mechanism of remembering and recalling + chord sequences of verses. + \item[\library{templates}] This is an auxiliary library not meant to be + loaded directly by users. It defines the necessary macros for + \leadsheets' template mechanism. See section~\ref{sec:templates} for + details on the concept. + \item[\library{translations}] This is an auxiliary library not meant to be + loaded directly by users. It provides a few translations for a number of + printed strings. See section~\ref{sec:internationalization} for more + information. +\end{description} + +\part{The \library*{musicsymbols} Library}\label{part:musicsymbols-library} +\dictum[Victor Hugo]{% + Music expresses that which cannot be said and on which it is impossible to + be silent.% +} +\vspace*{\baselineskip}\csname @afterheading\endcsname + +The \musicsymbols{} library is a very small library that makes the music +symbol font provided by MusiX\TeX{} available as text font and then uses it to +define a number of symbols. This redefines the macros \cs{sharp}, \cs{flat} +and \cs{natural}. All defined symbols are listed in +table~\ref{tab:musicsymbols}. + +If you want to use the library standalone then you can say: +\begin{sourcecode} + \usepackage[minimal]{leadsheets} + \useleadsheetslibraries{musicsymbols} +\end{sourcecode} + +\musicsymbols{} defines three further commands, namely \cs{musix}, +\cs{textmusix} -- a font switch and a text font command -- and +\cs{musicsymbol}. Those commands are meant for internal use only which is why +they're not explained here. + +\begin{table}[htbp] + \centering + \newcommand*\showsymbol[1]{\cs{#1}&\csuse{#1}} + \caption{Symbols defined by \musicsymbols.} + \begin{tabular}{llll} + \toprule + \bfseries Command & \bfseries Symbol & + \bfseries Command & \bfseries Symbol \\ + \midrule + \showsymbol{sharp} & \showsymbol{flat} \\ + \showsymbol{doublesharp} & \showsymbol{doubleflat} \\ + \showsymbol{natural} \\ + \midrule + \showsymbol{trebleclef} & \showsymbol{bassclef} \\ + \showsymbol{altoclef} \\ + \midrule + \showsymbol{allabreve} & \showsymbol{meterC} \\ + \midrule + \showsymbol{wholerest} & \showsymbol{halfrest} \\ + \showsymbol{quarterrest} & \showsymbol{eighthrest} \\ + \showsymbol{sixteenthrest} \\ + \bottomrule + \end{tabular} + \label{tab:musicsymbols} +\end{table} + +\musicsymbols{} also defines a number of macros for denoting bars. Those +macros are listed in table~\ref{tab:bar-symbols}. + +\begin{table}[htbp] + \centering + \newcommand*\showsymbol[1]{\cs{#1}&\csuse{#1}} + \caption{Bar symbols.} + \begin{tabular}{llll} + \toprule + \bfseries Macro & \bfseries Symbol & + \bfseries Macro & \bfseries Symbol \\ + \midrule + \showsymbol{normalbar} & \showsymbol{leftrepeat} \\ + \showsymbol{rightrepeat} & \showsymbol{leftrightrepeat} \\ + \showsymbol{doublebar} & \showsymbol{stopbar} \\ + \bottomrule + \end{tabular} + \label{tab:bar-symbols} +\end{table} + +There are three macros that can be redefined to adjust the appearance of those +bars: +\begin{commands} + \command{normalbarwidth}\Default{.02em} + The thickness of a bar rule as used in \cs{normalbar}. + \command{thickbarwidth}\Default{.15em} + The thickness of the thick bar rules as used for example in + \cs{leftrepeat} or \cs{stopbar}. + \command{interbarwidth}\Default{.1em} + The distance between two bar rules as in \cs{doublebar} or \cs{stopbar}. +\end{commands} + +\clearpage +\part{The \library*{chordnames} Library (and the \library*{musejazz} Library)}\label{part:chordnames-library} +\dictum[Wes Montgomery]{% + I never practice my guitar -- from time to time I just open the case and + throw in a piece of raw meat.% +} + +\section{The \cs*{chordname} Command} + +\chordnames{} provides the command \cs{chordname}\marg{chord} for convenient +typesetting of chords: + +\begin{example}[side-by-side] + \chordname{Bb7(#9)} \chordname{Bbb6} + \chordname{C#7(b9)} \chordname{C##13} +\end{example} + +\begin{commands} + \command{chordname}[\marg{chord}] + Typesetting chords. Inside the argument every \code{\#} will be replaced + by $\sharp$ and every \code{b} is replaced with $\flat$. Numerals and + parentheses are typeset as superscripts. Everything between parentheses + is always a superscript: \verbcode+\chordname{F#7(#11)}+ + \chordname{F#7(#11)}. +\end{commands} + +There are several token lists that are treated specially inside \cs{chordname}: +\begin{labeling}[--]{xxxxx} + \item[\code{\^{}}] This token is replaced by \cs*{textsuperscript}. + \item[\code{ma}] The symbol for major chords. Per default this is + empty. \verbcode+\chordname{Gma}+ \chordname{Gma}. + \item[\code{mi}] The symbol for minor chords. Per default this is + \code{m}. \verbcode+\chordname{Gmi}+ \chordname{Gmi}. + \item[\code{o}] The symbol for diminished chords. Per default this is + \code{\cs*{textsuperscript}\Marg{o}}. \verbcode+\chordname{Go}+ + \chordname{Go}. + \item[\code{+}] The symbol for augmented chords. Per default this is + \code{\cs*{textsuperscript}\Marg{+}}. \verbcode!\chordname{G+}! + \chordname{G+}. + \item[\code{/o}] The symbol for half diminished chords. Per default + this is \code{\cs*{textsuperscript}\Marg{\cs*{o}\Marg{}}}. + \verbcode+\chordname{G/o}+ \chordname{G/o}. + \item[\code{\#}] The \enquote{sharp} symbol. Per default this is + \cs{sharp}. \verbcode+\chordname{F#}+ \chordname{F#}. + \item[\code{\#\#}] The \enquote{double sharp} symbol. Per default this is + \cs{doublesharp}. \verbcode+\chordname{F##}+ \chordname{F##}. + \item[\code{b}] The \enquote{flat} symbol. Per default this is + \cs{flat}. \verbcode+\chordname{Eb}+ \chordname{Eb}. + \item[\code{bb}] The \enquote{double flat} symbol. Per default this is + \cs{doubleflat}. \verbcode+\chordname{Ebb}+ \chordname{Ebb}. + \item[\code{b\#}] Cancelling flat/sharp combination: this is removed. + \item[\code{\#b}] Cancelling sharp/flat combination: this is removed. + \item[\code{add}] This is superscripted: \verbcode+\chordname{Gadd9}+ + \chordname{Gadd9}. + \item[\code{sus}] This is superscripted: \verbcode+\chordname{Gsus4}+ + \chordname{Gsus4}. + \item[\code{dim}] This is superscripted: \verbcode+\chordname{Gdim5}+ + \chordname{Gdim5}. + \item[\code{maj7}] This is superscripted: \verbcode+\chordname{Gmaj7}+ + \chordname{Gmaj7}. + \item[\code{maj9}] This is superscripted: \verbcode+\chordname{Gmaj9}+ + \chordname{Gmaj9}. +\end{labeling} + +How these token lists are treated depends on optional settings: + +\begin{example} + \setchordnames{ + major-seven = $\Delta$ , + major-nine = $\Delta$\textsuperscript{9} + } + \chordname{Gmaj7} \chordname{Gmaj9} + \chordname{G^6} \chordname{G6} + \chordname{G7^#5} +\end{example} + +If you want to use the library standalone then you can say: +\begin{sourcecode} + \usepackage[minimal]{leadsheets} + \useleadsheetslibraries{chordnames} +\end{sourcecode} +This also loads the \musicsymbols{} library. + +\section{Options} + +Options are set with the command +\begin{commands} + \command{setchordnames}[\marg{options}] + where \meta{options} is a comma separated list of keyval options. +\end{commands} +Actually there's a second possibility: options can also be set with the +command \cs{setleadsheets} (see section~\ref{sec:options}) if they're preceded +by \code{chordnames/} (including the slash). + +The options allow detailed customization of how chords are printed. It +doesn't change the input syntax. + +\begin{options} + \keyval{format}{code}\Default + Code inserted before a chord within the same group. Can be used for + special formatting of the chords, with \cs*{sffamily}, say. + \keyval{sharp}{code}\Default{\cs{sharp}} + The sharp symbol. + \keyval{flat}{code}\Default{\cs{flat}} + The flat symbol. + \keyval{double-sharp}{code}\Default{\cs{doublesharp}} + The double sharp symbol. + \keyval{double-flat}{code}\Default{\cs{doubleflat}} + The double flat symbol. + \keyval{aug}{code}\Default{+} + The augmented symbol. + \keyval{half-dim}{code}\Default{\cs*{o}\Marg{}} + The half-diminished symbol. + \keyval{full-dim}{code}\Default{o} + The diminished symbol. + \keyval{dim}{code}\Default{\cs*{textsuperscript}\Marg{dim}} + The token list \code{dim}. + \keyval{add}{code}\Default{\cs*{textsuperscript}\Marg{add}} + The token list \code{add}. + \keyval{sus}{code}\Default{\cs*{textsuperscript}\Marg{sus}} + The token list \code{sus}. + \keyval{major}{code}\Default + The token list \code{ma}. + \keyval{minor}{code}\Default{m} + The token list \code{mi}. + \keyval{major-seven}{code}\Default{\cs*{textsuperscript}\Marg{maj7}} + The token list \code{maj7}. + \keyval{major-nine}{code}\Default{\cs*{textsuperscript}\Marg{maj9}} + The token list \code{maj9}. +\end{options} + +There are two further options which concern the different notations of the +pitches \chordname{B} and \chordname{Bb} in German (and a few other European +countries) and English. +\begin{options} + \keychoice{input-notation}{literal,german,english}\Default{literal} + If set to \code{german} B should be input as \code{H} and B~flat as + \code{B}. If set to \code{american} B should be input as \code{B} and + B~flat as \code{Bb}. + \keychoice{output-notation}{literal,german,english}\Default{literal} + \setchordnames{output-notation=german}If set to \code{german} B is output + as \chordname{B} and B-flat as \chordname{Bb}. +\end{options} +Setting one option to a value other than \code{literal} implicitly sets the +other one to \code{english} except the other option already has been set. +This is shown in the example below. Setting on option to \code{literal} again +also sets the other option to \code{literal}. This also resets the options. +Earlier settings are forgotten. What does that mean? Here is an exercise: +which options are active at each step and at the end? +\begin{sourcecode} + 1. \setchordnames{ input-notation = german } + 2. \setchordnames{ output-notation = german , input-notation = english } + 3. \setchordnames{ input-notation = german } + 4. \setchordnames{ output-notation = english , input-notation = literal } + 5. \setchordnames{ output-notation = german } +\end{sourcecode} +Here's the solution: +\begin{enumerate} + \item \keyis{input-notation}{german} and \keyis{output-notation}{english} + \item \keyis{input-notation}{english} and \keyis{output-notation}{german} + \item \keyis{input-notation}{german} and \keyis{output-notation}{german} + \item \keyis{input-notation}{literal} and \keyis{output-notation}{literal} + \item \keyis{input-notation}{german} and \keyis{output-notation}{english} +\end{enumerate} + +The following example shows the effects of different input and output +notations. +\begin{example} + input and output literal:\par + \chordname{Bb} \chordname{B} \chordname{B#}\par + \chordname{B} \chordname{H} \chordname{H#}\par + \medskip + + \setchordnames{input-notation=german} + input German and output English:\par + \chordname{Bb} \chordname{B} \chordname{B#}\par + \chordname{B} \chordname{H} \chordname{H#}\par + \medskip + + \setchordnames{output-notation=german} + input and output German:\par + \chordname{Bb} \chordname{B} \chordname{B#}\par + \chordname{B} \chordname{H} \chordname{H#}\par + + \medskip + \setchordnames{input-notation=english} + input English and output German:\par + \chordname{Bb} \chordname{B} \chordname{B#}\par + \chordname{B} \chordname{H} \chordname{H#}\par +\end{example} + +\section{The \library*{musejazz} Library}\label{sec:musejazz-libr} + +The \musejazz\ library extends the \chordnames\ library to use +MuseScore's\footnote{\url{http://musescore.com/}} font \enquote{MuseJazz} for +the chord symbols. The library contains the two lines which explains why it +requires \LuaLaTeX\ or \XeLaTeX. Well, and the font, obviously. + +\begin{sourcecode} + \RequirePackage{fontspec} + \newfontfamily\musejazz{MuseJazz} +\end{sourcecode} + +Here is a small example of it's usage and the outcome: + +\begin{example}[compile,program=lualatex,max-pages=1,add-frame=false] + % compile with LuaLaTeX or XeLaTeX + \documentclass[margin=4mm]{standalone} + \usepackage{leadsheets} + \useleadsheetslibrary{musejazz} + \begin{document} + \Huge\chordname{Bb7(#9)}\space\chordname{F##9} + \end{document} +\end{example} + +\clearpage +\part{The \library*{songs} Library}\label{part:leadsheets-library} +\dictum[Jeff Beck]{% + I don't care about the rules. If I don't break the rules at least ten + times every song then I'm not doing my job.% +} + +\section{Background} + +The \leadsheets{} package allows for easy creation of leadsheets but it also +can be used to create complete songbooks. The basic idea is that songs are +typeset in the \env{song} environment. Each song gets a number of properties +(see section~\ref{sec:song-properties}) that determine how the title of the +song is typeset. For the typesetting of the titles a template mechansim is +used (see section~\ref{sec:title-templates}). Songs can also be tagged. The +tags then allow to typeset only songs matching a list of tags that is +specified via an option. + +\begin{figure} + \centering + \includegraphics[width=.9\linewidth]{liederbuechlein.jpg} + \caption{Even before officially publishing this bundle I used it for + typesetting a small songbook!} + \label{fig:liederbuch} +\end{figure} + +\section{The \env*{song} Environment} + +\begin{environments} + \environment{song}[\oarg{options}\marg{properties}] + The main environment used to typeset songs. It has a mandatory argument + where the song's properties are set + (\cf\ section~\ref{sec:song-properties}). It also has an optional + argument for setting options specific to the song. +\end{environments} + +\subsection{A First Example} +First let's take a look at an example: + +\begin{example}[ + compile, + graphics={trim={2cm 18cm 2cm 2cm},clip}, + add-sourcecode-options={literate=}] + \documentclass{article} + \usepackage{leadsheets} + \begin{document} + + \begin{song}{title={Mary Had A Little Lamb}, music={Stevie Ray Vaughan}, + lyrics={traditional}, tags={srv,blues}} + \begin{verse} + Mary had a little lamb \\ + Its fleece was white as snow, yea \\ + Everywhere the child went \\ + The little lamb was sure to go, yea + \end{verse} + \begin{verse} + He followed her to school one day \\ + And broke the teacher's rule \\ + What a time did they have \\ + That day at school + \end{verse} + \end{song} + + \end{document} +\end{example} + +Per default the songtitle simply is a \cs{section}\sarg{} without any other +additions. This is the songtitle template \titletemplate{minimal}, see +section~\ref{sec:title-templates} for more details on those templates and how +to create your own. + +\subsection{Using the \env*{song} Environment} + +Inside the \env{song} environment a number of additional environments are used +to specify the different parts of a song. They all are basically the same +kind of environment, namely an \env*{itemize} environment internally where the +only \cs*{item} has the name of the environment as option. The \env{verse} +environment is a little bit different since verses can be numbered. If they +are then each usage of \env{verse} inside \env{song} will step a vers number +and print it (as option to the internal \cs*{item}). + +\begin{environments} + \environment{verse}[\oarg{options}] + An environment for specifying the verses of a song. + \environment{chorus}[\oarg{options}] + An environment for specifying the chorus of a song.\\ + This is the same as \beginenv*\Marg{verse}\Oarg{type=chorus,\meta{options}}. + \environment{intro}[\oarg{options}] + An environment for specifying the intro of a song.\\ + This is the same as \beginenv*\Marg{verse}\Oarg{type=intro,\meta{options}}. + \environment{interlude}[\oarg{options}] + An environment for specifying an interlude of a song.\\ + This is the same as \beginenv*\Marg{verse}\Oarg{type=interlude,\meta{options}}. + \environment{bridge}[\oarg{bridge}] + An environment for specifying a bridge of a song.\\ + This is the same as \beginenv*\Marg{verse}\Oarg{type=bridge,\meta{options}}. +\end{environments} + +These environments and their options are described in more detail in +sections~\ref{sec:envverse-environment} and~\ref{sec:other-envverse-like}. + +\subsection{Options}\label{sec:options} + +The options to the \env{song} environment are the same as the general options +of \leadsheets. This means you can set the following options either local to +a song or global for the whole document with this command: + +\begin{commands} + \command{setleadsheets}[\marg{options}] + Setup command for \leadsheets. +\end{commands} + +Although I used the word \enquote{global} above \emph{all options are local to + the current scope}! + +\begin{options} + \keyval{title-template}{template name}\Default{minimal} + The songtitle template, see section~\ref{sec:title-templates} for + details. + \keyval{chord-cs}{cs}\Default{\cs*{chordname}} + The command that is used to parse the chords. See + section~\ref{sec:placing-chords} for details. \meta{cs} needs to be a + command that takes a mandatory argument. + \keyval{song-format}{\TeX{} code}\Default + \meta{\TeX{} code} is inserted \emph{before} the song title at the + beginning of the \env{song} environment. + \keyval{text-format}{\TeX{} code}\Default + \meta{\TeX{} code} is inserted \emph{after} the song title at the + beginning of the \env{song} environment. + % \keybool{numbered}\Default{false} + % Determines wether verses are numbered or not. + \keyval{print-tags}{list of tags} + A comma separated list of tags. When specified a song will only be printed + if it is tagged with at least one of the tags in \meta{list of tags}. + \keybool{obey-lines}\Default{false} + An experimental option. Use at your own risk! If set to \code{true} then + inside the \env{verse} like environments end-of-lines will be obeyed and + start a new line. This comes with a price when using chords, see + section~\ref{sec:placing-chords:caveat}. + \keybool{bar-shortcuts}\Default{false} + Makes the characters \shortcut{:} and \shortcut{\barsymbol} active inside + the \env{song} environment. See sections~\ref{sec:special-characters} + and~\ref{sec:typesetting-bars} for more details. +\end{options} + +\subsection{Song Properties}\label{sec:song-properties} + +Songs can have a number of properties which basically are used in songtitle +templates (see section~\ref{sec:title-templates}). One specific property, +\property{tags}, plays a different role, though. + +\begin{properties} + \prop{title}{title} + This is the main title of the song. + \prop{subtitle}{subtitle} + A subtitle. + \prop{short-title}{short song title} + A short title (may be useful in a template that writes the titles in + \cs*{section}s for a version to be used in the table of contents). + \prop{sort-title}{song title} + If not set explicitly this property holds the same value as + \property{title}. + \prop{sort-short-title}{short song title} + If not set explicitly this property holds the same value as + \property{short-title}. + \prop{composer}{composer} + The composer of the song. As of now this accepts an arbitrary entry but + maybe this will not be supported any more when indexing will be + implemented. No promises. + \prop{sort-composer}{composer} + If not set explicitly this property holds the same value as + \property{composer}. + \prop{lyrics}{writer} + Whoever wrote the lyrics if different from the composer. As of now this + accepts an arbitrary entry but maybe this will not be supported any more + when indexing will be implemented. No promises. + \prop{sort-lyrics}{writer} + If not set explicitly this property holds the same value as + \property{writer}. + \prop{arr}{arranger} + Whoever arranged the song. As of now this accepts an arbitrary entry but + maybe this will not be supported any more when indexing will be + implemented. No promises. + \prop{sort-arr}{arranger} + If not set explicitly this property holds the same value as + \property{arr}. + \prop{band}{band} + The band who plays or played the song. + \prop{sort-band}{band} + If not set explicitly this property holds the same value as + \property{band}. + \prop{interpret}{interpret} + The interpret of the song. As of now this accepts an arbitrary entry but + maybe this will not be supported any more when indexing will be + implemented. No promises. + \prop{sort-interpret}{interpret} + If not set explicitly this property holds the same value as + \property{interpret}. + \prop{genre}{genre} + The genre of the song. + \prop{key}{key} + The key of the song. This property is used for transposing and must have + a specific format then, see section~\ref{sec:transposing}. + \prop{capo}{fret} + This property is used for transposing and for the \cs{capo} macro, see + sections~\ref{sec:capo-information} and~\ref{sec:transposing} . + \prop{tempo}{tempo} + The tempo of the song. + \prop{tags}{tags} + A comma separated list of tags. Those tags play a role for the option + \option{print-tags}. When that option is used a song is only printed if + it has at least one of the tags specified in the option. +\end{properties} + +There are three more properties, \property{counter}, \property{ID} and +\property{height} that cannot be set but are set automatically for each song. +The \property{counter} simply holds the number of the current song starting +from \code{1} for the first song. The \property{ID} currently always ia +\code{song\meta{counter}} where \meta{counter} is the current +\property{counter} value. The property \property{height} holds the height of +the typeset song in pt. The height is determined by placing the body of the +respective \env{song} environment in a vertical box and measuring the height +and depth of the box. This is done in a measuring phase that can be tested in +a songtitle template definition, see section~\ref{sec:title-templates} for +details. \emph{ This is important since the property \property{height} is not +available in the measuring phase but only afterwards!} + +In principle all properties can get list of entries where items are separated +with \code{\visualizespaces{ and }}. Of course this doesn't make sense for +each property -- a song does only have one title. But a song can very well +have more than one composer: think of the Beatles where most songs were +written by Paul McCartney and John Lennon\footnote{This is not quite true: + most songs were mostly written either by Paul or John but legally usually + both are the composers.}. + +It is possibly to define further such properties. For details see +section~\ref{sec:own-templates}. + +\subsection{Special Characters}\label{sec:special-characters} +Inside the \env{song} environment several characters don't have their usual +catecory codes: +\begin{labeling}[--]{xxxxx} + \item[\shortcut{\textasciicircum}] category code 13 (active). It is a + shortcut for the \cs{chord} command. + \item[\shortcut{\_}] category code 13 (active). It is a shortcut for the + \cs{writechord} command. + \item[\shortcut{\barsymbol}] category code 13 (active). Used for + typesetting bars. + \item[\shortcut{:}] category code 13 (active). Used for typesetting bars. + \item[\code{\#}] category code 12 (other). Used for chord names. +\end{labeling} + +Actually the characters \shortcut{\barsymbol} and \shortcut{:} are \emph{not} +changed per default. In order to do that you have to use the option +\option{bar-shortcuts}. + +For details on the usage of the characters \shortcut{\barsymbol} and +\shortcut{:} see section~\ref{sec:typesetting-bars}. The usage of chords is +explained in section~\ref{sec:placing-chords}. + +\subsection{Capo Information}\label{sec:capo-information} +When you set the \property{capo} property the macro \cs{capo} writes +\begin{center} + \GetTranslation{leadsheets/capo}: IV.~\GetTranslation{leadsheets/fret} +\end{center} +What it writes \emph{exactly} depends on a few settings: the \property{capo} +property obviously, which determines the number that is printed. The +translations for the \enquote{capo} and \enquote{fret} strings (see +section~\ref{sec:internationalization} for details) and the setting of the +following option: +\begin{options} + \keychoice{capo-nr-format}{arabic,roman,Roman}\Default{Roman} + The format of the number printed by the \cs{capo} macro. + \keyval{capo-nr}{code}\Default{\#1.} + The code to print the number. In the code refer to the number with + \code{\#1}. +\end{options} + +\section{The \env*{verse} Environment}\label{sec:envverse-environment} + +\begin{environments} + \environment{verse}[\oarg{options}] + An environment for specifying the verses of a song. + \environment{verse*}[\oarg{options}] + The same as the \env{verse} environment but will always be unnumbered + regardless of any option settings. +\end{environments} + +\begin{example}[ + compile, + graphics={trim={2cm 18cm 2cm 2cm},clip}, + add-sourcecode-options={literate=}] + \documentclass{article} + \usepackage{leadsheets} + \setleadsheets{verse/numbered=true} + \begin{document} + + \begin{song}{title=Foo} + \begin{verse} + Lorem ipsum dolor sit amet, consetetur sadipscing elitr,\\ + sed diam nonumy eirmod tempor invidunt ut labore et dolore\\ + magna aliquyam erat, sed diam voluptua. + \end{verse} + \begin{verse*} + Lorem ipsum dolor sit amet, consetetur sadipscing elitr,\\ + sed diam nonumy eirmod tempor invidunt ut labore et dolore\\ + magna aliquyam erat, sed diam voluptua. + \end{verse*} + \begin{verse} + Lorem ipsum dolor sit amet, consetetur sadipscing elitr,\\ + sed diam nonumy eirmod tempor invidunt ut labore et dolore\\ + magna aliquyam erat, sed diam voluptua. + \end{verse} + \end{song} + + \end{document} +\end{example} + +\subsection{Options}\label{sec:verses-options} + +The \env{verse} environment and all related environments have the following +option: + +\begin{options} + \keyval{format}{code}\Default + \meta{code} is inserted at the beginning of the environment and can thus + be used to add formatting, \eg, \keyis{format}{\cs*{itshape}}. + \keyval{label-format}{code}\Default + The same for the environment labels. +\end{options} + +This can be used either locally, \ie, as option to the corresponding +environment, or for all environments of the same type using the setup command +using the following syntax: + +\begin{center} + \cs{setleadsheets}\Marg{\meta{env name}/format = \meta{code}} +\end{center} + +\begin{example} + \begin{verse}[format=\itshape] + Lorem ipsum dolor sit amet, consetetur sadipscing elitr,\\ + sed diam nonumy eirmod tempor invidunt ut labore et dolore\\ + magna aliquyam erat, sed diam voluptua. + \end{verse} +\end{example} + +It is also possible so set the formatting for all related environments at +once: +\begin{options} + \keyval{verses-format}{code}\Default + Sets the format for all \env{verse} like environments. + \keyval{verses-label-format}{code}\Default + Sets the label format for all \env{verse} like environments. +\end{options} +Both options are overwritten if the options for a specific environment are +set. That is, if you want all environments to have italic shape except for +choruses, then you could do +\begin{sourcecode} + \setleadsheets{ + verses-format = \itshape , + chorus/format = + } +\end{sourcecode} + +\section{Placing Chords}\label{sec:placing-chords} + +\subsection{The Commands} +Inside the \env{song} environment the characters \shortcut{\textasciicircum} +and \code{\_} are active characters\footnote{There are more characters with a + special function, see + section~\ref{sec:special-characters}}. \shortcut{\textasciicircum} is a +shortcut for the command \cs{chord}, \shortcut{\_} is a shortcut for +\cs{writechord}. Those commands have the following functions: + +\begin{commands} + \command{chord}[\sarg\symarg{-}\marg{chord}\meta{text}\visiblespace] + Places \meta{chord} centered above \meta{text}. The starred version + gobbles the trailing space while the unstarred version does not. Like the + star the dash is optional. It sets the option \option{smash-next-chord} + to \code{true}. \meta{text} may be empty but the trailing space + \emph{must} be there. If \meta{text} is empty then the chord is place + above some horizontal space which can be set with the option + \option{empty-chord-dim}. + \command{writechord}[\marg{chord}] + This command transforms the chord according to the options + \option{transpose} and \option{enharmonic} before printing it. This + command can/should be used for placing chords inline or for typesetting + the \property{key} property in a template. The command is used by + \cs{chord} for the actual printing. +\end{commands} + +\begin{example}[side-by-side] + Text \chord{E7}text \chord*{B7}lon ger text +\end{example} + +\subsection{Usage} +Note that per default the width of a chord is not ignored: +\begin{example}[side-by-side] + text \chord{Gbmi7(b5)}text text +\end{example} +However, there is an option which sets the width of a chord to zero: +\begin{options} + \keybool{smash-chords}\Default{false} + If set to true the width of the chords set with \cs{chord} is set to + zero. + \keybool{smash-next-chord}\Default{false} + If set to true the width of the next chord set with \cs{chord} is set to + zero. +\end{options} +\begin{example}[side-by-side] + \setleadsheets{smash-next-chord=true} + text \chord{Gbmi7(b5)}text text \par + text \chord{Gbmi7(b5)}text text \par + \setleadsheets{smash-chords=true} + text \chord{Gbmi7(b5)}text text \par + text \chord{Gbmi7(b5)}text text +\end{example} + +Before we forget -- there are more options: +\begin{options} + \keyval{empty-chord-dim}{dim}\Default{1em} + The horizontal space that is inserted if the \meta{text} argument of + \cs{chord} is empty. + \keyval{align-chords}{col}\Default{c} + Determines how a chord is aligned with respect to the word it is placed + above of. Valid input is any valid \env*{tabular} column identifier. + \keybool{print-chords}\Default{true} + If set to false \cs{chord} won't print the chord but will do nothing + instead. This options does not affect \cs{writechord}. +\end{options} + +While \cs{chord} is available in the whole document the +\code{\textasciicircum} syntax is -- as mentioned before -- only available +inside of the \env{song} environment. + +\begin{example}[ + compile, + graphics={trim={2cm 16cm 2cm 4cm},clip}, + add-sourcecode-options={literate=}] + \documentclass{article} + \usepackage{leadsheets} + \begin{document} + + \begin{song}{title={Mary Had A Little Lamb}, music={Stevie Ray Vaughan}, + lyrics={traditional}, tags={srv,blues}} + \begin{verse} + ^{E7} Mary had a little lamb ^{A7} \\ + Its fleece was white as ^{E7}snow, yea \\ + Everywhere the child ^{B7}went ^{A7} \\ + The little lamb was sure to ^{E7}go, yea + \end{verse} + \begin{verse} + ^{E7} He followed her to school one day ^{A7} \\ + And broke the teacher's ^{E7}rule \\ + What a time did they ^{B7}have ^{A7} \\ + That day at ^{E7}school + \end{verse} + \end{song} + + \end{document} +\end{example} + +You've probably noticed: chords are printed with \cs{chordname} in the default +setting. You can change this with the option \option{chord-cs}. If you do +then keep in mind that the input syntax will also change. + +\subsection{Caveat}\label{sec:placing-chords:caveat} + +If you use \keyis{obey-lines}{true} you have to be careful when you place +chords. If you place a chord over the last word in a line +\begin{sourcecode} + ^{F#mi} You've been ^*{B}run nin', ^*{E}hid in' much too ^{A}long. +\end{sourcecode} +then the end of line that is used as the mandatory space argument for +\cs{chord} may not be recognized as an end of line. Even worse: at the end of +a \env{verse} like environment this may cause non-obvious errors. So if +you're getting in trouble in these cases you should always insert an explicit +space, \eg. by one of the following methods: +\begin{sourcecode} + ^{F#mi} You've been ^*{B}run nin', ^*{E}hid in' much too ^{A}long. {} + ^{F#mi} You've been ^*{B}run nin', ^*{E}hid in' much too ^{A}long. \empty + ^{F#mi} You've been ^*{B}run nin', ^*{E}hid in' much too ^{A}long. \relax +\end{sourcecode} + +\subsection{Remembering Chords}\label{sec:remembering-chords} +\leadsheets{} has the option +\begin{options} + \keybool{remember-chords}\Default{false} + If set to \code{true} the chords in the \emph{first} appearance of a + \env{verse} like environment are remembered. In the next appearances of + said environment the shortcut \shortcut{\textasciicircum} has changed its + meaning and inserts a chord automatically. +\end{options} + +Let's take at look at an example to see what this means: +\begin{example} + \definesongtitletemplate{empty}{} + \begin{song}[verse/numbered,remember-chords,title-template=empty]{title=foobar} + \begin{verse} + ^{G}Lorem ipsum ^{C}dolor sit ^{E7}amet, consetetur ^{Bb7(b5)}sadipscing + \end{verse} + \begin{verse} + ^Lorem ipsum ^dolor sit ^amet, consetetur ^sadipscing + \end{verse} + \end{song} +\end{example} +In this example the chords used in the first \env{verse} environment have been +remembered and in the second \env{verse} environment the +\shortcut{\textasciicircum} shortcut inserted the corresponding chords in the +order they had been specified the first time. It is important when using this +that you don't use the \shortcut{\textasciicircum} shortcut in subsequent +environments more often than the first time. It will produce an error +otherwise. You can use it less, of course. + +The \shortcut{\textasciicircum} shortcut still has the \emph{the same} syntax +as \cs{chord} with one exception: it lacks the mandatory argument +\meta{chord} (since it's obviously not needed). It has the optional \sarg{} +and \code{-}, though, as well as the mandatory space (\visiblespace)! + +Each \env{verse} like environment (see section~\ref{sec:other-envverse-like} +for more information) is treated uniquely by this mechansim: + +\begin{example} + \definesongtitletemplate{empty}{} + \begin{song}[verse/numbered,remember-chords,title-template=empty]{title=foobar} + \begin{verse} + ^{G}Lorem ipsum ^{C}dolor sit ^{E7}amet, consetetur ^{Bb7(b5)}sadipscing + \end{verse} + \begin{chorus} + ^{F}Lorem ipsum ^{Gmi}dolor sit amet, consetetur ^{C7}sadipscing + \end{chorus} + \begin{verse} + ^Lorem ipsum ^dolor sit ^amet, consetetur ^sadipscing + \end{verse} + \begin{chorus} + ^Lorem ipsum ^dolor sit amet, consetetur ^sadipscing + \end{chorus} + \end{song} +\end{example} + +This is important: \env{verse} and \env{verse*} are treated as two different +environments, the same holds for all starred \env{verse} like environments! +If you want to recall the chords of a different type of environment, then you +can use the option \option{recall-chords}: + +\begin{example} + \definesongtitletemplate{empty}{} + \begin{song}[verse/numbered,remember-chords,title-template=empty]{title=foobar} + \begin{verse} + ^{G}Lorem ipsum ^{C}dolor sit ^{E7}amet, consetetur ^{Bb7(b5)}sadipscing + \end{verse} + \begin{chorus} + ^{F}Lorem ipsum ^{Gmi}dolor sit amet, consetetur ^{C7}sadipscing + \end{chorus} + \begin{verse} + ^Lorem ipsum ^dolor sit ^amet, consetetur ^sadipscing + \end{verse} + \begin{chorus}[recall-chords=verse] + ^Lorem ipsum ^dolor sit amet, consetetur ^sadipscing + \end{chorus} + \end{song} +\end{example} + +\section{Transposing}\label{sec:transposing} +Provided a song has the property \property{key} \emph{and} the key is given as +one of the twelve \enquote{usual} keys, \ie, one of the keys given in +table~\ref{tab:key-signatures}, the chords of a song can be transposed. + +\begin{options} + \keyval{transpose}{number} + Transposes the chords of a song by \meta{number} of semitones. + \meta{number} can be a negative number, then the chords are transposed + down. + \keychoice{enharmonic}{sharp,flat} + Suppose you transpose a song in the key of \chordname{E} down a semitone. + \leadsheets{} will then transpose to the key of \chordname{Eb}. It always + chooses the key whose signature has less accidentals. You can force a + variant, though, by using this option. With \keyis{enharmonic}{sharp} + \leadsheets{} would have chosen \chordname{D#} instead of \chordname{Eb}. + \keybool{transpose-capo} + When this is set to true chords are transposed down on semitone per capo + fret. +\end{options} + +The transposing mechanism relies on the \chordnames{} input syntax which means +that if you change \option{chord-cs} horrible things may happen. \emph{So + don't change \option{chord-cs} and use \option{transpose} at the same time!} + +\begin{table}[htbp] + \centering + \catcode`\#=12 + \catcode`\!=6 + \def\showsignature!1{\chordname{!1}&\code{!1}}% + \caption{Allowed keys for the \property{key} property.} + \begin{tabular}{*{12}{l}} + \toprule + \bfseries Key & \bfseries Input & + \bfseries Key & \bfseries Input & + \bfseries Key & \bfseries Input & + \bfseries Key & \bfseries Input & + \bfseries Key & \bfseries Input & + \bfseries Key & \bfseries Input \\ + \midrule + \showsignature{C} && & + \showsignature{Cma} && & + \showsignature{Ami} \\ + \cmidrule(lr){1-4} \cmidrule(lr){5-8} \cmidrule(lr){9-12} + \showsignature{G} & \showsignature{F} & + \showsignature{Gma} & \showsignature{Fma} & + \showsignature{Emi} & \showsignature{Dmi} \\ + \showsignature{D} & \showsignature{Bb} & + \showsignature{Dma} & \showsignature{Bbma} & + \showsignature{Bmi} & \showsignature{Gmi} \\ + \showsignature{A} & \showsignature{Eb} & + \showsignature{Ama} & \showsignature{Ebma} & + \showsignature{F#mi} & \showsignature{Cmi} \\ + \showsignature{E} & \showsignature{Ab} & + \showsignature{Ema} & \showsignature{Abma} & + \showsignature{C#mi} & \showsignature{Fmi} \\ + \showsignature{B} & \showsignature{Db} & + \showsignature{Bma} & \showsignature{Dbma} & + \showsignature{G#mi} & \showsignature{Fbmi} \\ + \showsignature{F#} & \showsignature{Gb} & + \showsignature{F#ma} & \showsignature{Gbma} & + \showsignature{D#mi} & \showsignature{Ebmi} \\ + \bottomrule + \end{tabular} + \label{tab:key-signatures} +\end{table} + +\begin{example}[ + compile, + graphics={trim={2cm 16cm 2cm 4cm},clip}, + add-sourcecode-options={literate=}] + \documentclass{article} + \usepackage{leadsheets} + \begin{document} + + \begin{song}[transpose=2]{title={Mary Had A Little Lamb}, music={Stevie Ray + Vaughan}, lyrics={traditional}, tags={srv,blues},key=E} + \begin{verse} + ^{E7} Mary had a little lamb ^{A7} \\ + Its fleece was white as ^{E7}snow, yea \\ + Everywhere the child ^{B7}went ^{A7} \\ + The little lamb was sure to ^{E7}go, yea + \end{verse} + \begin{verse} + ^{E7} He followed her to school one day ^{A7} \\ + And broke the teacher's ^{E7}rule \\ + What a time did they ^{B7}have ^{A7} \\ + That day at ^{E7}school + \end{verse} + \end{song} + + \end{document} +\end{example} + +\section{Other \env*{verse}-like Environments}\label{sec:other-envverse-like} +Songs can have lots of different kinds of parts: verses, choruses, bridges, +intros, outros, and so on. Typographically they're all more or less the same, +at least for the purpose of this package. This means we'd ideally have +environments for all of these parts with a distinct name in order to get a +clean source. At the same time these environments should all behave basically +the same. This is what the environments described in the following sections +are for. + +\subsection{Available Environments}\label{sec:avail-envir} + +\begin{environments} + \environment{chorus}[\oarg{options}] + An environment for specifying the chorus of a song. + \environment{chorus*}[\oarg{options}] + The same as \env{chorus} but does not display the label. + \environment{intro}[\oarg{options}] + An environment for specifying the intro of a song. + \environment{intro*}[\oarg{options}] + The same as \env{intro} but does not display the label. + \environment{interlude}[\oarg{options}] + An environment for specifying an interlude of a song. + \environment{bridge}[\oarg{bridge}] + An environment for specifying a bridge of a song. + \environment{info}[\oarg{options}] + An environment for specifying arbitrary information. This environment has + no label. + \environment{solo}[\oarg{options}] + An environment for specifying a solo to a song. + \environment{solo*}[\oarg{options}] + The same as \env{solo} but does not display the label. +\end{environments} + +\subsection{Own \env*{verse}-like Environments} +All environments mentioned in the previous section were defined with this +command: +\begin{commands} + \command{newversetype}[\sarg\marg{environment name}\oarg{default options}] + This defines an environment \meta{environment name}. This environment + uses the verse-type template \versetemplate{itemize} (see + section~\ref{sec:verse-type-templates}) unless specified differently in + the \meta{default options}. The starred version defines an environment + which hides the displayed name. More precisely: the macro \cs{verselabel} + that is used in verse-type template definitions prints nothing in an + environment defined with \cs{newversetype}\sarg. + + This also defines a translation string (see + section~\ref{sec:internationalization}) \code{leadsheets/\meta{environment + name}} with both an empty translation fallback and English translation + unless specified differently with the \option{name} option. + + At last this defines a new counter \meta{environment name} and sets + \cs*{the\meta{environment name}} to \code{\cs*{arabic}\Marg{environment + name}.}. +\end{commands} + +As mentioned before in section~\ref{sec:verses-options} all environments +defined this way have the options \option{format} and \option{label-format}. +They have more options. Here's a complete list: +\begin{options} + \keyval{format}{code}\Default + \meta{code} is inserted at the beginning of the environment and can thus + be used to add formatting, \eg, \keyis{format}{\cs*{itshape}}. + \keyval{label-format}{code}\Default + The same for the environment labels. + \keyval{after-label}{code}\Default{:} + \meta{code} is inserted in the label after the label text. + \keyval{name}{name}\Default + The translation fallback and English translation of the environment. This + should only be used with \cs{newversetype}. Later changes should be made + with \cs{DeclareTranslation} (see section~\ref{sec:internationalization}). + \keyval{template}{template}\Default{itemize} + The verse-type template used for the environment, see + section~\ref{sec:verse-type-templates} for details. + \keybool{numbered}\Default{false} + If set to \code{true} \cs{verselabel} (used in verse-type template + definitions, see section~\ref{sec:verse-type-templates}) adds a number + after the name. + \keybool{named}\Default{true} + If set to \code{true} \cs{verselabel} (used in verse-type template + definitions, see section~\ref{sec:verse-type-templates}) prints the name + of the current environment (as determined by the translation of the + corresponding string, see also section~\ref{sec:internationalization}). + \keyval{recall-chords}{environment} + An option to be used with the \option{remember-chords} mechanism, see + section~\ref{sec:remembering-chords} for an example. +\end{options} + +There are also a number of general options for setting the defaults of some +options for all environments: +\begin{options} + \keyval{verses-format}{code}\Default + Sets the format for all \env{verse} like environments. + \keyval{verses-label-format}{code}\Default + Sets the label format for all \env{verse} like environments. + \keyval{verses-after-label}{code}\Default{:} + Defeault \meta{code} that is inserted in the label after the label text of + \env{verse} like environments. +\end{options} +This options only determine the formatting of an environment if the +corresponding options of the environment hasn't been set. + +Let's summarize: the label text of these environments is built of three items +in the following order: +\begin{enumerate} + \item The \meta{code} set with the corresponding \option{label-format} option. + \item The label text as defined as second argument to \cs{newversetype} or + as declared through the corresponding translation. + \item The \meta{code} set with the corresponding \option{after-label} option. +\end{enumerate} + +\begin{example} + \newversetype{foo}{Foo} + \setleadsheets{ + foo/label-format = \bfseries , + foo/after-label = ~$\Rightarrow$ + } + \begin{foo} + Lorem ipsum dolor sit amet, consetetur sadipscing elitr,\\ + sed diam nonumy eirmod tempor invidunt ut labore et dolore\\ + magna aliquyam erat, sed diam voluptua. + \end{foo} +\end{example} + +And just to give you some more examples here is how some of the existing +environments are defined: +\begin{sourcecode} + \newversetype{verse}[ name=Verse, named=false, after-label= ] + \newversetype*{verse*} + \newversetype{chorus}[ name=Chorus ] + \newversetype*{chorus*} +\end{sourcecode} + +\section{Typesetting Bars}\label{sec:typesetting-bars} + +Sometimes it can be useful to typeset the chord scheme of a song. Then one +should be able to indicate start and beginnings of bars, maybe indicate +repeats and so on. While this is obviously possible with the macros provided +by the \musicsymbols{} package listed in table~\ref{tab:bar-symbols} it may be +more convenient to have a shorter syntax. This is why inside the \env{song} +environment some characters can be made (or are) active (see +section~\ref{sec:special-characters}). For the typesetting of bars this are +the characters \shortcut{:} nor \shortcut{\barsymbol}. Per default they are +not active, though. If you want to use the shortcut syntax you have to use +the option \option{bar-shortcuts}. Here's a short example that emulates the +behaviour by setting the characters active explicitly: + +\begin{example}[add-sourcecode-options={literate=}] + \catcode`|=\active + \catcode`:=\active + |: repeat | this :|: and | this :| \par + | this | part | ends | here || \par + | the | song | is over | now ||| +\end{example} + +All possibly combinations that have a special definition are shown in the +example above. The replacements that are done internally are these: +\begin{labeling}[--]{xxxxx} + \item[\shortcut{\barsymbol}] \cs{normalbar}\cs*{space} (the space is there + because otherwise it eats following spaces which would be annoying) + \item[\code{|:}] \cs{leftrepeat} + \item[\code{:|}] \cs{rightrepeat} + \item[\code{:|:}] \cs{leftrightrepeat} + \item[\code{||}] \cs{doublebar} + \item[\code{|||}] \cs{stopbar} +\end{labeling} + +\section{Templates}\label{sec:templates} +\subsection{Title Templates}\label{sec:title-templates} + +\subsubsection{Background} +The titles of songs set with the \env{song} environment are displayed +according to the chosen title template. It is chosen through the option +\option{title-template} which can be set with \cs{setleadsheets} or as option +to a specific \env{song} environment. \leadsheets{} provides few predefined +templates and an easy mechansim to define own templates. + +\subsubsection{Existing Templates} + +Currently \leadsheets{} provides two templates: +\begin{description} + \item[\titletemplate{minimal}] This only typesettes the song title in a + \cs{section}\sarg. + \item[\titletemplate{tabular}] This typesets the song title in a + \cs{section} and prints some song properties in a \env*{tabular} below it. + This template needs the \pkg{array}~\cite{pkg:array} package loaded. +\end{description} + +\subsubsection{Own Templates}\label{sec:own-templates} +The principle is pretty straight forward: templates are defined with the +following command: +\begin{commands} + \command{definesongtitletemplate}[\marg{name}\marg{code}] + This defines the template \meta{name}. +\end{commands} +Inside of \meta{code} any code can be used. The idea is that you use the +commands presented below to insert song properties where you want them. + +First there are two commands related to defining new properties: +\begin{commands} + \command{definesongproperty}[\marg{property}] + Defines a new property \meta{property}. All existing properties have been + defined this way. The command can only be used in the preamble. + \command{copysongproperty}[\marg{from}\marg{to}] + Copies the values of property \meta{from} to property \meta{to} if + property \meta{to} has not been set but property \meta{from} has been. + For example all \code{sort-\meta{property}} properties have been treated + this way so they have the \meta{property} value as fallback. + The command can only be used in the preamble. +\end{commands} + +Then there are a number of commands related to retrieving and using the values +of properties. All these commands only make sense inside a title template +definition (see section~\ref{sec:title-templates}). Some of the commands are +expandable which means they can be used in an \cs*{edef} like context, \ie, +they are also suitable for writing the property values to the table of +contents or other auxiliary files. +\begin{commands} + \expandable\command{songproperty}[\marg{property}] + Retrieves property \meta{property}. + \command{printsongpropertylist}[\oarg{code}\marg{property}\marg{between + two}\marg{between more}\marg{between last two}]\Default{\cs*{@firstofone}} + Prints a property list \meta{property} separated with \meta{between two} + if the list contains only two items and separated with \meta{between more} + and \meta{between last two} if the list contains more than two items. + \meta{code} is placed directly in front of each item and items are + surrounded with braces which means that the last token in \meta{code} may + be a macro with a mandatory argument. + \command{usesongpropertylist}[\oarg{code}\marg{property}\marg{between}]% + \Default{\cs*{@firstofone}} + Like \cs{printsongpropertylist} but separates items with \meta{between} + regardless of the length of the list. + \expandable\command{forsongpropertylist}[\marg{property}\marg{code}] + Places all items of the property list \meta{property} in the input stream, + each item preceded with \meta{code}. Items are surrounded with braces + which means that the last token in \meta{code} may be a macro with a + mandatory argument. + \expandable\command{ifsongproperty}[\marg{property}\marg{true}\marg{false}] + Checks if property \meta{property} has been set. + \command{ifsongpropertiesequal}[\marg{property 1}\marg{property + 2}\marg{true}\marg{false}] + Checks if properties \meta{property 1} and \meta{property 2} have been set + to the same value. + \expandable\command{ifsongmeasuring}[\marg{true}\marg{false}] + \leadsheets{} measures the height of a song body before it typesets it and + it can be necessary in a template to know if the measuring phase is active + or not. For example the song property \property{height} should only be + used if \emph{not} in the measuring phase: it's value get's determined + there and is not yet available. + \command{expandcode}[\marg{code}] + Exhaustively expands \meta{code}. Experienced users won't need this. It + is essentially + + \cs*{begingroup}\cs*{edef}\cs*{x}\Marg{\cs*{endgroup}\meta{code}}\cs*{x}. + + (More precisely it is a wrapper for the expl3 function \cs*{use:x}.) This + means that any \code{\#} needs to doubled. Inside the argument of this + commands non-robust macros that should not be expanded need to be prefixed + with \cs*{noexpand}. +\end{commands} + +With the right template definition you can index composers, interprets, song +titles, \ldots{} You can write tables of contents for properties such as song +titles, and so on, and so on. \leadsheets{} does not do this for you and it +may require some experience to create templates which do all this. + +\subsubsection{Examples} +In order to give you an idea on how to use songtitle templates I'll show you +how the existing ones are defined and one new definition. + +\paragraph{The \titletemplate*{minimal} template} +This is quite short and self-explaining. + +\begin{sourcecode} + \definesongtitletemplate{minimal}{\section*{\songproperty{title}}} +\end{sourcecode} + +\paragraph{A custom template} +Now let's see an example for a newly defined template. It's nearly as simple +as the \titletemplate{minimal} template. + +\begin{example}[ + compile, + graphics={trim={2cm 18cm 2cm 2cm},clip}, + add-sourcecode-options={literate=}] + \documentclass{article} + \usepackage{leadsheets} + \definesongtitletemplate{custom}{ + \ifsongmeasuring + {\section*} + {\section}{% + \songproperty{title}% + \ifsongproperty{music} + { (music by \printsongpropertylist{music}{ \& }{, }{ \& })} + {}% + } + } + \setleadsheets{title-template = custom} + \begin{document} + + \begin{song}{title={Mary Had A Little Lamb}, music={Stevie Ray Vaughan}, + lyrics={traditional}, tags={srv,blues}} + \begin{verse} + Mary had a little lamb \\ + Its fleece was white as snow, yea \\ + Everywhere the child went \\ + The little lamb was sure to go, yea + \end{verse} + \begin{verse} + He followed her to school one day \\ + And broke the teacher's rule \\ + What a time did they have \\ + That day at school + \end{verse} + \end{song} + + \end{document} +\end{example} + +\paragraph{The \titletemplate*{tabular} template} +This one is a lot more advanced and demonstrates various of the available +commands. + +\begin{sourcecode} + \definesongtitletemplate{tabular}{ + \ifsongmeasuring + {\section*} + {\section}% + {\songproperty{title}} + \begingroup\footnotesize + \begin{tabular}{ + @{} + >{\raggedright\arraybackslash}p{.5\linewidth} + @{} + >{\raggedleft\arraybackslash}p{.5\linewidth} + @{} + } + \ifsongproperty{interpret} + {\GetTranslation{leadsheets/interpret}} + {}% + \ifsongproperty{composer} + {% + & + \GetTranslation{leadsheets/composer}: % + \printsongpropertylist{composer}{ \& }{, }{ \& } + \ifsongproperty{lyrics} + { + \\ & + \GetTranslation{leadsheets/lyrics}: % + \printsongpropertylist{lyrics}{ \& }{, }{ \& } + } + {}% + } + {}% + \ifsongproperty{interpret}{\\}{\ifsongproperty{composer}{\\}{}}% + \ifsongproperty{genre} + {& Genre: \songproperty{genre} \\} + {}% + \ifsongproperty{tempo} + {& Tempo: \songproperty{tempo} \\} + {}% + \ifsongproperty{key} + {% + & \setchordnames{ + major = -\GetTranslation{leadsheets/major} , + minor = -\GetTranslation{leadsheets/minor} + }% + \GetTranslation{leadsheets/key}: % + \expandcode{\writechord{\songproperty{key}}} \\% + } + {}% + \end{tabular} + \par\endgroup + } +\end{sourcecode} + +A song using the \titletemplate{tabular} template: + +\begin{example}[ + compile, + graphics={trim={2cm 18cm 2cm 2cm},clip}, + add-sourcecode-options={literate=}] + \documentclass{article} + \usepackage{leadsheets} + \usepackage{array} + \setleadsheets{title-template = tabular} + \begin{document} + + \begin{song}{title={Mary Had A Little Lamb}, interpret={Stevie Ray Vaughan}, + genre={blues}, tags={srv,blues},key=E} + \begin{verse} + ^{E7} Mary had a little lamb ^{A7} \\ + Its fleece was white as ^{E7}snow, yea \\ + Everywhere the child ^{B7}went ^{A7} \\ + The little lamb was sure to ^{E7}go, yea + \end{verse} + \begin{verse} + ^{E7} He followed her to school one day ^{A7} \\ + And broke the teacher's ^{E7}rule \\ + What a time did they ^{B7}have ^{A7} \\ + That day at ^{E7}school + \end{verse} + \end{song} + + \end{document} +\end{example} + +\subsection{Verse-type Templates}\label{sec:verse-type-templates} +\subsubsection{Background} +Similar to the songtitles also the \env{verse} like environments are typeset +using templates. Defining them is just as easy as for the song titles. + +\subsubsection{Existing Templates} +Currently \leadsheets{} provides only one template: +\begin{description} + \item[\versetemplate{itemize}] Uses an \env*{itemize} environment for + typesetting the corresponding environment. +\end{description} + +\subsubsection{Own Templates} +Own templates can be defined using these commands: +\begin{commands} + \command{defineversetypetemplate}[\marg{name}\marg{begin code}\marg{end code}] + This defines the template \meta{name}. + \command{verselabel} + Used inside \cs{defineversetypetemplate}. This determines where the label + of the environment using the template will be displayed. + \command{verselabelformat} + Used inside \cs{defineversetypetemplate}. The format of the current + environment as set with the corresponding \option{format} option. + \command{verseafterlabel} + Used inside \cs{defineversetypetemplate}. The format of the current + environment as set with the corresponding \option{after-label} option. + \command{versename} + Used inside \cs{defineversetypetemplate}. This prints the name of the + current environment. + \command{versenumber} + Used inside \cs{defineversetypetemplate}. Expands to the + \cs*{the\meta{environment}} command for the current environment. + \command{ifversestarred}[\marg{true}\marg{false}] + Can be used inside \cs{defineversetypetemplate} for checking if the + current environment was defined by the starred version of + \cs{newversetype}. + \command{ifversenumbered}[\marg{true}\marg{false}] + Can be used inside \cs{defineversetypetemplate} for checking if for the + current environment the option \option{numbered} is true or false. + \command{ifversenamed}[\marg{true}\marg{false}] + Can be used inside \cs{defineversetypetemplate} for checking if for the + current environment the option \option{named} is true or false. + \command{ifobeylines}[\marg{true}\marg{false}] + Checks if for the current song the option \option{obey-lines} is true or + false. +\end{commands} +Since with \cs{defineversetypetemplate} you define a template for an +environment it has two argument for code: one for code at the beginning of the +environment and one for code at the end. The command \cs{verselabel} +internally uses the conditionals. Its definition is equivalent to the +following: + +\begin{sourcecode} + \newcommand*\verselabel{% + \ifversestarred + {} + {% + \verselabelformat + \ifversenamed + {% + \versename + \ifversenumbered{ }{}% + } + {}% + \ifversenumbered + {\versenumber} + {}% + \verseafterlabel + }% + } +\end{sourcecode} + +\subsubsection{Examples} +In order to give you an idea on how to use verse-type templates I'll show you +how the existing ones are defined and a few new definitions. + +\paragraph{The \versetemplate*{itemize} template} +This is how the \versetemplate{itemize} is defined. +\begin{sourcecode} + \makeatletter + \defineversetypetemplate{itemize} + {% + \itemize + \@itemdepth=0 + \ifobeylines + {% + \setlength{\parskip}{0pt}% + \setleadsheets{ obey-lines-parskip = \parsep }% + } + {}% + \item[{\verselabel}]% + } + {\enditemize} + \makeatother +\end{sourcecode} +The most interesting part is probably the \cs{ifobeylines} part. When the +option \option{obey-lines} is set to true an end of a line inserts a \cs*{par} +token. So in order not to get a vertical skip after every line the template +sets \cs*{parskip} to zero. With \keyis{obey-lines}{true} an empty line also +inserts a \cs*{par} token but it also inserts a vertical space according to +the value set with \option{obey-lines-parskip}. This option can only be set +in a verse-type template definition (which is why it isn't documented +elsewhere). All \env{verse} like environments initialize the length to the +current value of \cs*{parskip} \emph{before} the template code is inserted. + +\paragraph{A \versetemplate*{flushleft} template} +An example for a template \versetemplate*{flushleft} that typesets the label +in the margin: +\begin{example} + \defineversetypetemplate{flushleft} + {% + \noindent\llap{\verselabel\space}% + \flushleft + \unskip + \vspace*{-\baselineskip} + \ifobeylines{\setlength\parskip{0pt}}{\vspace*{-\parskip}}% + } + {\endflushleft} + \begin{chorus}[template=flushleft] + Lorem ipsum dolor sit amet, consetetur sadipscing elitr, \\ + sed diam nonumy eirmod tempor invidunt ut labore et dolore \\ + magna aliquyam erat, sed diam voluptua. + + Lorem ipsum dolor sit amet, consetetur sadipscing elitr, \\ + sed diam nonumy eirmod tempor invidunt ut labore et dolore \\ + magna aliquyam erat, sed diam voluptua. + \end{chorus} +\end{example} + +\paragraph{A \versetemplate*{flushright} template} +An example for a template \versetemplate*{flushright} that typesets the label +in the margin: +\begin{example} + \defineversetypetemplate{flushright} + {% + \noindent\llap{\verselabel\space}% + \flushright + \unskip + \vspace*{-\baselineskip} + \ifobeylines{\setlength\parskip{0pt}}{\vspace*{-\parskip}}% + } + {\endflushright} + \begin{chorus}[template=flushright] + Lorem ipsum dolor sit amet, consetetur sadipscing elitr, \\ + sed diam nonumy eirmod tempor invidunt ut labore et dolore \\ + magna aliquyam erat, sed diam voluptua. + + Lorem ipsum dolor sit amet, consetetur sadipscing elitr, \\ + sed diam nonumy eirmod tempor invidunt ut labore et dolore \\ + magna aliquyam erat, sed diam voluptua. + \end{chorus} +\end{example} + +As you can see it's not entirely easy to define a template that suits both +songs with and without \keyis{obey-lines}{true}. Personally I would forget +about that option and not care about it at all in my templates. + +\paragraph{A \versetemplate*{framed} template} +Last but not least an example using the \pkg{mdframed} +package~\cite{pkg:mdframed} -- just to show you that everything is possible. +The example adapts one of the examples of \pkg{mdframed}'s manual. +\begin{example} + \defineversetypetemplate{framed} + {% + \expandcode{% + \noexpand\mdframed[ + \ifversestarred{}{% + frametitle={% + \noexpand\tikz[baseline=(current bounding box.east),outer sep=0pt] + \noexpand\node[anchor=east,rectangle,fill=blue!20] + {\noexpand\strut\noexpand\verselabel}; + }% + }, + roundcorner = 5pt , + linecolor = blue!20 , + linewidth = 2pt, + topline = true, + frametitleaboveskip = \dimexpr-\ht\strutbox\relax , + ]% + }% + \ifobeylines{\setlength\parskip{0pt}}{}% + } + {% + \endmdframed + \addvspace{\baselineskip}% + } + \begin{chorus}[template=framed] + Lorem ipsum dolor sit amet, consetetur sadipscing elitr, \\ + sed diam nonumy eirmod tempor invidunt ut labore et dolore \\ + magna aliquyam erat, sed diam voluptua. + + Lorem ipsum dolor sit amet, consetetur sadipscing elitr, \\ + sed diam nonumy eirmod tempor invidunt ut labore et dolore \\ + magna aliquyam erat, sed diam voluptua. + \end{chorus} +\end{example} + +\section{Internationalization}\label{sec:internationalization} + +Th environments described in sections~\ref{sec:envverse-environment} +and~\ref{sec:other-envverse-like} as well as a few other words used in +\leadsheets{} are translated with the help of the \pkg{translations} +package~\cite{pkg:translations}. All predefined and available translation +strings are listed in table~\ref{tab:translations}. You can change those +translations or add translations for other languages with this command: +\begin{commands} + \command*{DeclareTranslation}[\marg{language}\marg{string}\marg{translation}] + The command provided by the \pkg{translations} package for translating + strings. +\end{commands} +Those translations can be used for example in song title templates (see +section~\ref{sec:title-templates}). One of the strings listed in +table~\ref{tab:translations} is a little different: the string +\code{leadsheets/interpret} is declared as +\begin{sourcecode} + \DeclareTranslation{English}{leadsheets/interpret} + {as interpreted by \printsongpropertylist{interpret}{ \& }{, }{ \& }} + \DeclareTranslation{German}{leadsheets/interpret} + {wie von \printsongpropertylist{interpret}{ \& }{, }{ \& } interpretiert} +\end{sourcecode} +which means it uses the song property \property{interpret}. As a consequence +it only really can be used inside a \env{song} environment. In other cases as +for example in table~\ref{tab:translations} the property part expands to +nothing (but the spaces around it are of course there). Also keep in mind +that \cs{printsongpropertylist} is not expandable. + +\begin{table}[htbp] + \centering + \caption{Predefined translation strings.} + \newcommand*\showtranslation[1]{% + \texttt{leadsheets/#1} & + \GetTranslationFor{English}{leadsheets/#1} & + \GetTranslationFor{German}{leadsheets/#1} + } + \begin{tabular}{lll} + \toprule + \bfseries String & \bfseries English & \bfseries German \\ + \midrule + \showtranslation{major} \\ + \showtranslation{minor} \\ + \showtranslation{chorus} \\ + \showtranslation{verse} \\ + \showtranslation{composer} \\ + \showtranslation{lyrics} \\ + \showtranslation{key} \\ + \showtranslation{capo} \\ + \showtranslation{fret} \\ + \showtranslation{interpret} \\ + \showtranslation{intro} \\ + \showtranslation{interlude} \\ + \showtranslation{bridge} \\ + \showtranslation{solo} \\ + \bottomrule + \end{tabular} + \label{tab:translations} +\end{table} + +\clearpage +\part{Appendix} +\dictum[Thelonious Monk]{% + Talking about music is like dancing about architecture.% +} +\appendix + +\end{document} diff --git a/Master/texmf-dist/tex/latex/leadsheets/leadsheets.library.chordnames.code.tex b/Master/texmf-dist/tex/latex/leadsheets/leadsheets.library.chordnames.code.tex new file mode 100644 index 00000000000..0843dcddfa0 --- /dev/null +++ b/Master/texmf-dist/tex/latex/leadsheets/leadsheets.library.chordnames.code.tex @@ -0,0 +1,193 @@ +\LeadsheetsExplLibrary{chordnames} + {2014/08/10 typesetting chord names with easy syntax} + +\leadsheets_load_library:n {musicsymbols} + +\bool_new:N \l__leadsheets_output_notation_german_bool +\bool_new:N \l__leadsheets_input_notation_german_bool +\bool_new:N \l__leadsheets_notation_literal_bool +\bool_set_true:N \l__leadsheets_notation_literal_bool + +\tl_new:N \l__leadsheets_chord_tl +\tl_new:N \l__leadsheets_tension_tl +\tl_new:N \l__leadsheets_format_tl + +\cs_new_protected:Npn \leadsheets_tension_sym:Nn #1#2 + { \tl_replace_all:Nnn #1 {#2} { \textsuperscript{#2} } } + +\cs_new_protected:Npn \leadsheets_chord_sym:Nnn #1#2#3 + { \tl_replace_all:Nnn #1 {#2} {#3} } + +\tl_new:N \l__leadsheets_sharp_tl +\tl_new:N \l__leadsheets_flat_tl +\tl_new:N \l__leadsheets_doublesharp_tl +\tl_new:N \l__leadsheets_doubleflat_tl +\tl_new:N \l__leadsheets_full_dim_tl +\tl_new:N \l__leadsheets_half_dim_tl +\tl_new:N \l__leadsheets_aug_tl +\tl_new:N \l__leadsheets_major_tl +\tl_new:N \l__leadsheets_minor_tl +\tl_new:N \l__leadsheets_sus_tl +\tl_new:N \l__leadsheets_dim_tl +\tl_new:N \l__leadsheets_add_tl +\tl_new:N \l__leadsheets_major_seven_tl + +\tl_set:Nn \l__leadsheets_sharp_tl {\sharp} +\tl_set:Nn \l__leadsheets_flat_tl {\flat} +\tl_set:Nn \l__leadsheets_doublesharp_tl {\doublesharp} +\tl_set:Nn \l__leadsheets_doubleflat_tl {\doubleflat} +\tl_set:Nn \l__leadsheets_half_dim_tl {\o{}} +\tl_set:Nn \l__leadsheets_full_dim_tl {o} +\tl_set:Nn \l__leadsheets_aug_tl {+} +\tl_set:Nn \l__leadsheets_major_tl {} +\tl_set:Nn \l__leadsheets_minor_tl {m} +\tl_set:Nn \l__leadsheets_sus_tl {\textsuperscript{sus}} +\tl_set:Nn \l__leadsheets_dim_tl {\textsuperscript{dim}} +\tl_set:Nn \l__leadsheets_add_tl {\textsuperscript{add}} +\tl_set:Nn \l__leadsheets_major_seven_tl {\textsuperscript{maj7}} +\tl_set:Nn \l__leadsheets_major_nine_tl {\textsuperscript{maj9}} + +\group_begin: +% for convenient input of sharps: +\char_set_catcode_other:N \# +% because ^ is active in the song environment: +\char_set_catcode_active:N \^ +% # is other so we need another parameter character: +\char_set_catcode_parameter:N \! + +\cs_gset_protected:Npn \leadsheets_chord: + { + \group_begin: + \tl_use:N \l__leadsheets_format_tl + \char_set_catcode_other:N \# + \char_set_catcode_active:N \^ + \leadsheets_chord_aux:n + } + +\cs_gset_protected:Npn \leadsheets_chord_aux:n !1 + { + \tl_set:Nn \l__leadsheets_chord_tl {!1} + \leadsheets_chord_sym:Nnn \l__leadsheets_chord_tl {maj7} + {\l__leadsheets_major_seven_tl} + \leadsheets_chord_sym:Nnn \l__leadsheets_chord_tl {maj9} + {\l__leadsheets_major_nine_tl} + \leadsheets_chord_sym:Nnn \l__leadsheets_chord_tl {sus} + {\l__leadsheets_sus_tl} + \leadsheets_chord_sym:Nnn \l__leadsheets_chord_tl {^} {\textsuperscript} + \bool_if:NF \l__leadsheets_notation_literal_bool + { + % convert to English to German input: + \bool_if:NT \l__leadsheets_input_notation_german_bool + { + \leadsheets_chord_sym:Nnn \l__leadsheets_chord_tl {B} {@@@} + \leadsheets_chord_sym:Nnn \l__leadsheets_chord_tl {H} {B} + \leadsheets_chord_sym:Nnn \l__leadsheets_chord_tl {@@@} {Bb} + } + % convert to English to German output: + \bool_if:NT \l__leadsheets_output_notation_german_bool + { + \leadsheets_chord_sym:Nnn \l__leadsheets_chord_tl {Bb} {@@@} + \leadsheets_chord_sym:Nnn \l__leadsheets_chord_tl {B} {H} + \leadsheets_chord_sym:Nnn \l__leadsheets_chord_tl {@@@} {B} + \leadsheets_chord_sym:Nnn \l__leadsheets_chord_tl {B#} {H} + } + } + \leadsheets_chord_sym:Nnn \l__leadsheets_chord_tl {#b} {} + \leadsheets_chord_sym:Nnn \l__leadsheets_chord_tl {b#} {} + \leadsheets_chord_sym:Nnn \l__leadsheets_chord_tl {##} + {\l__leadsheets_doublesharp_tl} + \leadsheets_chord_sym:Nnn \l__leadsheets_chord_tl {bb} + {\l__leadsheets_doubleflat_tl} + \leadsheets_chord_sym:Nnn \l__leadsheets_chord_tl {#} {\l__leadsheets_sharp_tl} + \leadsheets_chord_sym:Nnn \l__leadsheets_chord_tl {b} {\l__leadsheets_flat_tl} + \leadsheets_chord_sym:Nnn \l__leadsheets_chord_tl {dim} {\l__leadsheets_dim_tl} + \leadsheets_chord_sym:Nnn \l__leadsheets_chord_tl {add} {\l__leadsheets_add_tl} + \leadsheets_tension_sym:Nn \l__leadsheets_chord_tl {0} + \leadsheets_tension_sym:Nn \l__leadsheets_chord_tl {1} + \leadsheets_tension_sym:Nn \l__leadsheets_chord_tl {2} + \leadsheets_tension_sym:Nn \l__leadsheets_chord_tl {3} + \leadsheets_tension_sym:Nn \l__leadsheets_chord_tl {4} + \leadsheets_tension_sym:Nn \l__leadsheets_chord_tl {5} + \leadsheets_tension_sym:Nn \l__leadsheets_chord_tl {6} + \leadsheets_tension_sym:Nn \l__leadsheets_chord_tl {7} + \leadsheets_tension_sym:Nn \l__leadsheets_chord_tl {8} + \leadsheets_tension_sym:Nn \l__leadsheets_chord_tl {9} + \leadsheets_chord_sym:Nnn \l__leadsheets_chord_tl {/o} + {\textsuperscript{\l__leadsheets_half_dim_tl}} + \leadsheets_chord_sym:Nnn \l__leadsheets_chord_tl {o} + {\textsuperscript{\l__leadsheets_full_dim_tl}} + \leadsheets_chord_sym:Nnn \l__leadsheets_chord_tl {+} + {\textsuperscript{\l__leadsheets_aug_tl}} + \leadsheets_chord_sym:Nnn \l__leadsheets_chord_tl {(} + { \leadsheets_tension:w( } + \leadsheets_chord_sym:Nnn \l__leadsheets_chord_tl {mi} + {\l__leadsheets_minor_tl} + \leadsheets_chord_sym:Nnn \l__leadsheets_chord_tl {ma} + {\l__leadsheets_major_tl} + \tl_replace_all:Nnn \l__leadsheets_chord_tl + {\textsuperscript\textsuperscript} + {\textsuperscript} + \tl_use:N \l__leadsheets_chord_tl + \group_end: + } + +\group_end: + +\cs_new_protected:Npn \leadsheets_tension:w (#1) + { + \group_begin: + \tl_set:Nn \l__leadsheets_tension_tl {#1} + \leadsheets_chord_sym:Nnn \l__leadsheets_tension_tl + {\textsuperscript} + {\use:n} + \textsuperscript { ( \tl_use:N \l__leadsheets_tension_tl ) } + \group_end: + } + +\keys_define:nn {leadsheets/chordnames} + { + format .tl_set:N = \l__leadsheets_format_tl , + sharp .tl_set:N = \l__leadsheets_sharp_tl , + flat .tl_set:N = \l__leadsheets_flat_tl , + double-sharp .tl_set:N = \l__leadsheets_doublesharp_tl , + double-flat .tl_set:N = \l__leadsheets_doubleflat_tl , + half-dim .tl_set:N = \l__leadsheets_half_dim_tl , + full-dim .tl_set:N = \l__leadsheets_full_dim_tl , + aug .tl_set:N = \l__leadsheets_aug_tl , + major .tl_set:N = \l__leadsheets_major_tl , + minor .tl_set:N = \l__leadsheets_minor_tl , + sus .tl_set:N = \l__leadsheets_sus_tl , + add .tl_set:N = \l__leadsheets_add_tl , + dim .tl_set:N = \l__leadsheets_dim_tl , + major-seven .tl_set:N = \l__leadsheets_major_seven_tl , + major-nine .tl_set:N = \l__leadsheets_major_nine_tl , + output-notation .choice: , + output-notation/literal .code:n = + \bool_set_false:N \l__leadsheets_input_notation_german_bool + \bool_set_false:N \l__leadsheets_output_notation_german_bool + \bool_set_true:N \l__leadsheets_notation_literal_bool , + output-notation/german .code:n = + \bool_set_true:N \l__leadsheets_output_notation_german_bool + \bool_set_false:N \l__leadsheets_notation_literal_bool , + output-notation/english .code:n = + \bool_set_false:N \l__leadsheets_output_notation_german_bool + \bool_set_false:N \l__leadsheets_notation_literal_bool , + input-notation .choice: , + input-notation/literal .code:n = + \bool_set_false:N \l__leadsheets_input_notation_german_bool + \bool_set_false:N \l__leadsheets_output_notation_german_bool + \bool_set_true:N \l__leadsheets_notation_literal_bool , + input-notation/german .code:n = + \bool_set_true:N \l__leadsheets_input_notation_german_bool + \bool_set_false:N \l__leadsheets_notation_literal_bool , + input-notation/english .code:n = + \bool_set_false:N \l__leadsheets_input_notation_german_bool + \bool_set_false:N \l__leadsheets_notation_literal_bool + } + +\NewDocumentCommand \setchordnames {m} + { \keys_set:nn {leadsheets/chordnames} {#1} } + +\NewDocumentCommand \chordname {} { \leadsheets_chord: } + +\endinput diff --git a/Master/texmf-dist/tex/latex/leadsheets/leadsheets.library.chords.code.tex b/Master/texmf-dist/tex/latex/leadsheets/leadsheets.library.chords.code.tex new file mode 100644 index 00000000000..0dce4372717 --- /dev/null +++ b/Master/texmf-dist/tex/latex/leadsheets/leadsheets.library.chords.code.tex @@ -0,0 +1,189 @@ +\LeadsheetsExplLibrary{chords}{2014/08/10 printing chords} + +\msg_new:nnn {leadsheets} {no-chords} + { No~ more~ chords~ left~ for~ verse~ type~ `#1'~ \msg_line_context: } + +\tl_new:N \l__leadsheets_current_chord_tl +\tl_new:N \l__leadsheets_chord_stack_alignment_tl +\tl_set:Nn \l__leadsheets_chord_stack_alignment_tl {c} + +\bool_new:N \l__leadsheets_smash_chords_bool +\bool_new:N \g__leadsheets_smash_next_chord_bool +\bool_new:N \l__leadsheets_chord_gobble_after_bool +\bool_new:N \l__leadsheets_record_chords_bool +\bool_new:N \l__leadsheets_chord_print_bool +\bool_set_true:N \l__leadsheets_chord_print_bool + +\prop_new:N \g__leadsheets_chords_sequences_prop + +\seq_new:N \l__leadsheets_chords_sequences_seq + +\dim_new:N \l__leadsheets_empty_chord_dim +\dim_set:Nn \l__leadsheets_empty_chord_dim {1em} + +\cs_new:Npn \leadsheets_chord_print:n #1 {#1} +\cs_generate_variant:Nn \leadsheets_chord_print:n {V} + +\cs_new_protected:Npn \leadsheets_chord:nnn #1#2#3 + { + \leadsheets_if_record_chords:T + { \seq_put_right:Nn \l__leadsheets_chords_sequences_seq { {#3} } } + \leadsheets_set_chord:nnn + {#1} + {#2} + { \leadsheets_chord_write:n {#3} } + } + +\cs_new_protected:Npn \leadsheets_set_chord:nnn #1#2#3 + { + \bool_if:NTF #1 + { \bool_set_true:N \l__leadsheets_chord_gobble_after_bool } + { \bool_set_false:N \l__leadsheets_chord_gobble_after_bool } + \bool_if:NT #2 + { \bool_set_true:N \g__leadsheets_smash_next_chord_bool } + \__leadsheets_set_chord:nwn {#3} + } + +\cs_new_protected:Npn \__leadsheets_set_chord:nwn #1#2~#3 + { + \leadsheets_place_above:Vnn + \l__leadsheets_chord_stack_alignment_tl + {#1} + { + \tl_if_blank:nTF {#2} + {\skip_horizontal:N \l__leadsheets_empty_chord_dim} + {#2} + } + \tl_if_blank:nF {#3} + { \bool_if:NF \l__leadsheets_chord_gobble_after_bool {\c_space_tl} } + #3 + } + +\cs_new_protected:Npn \leadsheets_chord_write:n #1 + { +% \bool_if:NT \l__leadsheets_chord_print_bool +% { + \tl_set:Nn \l__leadsheets_current_chord_tl {#1} + \bool_if:nT + { + \leadsheets_if_property_p:Vn \l_leadsheets_current_song_id_tl {key} + && + ( \l__leadsheets_transpose_bool || \l__leadsheets_transpose_capo_bool ) + } + { + \leadsheets_transpose:xVN + { \leadsheets_get_property:Vn \l_leadsheets_current_song_id_tl {key} } + \l__leadsheets_transpose_steps_int + \l__leadsheets_current_chord_tl + } + \bool_if:nTF + { + ! \leadsheets_if_property_p:Vn \l_leadsheets_current_song_id_tl {key} + && + ( \l__leadsheets_transpose_bool || \l__leadsheets_transpose_capo_bool ) + } + { + \msg_warning:nnV {leadsheets} + {transpose-key} + \l_leadsheets_current_song_id_tl + } + \leadsheets_chord_print:V \l__leadsheets_current_chord_tl +% } + } +\cs_generate_variant:Nn \leadsheets_chord_write:n { V } + +\cs_new_protected:Npn \leadsheets_place_above:nnn #1#2#3 + { + \bool_if:NTF \l__leadsheets_chord_print_bool + { + \group_begin: + \leadsheets_ignore_lines: + \bool_if:NT \g__leadsheets_smash_next_chord_bool + { + \bool_set_true:N \l__leadsheets_smash_chords_bool + \bool_gset_false:N \g__leadsheets_smash_next_chord_bool + } + \linespread{1} \selectfont + \begin{tabular} [b] {@{}#1@{}} + \bool_if:NTF \l__leadsheets_smash_chords_bool + {\makebox[0pt][c]{#2}} + {#2} \\ + #3 + \end{tabular} + \group_end: + } + {#3} + } +\cs_generate_variant:Nn \leadsheets_place_above:nnn { V } + +\keys_define:nn {leadsheets} + { + smash-chords .bool_set:N = \l__leadsheets_smash_chords_bool , + smash-next-chord .bool_set:N = \g__leadsheets_smash_next_chord_bool , + empty-chord-dim .dim_set:N = \l__leadsheets_empty_chord_dim , + remember-chords .bool_set:N = \l__leadsheets_record_chords_bool , + align-chords .tl_set:N = \l__leadsheets_chord_stack_alignment_tl , + chord-cs .code:n = + \cs_set_protected:Npn \leadsheets_chord_print:n {#1} , + chord-cs .initial:n = \chordname , + print-chords .bool_set:N = \l__leadsheets_chord_print_bool + } + +\NewDocumentCommand \chord {st-m} { \leadsheets_chord:nnn {#1} {#2} {#3} } + +\NewDocumentCommand \writechord {m} + { \leadsheets_chord_write:n {#1} } + +% -------------------------------------------------------------------------- +% record changes for a verse and automatically print them in the next: +\prg_new_conditional:Npnn \leadsheets_if_record_chords: {T,F,TF} + { + \bool_if:nTF + { + \l__leadsheets_record_chords_bool && + ! \prop_if_in_p:NV + \g__leadsheets_chords_sequences_prop + \l_leadsheets_verse_type_tl && + !\l__leadsheets_measuring_bool + } + { \prg_return_true: } + { \prg_return_false: } + } + +\prg_new_conditional:Npnn \leadsheets_if_recall_chords: {T,F,TF} + { + \bool_if:nTF + { + \l__leadsheets_record_chords_bool && + \prop_if_in_p:NV + \g__leadsheets_chords_sequences_prop + \l_leadsheets_verse_type_tl + && + !\l__leadsheets_measuring_bool + } + { \prg_return_true: } + { \prg_return_false: } + } + +\cs_new:Npn \leadsheets_remember_or_recall_chords:w + { + \leadsheets_if_recall_chords:TF + { \__leadsheets_recall_chord:w } + { \chord } + } + +\cs_new_protected:Npn \leadsheets_recall_chord:nn #1#2 + { + \seq_pop_left:NNF \l__leadsheets_chords_sequences_seq + \l__leadsheets_tmpa_tl + { \msg_error:nnV {leadsheets} {no-chords} \l_leadsheets_verse_type_tl } + \leadsheets_set_chord:nnn + {#1} + {#2} + { \leadsheets_chord_write:V \l__leadsheets_tmpa_tl } + } + +\NewDocumentCommand \__leadsheets_recall_chord:w {st-} + { \leadsheets_recall_chord:nn {#1} {#2} } + +\endinput diff --git a/Master/texmf-dist/tex/latex/leadsheets/leadsheets.library.musejazz.code.tex b/Master/texmf-dist/tex/latex/leadsheets/leadsheets.library.musejazz.code.tex new file mode 100644 index 00000000000..f329453c8d6 --- /dev/null +++ b/Master/texmf-dist/tex/latex/leadsheets/leadsheets.library.musejazz.code.tex @@ -0,0 +1,259 @@ +\LeadsheetsExplLibrary{musejazz} + {2014/08/10 using MuseScore's MuseJazz font for chordnames} + +\leadsheets_load_library:n {chordnames} + +\msg_new:nnnn { leadsheets } { wrong-engine } + { + the~ `musejazz'~ library~ needs~ either~ to~ be~ run~ with~ XeLaTeX~ or~ + with~ LuaLaTeX. + } + { + the~ `musejazz'~ library~ needs~ either~ to~ be~ run~ with~ XeLaTeX~ or~ + with~ LuaLaTeX.~ Since~ you're~ using~ something~ different~ I~ will~ + abort! + } + +\bool_if:nF { \xetex_if_engine_p: || \luatex_if_engine_p: } + { \msg_error:nn {leadsheets} {wrong-engine} \tex_endinput:D } + +\RequirePackage {fontspec} + +\newfontfamily \musejazz {MuseJazz} + +\cs_new_protected:Npn \leadsheets_char:Nn #1#2 + { \cs_set:Npx #1 { \tex_char:D "#2 \scan_stop: } } + + +% give names to the chararacters of the MuseJazz fonts by using their unicode +% point: + +% \leadsheets_char:Nn \leadsheets_quarter: {2669} % viertel +% \leadsheets_char:Nn \leadsheets_eigth: {266A} % achtel +\leadsheets_char:Nn \leadsheets_flat: {266D} % b +\leadsheets_char:Nn \leadsheets_natural: {266E} % auflösung +\leadsheets_char:Nn \leadsheets_sharp: {266F} % # + +% \leadsheets_char:Nn \leadsheets_sharp: {E10C} % # +% \leadsheets_char:Nn \leadsheets_flat: {E10D} % b +% \leadsheets_char:Nn \leadsheets_natural: {E10E} % auflösung +\leadsheets_char:Nn \leadsheets_segno: {E167} % segno +\leadsheets_char:Nn \leadsheets_coda: {E168} % coda + +% \leadsheets_char:Nn \leadsheets_segno: {E177} % segno +% \leadsheets_char:Nn \leadsheets_coda: {E178} % coda + +\leadsheets_char:Nn \leadsheets_major: {E180} % ma +\leadsheets_char:Nn \leadsheets_minor: {E181} % mi +\leadsheets_char:Nn \leadsheets_tension_eleven: {E182} % ^11 +\leadsheets_char:Nn \leadsheets_tension_thirteen: {E183} % ^13 +\leadsheets_char:Nn \leadsheets_tension_dim: {E184} % ^dim +\leadsheets_char:Nn \leadsheets_sus: {E185} % sus +\leadsheets_char:Nn \leadsheets_tension_aug_symbol: {E186} % ^+ +\leadsheets_char:Nn \leadsheets_tension_dim_symbol: {E187} % ^o +\leadsheets_char:Nn \leadsheets_tension_flat: {E188} % ^b +\leadsheets_char:Nn \leadsheets_tension_sharp: {E189} % ^# +\leadsheets_char:Nn \leadsheets_major_seven: {E18A} % Delta +\leadsheets_char:Nn \leadsheets_tension_add: {E18B} % ^add +\leadsheets_char:Nn \leadsheets_tension_add_eleven: {E18C} % ^(add 11) +\leadsheets_char:Nn \leadsheets_sus_four: {E18D} % sus4 +\leadsheets_char:Nn \leadsheets_dim_symbol: {E18E} % o +\leadsheets_char:Nn \leadsheets_half_dim_symbol: {E18F} % ø + +\leadsheets_char:Nn \leadsheets_tension_zero: {E190} % ^0 +\leadsheets_char:Nn \leadsheets_tension_one: {E191} % ^1 +\leadsheets_char:Nn \leadsheets_tension_two: {E192} % ^2 +\leadsheets_char:Nn \leadsheets_tension_three: {E193} % ^3 +\leadsheets_char:Nn \leadsheets_tension_four: {E194} % ^4 +\leadsheets_char:Nn \leadsheets_tension_five: {E195} % ^5 +\leadsheets_char:Nn \leadsheets_tension_six: {E196} % ^6 +\leadsheets_char:Nn \leadsheets_tension_seven: {E197} % ^7 +\leadsheets_char:Nn \leadsheets_tension_eight: {E198} % ^8 +\leadsheets_char:Nn \leadsheets_tension_nine: {E199} % ^9 + +\leadsheets_char:Nn \leadsheets_do: {E201} % Do +\leadsheets_char:Nn \leadsheets_re: {E202} % Re +\leadsheets_char:Nn \leadsheets_mi: {E203} % Mi +\leadsheets_char:Nn \leadsheets_fa: {E204} % Fa +\leadsheets_char:Nn \leadsheets_sol: {E205} % Sol +\leadsheets_char:Nn \leadsheets_la: {E206} % La +\leadsheets_char:Nn \leadsheets_si: {E207} % Si +\leadsheets_char:Nn \leadsheets_ut: {E208} % Ut +\leadsheets_char:Nn \leadsheets_so: {E209} % So +\leadsheets_char:Nn \leadsheets_ti: {E20A} % Ti + +% \leadsheets_char:Nn \leadsheets_segno: {1D10B} % segno +% \leadsheets_char:Nn \leadsheets_coda: {1D10C} % coda +\leadsheets_char:Nn \leadsheets_whole: {1D15D} % ganze +\leadsheets_char:Nn \leadsheets_half: {1D15E} % halbe +\leadsheets_char:Nn \leadsheets_quarter: {1D15F} % viertel +\leadsheets_char:Nn \leadsheets_eighth: {1D160} % achtel +\leadsheets_char:Nn \leadsheets_sixteenth: {1D161} % sechzenhtel +\leadsheets_char:Nn \leadsheets_dot: {1D16D} % punkt + +\RenewDocumentCommand \flat {} { \leadsheets_flat: } +\RenewDocumentCommand \sharp {} { \leadsheets_sharp: } +\RenewDocumentCommand \natural {} { \leadsheets_natural: } +\NewDocumentCommand \segno {} { \leadsheets_segno: } +\NewDocumentCommand \coda {} { \leadsheets_coda: } +\RenewDocumentCommand \dim {} { \leadsheets_dim_symbol: } +\NewDocumentCommand \halfdim {} { \leadsheets_half_dim_symbol: } +\NewDocumentCommand \wholenote {} { \leadsheets_whole: } +\NewDocumentCommand \halfnote {} { \leadsheets_half: } +\NewDocumentCommand \quarternote {} { \leadsheets_quarter: } +\NewDocumentCommand \eigthnote {} { \leadsheets_eighth: } +\NewDocumentCommand \sixteenthnote {} { \leadsheets_sixteenth: } +\NewDocumentCommand \musicdot {} { \leadsheets_dot: } + +\tl_set:Nn \l__leadsheets_sharp_tl {\leadsheets_sharp:} +\tl_set:Nn \l__leadsheets_flat_tl {\leadsheets_flat:} +\tl_set:Nn \l__leadsheets_doublesharp_tl {\doublesharp} +\tl_set:Nn \l__leadsheets_doubleflat_tl {\doubleflat} +\tl_set:Nn \l__leadsheets_half_dim_tl {\leadsheets_half_dim_symbol:} +\tl_set:Nn \l__leadsheets_full_dim_tl {\leadsheets_dim_symbol:} +\tl_set:Nn \l__leadsheets_aug_tl {\leadsheets_tension_aug_symbol:} +\tl_set:Nn \l__leadsheets_major_tl {\leadsheets_major:} +\tl_set:Nn \l__leadsheets_minor_tl {\leadsheets_minor:} +\tl_set:Nn \l__leadsheets_sus_tl {\leadsheets_sus:} +\tl_set:Nn \l__leadsheets_dim_tl {\leadsheets_tension_dim:} +\tl_set:Nn \l__leadsheets_add_tl {\leadsheets_tension_add:} +\tl_set:Nn \l__leadsheets_major_seven_tl {\leadsheets_major_seven:} +\tl_set:Nn \l__leadsheets_major_nine_tl {\leadsheets_major_seven:\leadsheets_tension_nine:} + +\group_begin: +% for convenient input of sharps: +\char_set_catcode_other:N \# +% because ^ is active in the song environment: +\char_set_catcode_active:N \^ +% # is other so we need another parameter character: +\char_set_catcode_parameter:N \! + +\cs_gset_protected:Npn \leadsheets_chord: + { + \group_begin: + \tl_use:N \l__leadsheets_format_tl + \musejazz + \char_set_catcode_other:N \# + \char_set_catcode_active:N \^ + \leadsheets_chord_aux:n + } + +\cs_gset_protected:Npn \leadsheets_chord_aux:n !1 + { + \tl_set:Nn \l__leadsheets_chord_tl {!1} + \leadsheets_chord_sym:Nnn \l__leadsheets_chord_tl {maj7} + {\l__leadsheets_major_seven_tl} + \leadsheets_chord_sym:Nnn \l__leadsheets_chord_tl {maj9} + {\l__leadsheets_major_nine_tl} + \leadsheets_chord_sym:Nnn \l__leadsheets_chord_tl {sus4} + {\leadsheets_sus_four:} + \leadsheets_chord_sym:Nnn \l__leadsheets_chord_tl {sus} + {\l__leadsheets_sus_tl} + \leadsheets_chord_sym:Nnn \l__leadsheets_chord_tl {^} {\textsuperscript} + \bool_if:NF \l__leadsheets_notation_literal_bool + { + % convert to English to German input: + \bool_if:NT \l__leadsheets_input_notation_german_bool + { + \leadsheets_chord_sym:Nnn \l__leadsheets_chord_tl {B} {@@@} + \leadsheets_chord_sym:Nnn \l__leadsheets_chord_tl {H} {B} + \leadsheets_chord_sym:Nnn \l__leadsheets_chord_tl {@@@} {Bb} + } + % convert to English to German output: + \bool_if:NT \l__leadsheets_output_notation_german_bool + { + \leadsheets_chord_sym:Nnn \l__leadsheets_chord_tl {Bb} {@@@} + \leadsheets_chord_sym:Nnn \l__leadsheets_chord_tl {B} {H} + \leadsheets_chord_sym:Nnn \l__leadsheets_chord_tl {@@@} {B} + \leadsheets_chord_sym:Nnn \l__leadsheets_chord_tl {B#} {H} + } + } + \leadsheets_chord_sym:Nnn \l__leadsheets_chord_tl {#b} {} + \leadsheets_chord_sym:Nnn \l__leadsheets_chord_tl {b#} {} + \leadsheets_chord_sym:Nnn \l__leadsheets_chord_tl {##} + {\l__leadsheets_doublesharp_tl} + \leadsheets_chord_sym:Nnn \l__leadsheets_chord_tl {bb} + {\l__leadsheets_doubleflat_tl} + \leadsheets_chord_sym:Nnn \l__leadsheets_chord_tl {#} {\l__leadsheets_sharp_tl} + \leadsheets_chord_sym:Nnn \l__leadsheets_chord_tl {b} {\l__leadsheets_flat_tl} + \leadsheets_chord_sym:Nnn \l__leadsheets_chord_tl {dim} {\l__leadsheets_dim_tl} + \leadsheets_chord_sym:Nnn \l__leadsheets_chord_tl {add} {\l__leadsheets_add_tl} + % those need to be taken care of: + \leadsheets_chord_sym:Nnn \l__leadsheets_chord_tl {11} {\leadsheets_tension_eleven:} + \leadsheets_chord_sym:Nnn \l__leadsheets_chord_tl {13} {\leadsheets_tension_thirteen:} + \leadsheets_chord_sym:Nnn \l__leadsheets_chord_tl {0} {\leadsheets_tension_zero:} + \leadsheets_chord_sym:Nnn \l__leadsheets_chord_tl {1} {\leadsheets_tension_one:} + \leadsheets_chord_sym:Nnn \l__leadsheets_chord_tl {2} {\leadsheets_tension_two:} + \leadsheets_chord_sym:Nnn \l__leadsheets_chord_tl {3} {\leadsheets_tension_three:} + \leadsheets_chord_sym:Nnn \l__leadsheets_chord_tl {4} {\leadsheets_tension_four:} + \leadsheets_chord_sym:Nnn \l__leadsheets_chord_tl {5} {\leadsheets_tension_five:} + \leadsheets_chord_sym:Nnn \l__leadsheets_chord_tl {6} {\leadsheets_tension_six:} + \leadsheets_chord_sym:Nnn \l__leadsheets_chord_tl {7} {\leadsheets_tension_seven:} + \leadsheets_chord_sym:Nnn \l__leadsheets_chord_tl {8} {\leadsheets_tension_eight:} + \leadsheets_chord_sym:Nnn \l__leadsheets_chord_tl {9} {\leadsheets_tension_nine:} + % as do those: + \leadsheets_chord_sym:Nnn \l__leadsheets_chord_tl {/o} + {\l__leadsheets_half_dim_tl} + \leadsheets_chord_sym:Nnn \l__leadsheets_chord_tl {o} + {\l__leadsheets_full_dim_tl} + \leadsheets_chord_sym:Nnn \l__leadsheets_chord_tl {+} + {\l__leadsheets_aug_tl} + \leadsheets_chord_sym:Nnn \l__leadsheets_chord_tl {(} + { \leadsheets_tension:w( } + \leadsheets_chord_sym:Nnn \l__leadsheets_chord_tl {mi} + {\l__leadsheets_minor_tl} + \leadsheets_chord_sym:Nnn \l__leadsheets_chord_tl {ma} + {\l__leadsheets_major_tl} + \tl_replace_all:Nnn \l__leadsheets_chord_tl + {\textsuperscript\textsuperscript} + {\textsuperscript} + \tl_replace_all:Nnn \l__leadsheets_chord_tl + {\textsuperscript} + {\leadsheets_chord_tension:n} + \tl_use:N \l__leadsheets_chord_tl + \group_end: + } + +\group_end: + +\cs_new:Npn \leadsheets_chord_tension:n #1 + { + \group_begin: + \tl_set:Nn \l__leadsheets_tension_tl {#1} + \leadsheets_chord_sym:Nnn \l__leadsheets_tension_tl + {\textsuperscript} + {\use:n} + \tl_set:Nn \l__leadsheets_sharp_tl {\leadsheets_tension_sharp:} + \tl_set:Nn \l__leadsheets_flat_tl {\leadsheets_tension_flat:} + \l__leadsheets_tension_tl + \group_end: + } + +\cs_set_protected:Npn \leadsheets_tension:w (#1) + { + \group_begin: + \tl_set:Nn \l__leadsheets_tension_tl {#1} + \leadsheets_chord_sym:Nnn \l__leadsheets_tension_tl + {\textsuperscript} + {\use:n} + \tl_set:Nn \l__leadsheets_sharp_tl {\leadsheets_tension_sharp:} + \tl_set:Nn \l__leadsheets_flat_tl {\leadsheets_tension_flat:} + \textsuperscript {(} + \l__leadsheets_tension_tl + \textsuperscript {)} + % \textsuperscript { ( \tl_use:N \l__leadsheets_tension_tl ) } + \group_end: + } + +\cs_new_protected:Npn \mjc_tension:w (#1) + { + \group_begin: + \tl_set:Nn \l__leadsheets_sharp_tl {\leadsheets_tension_sharp:} + \tl_set:Nn \l__leadsheets_flat_tl {\leadsheets_tension_flat:} + \textsuperscript {(} + #1 + \textsuperscript {)} + \group_end: + } + +\tex_endinput:D diff --git a/Master/texmf-dist/tex/latex/leadsheets/leadsheets.library.musicsymbols.code.tex b/Master/texmf-dist/tex/latex/leadsheets/leadsheets.library.musicsymbols.code.tex new file mode 100644 index 00000000000..82a515786a3 --- /dev/null +++ b/Master/texmf-dist/tex/latex/leadsheets/leadsheets.library.musicsymbols.code.tex @@ -0,0 +1,104 @@ +\LeadsheetsLibrary{musicsymbols}{2014/08/10 musical symbols} +\RequirePackage{etoolbox} + +% define a LaTeX font that uses the `musix' font from MusiXTeX: +\DeclareFontFamily{U}{musix}{}% +\DeclareFontShape{U}{musix}{m}{n}{% + <-12> musix11 + <12-15> musix13 + <15-18> musix16 + <18-23> musix20 + <23-> musix29 +}{}% + +% a font switch command: +\newrobustcmd*\musix{\usefont{U}{musix}{m}{n}\selectfont} +% a text font command: +\DeclareTextFontCommand{\textmusix}{\musix} + +% the `symbol' command: raises the symnol since most symbols are too low for +% use in normal text: +\newrobustcmd*\musicsymbol[2][0pt]{% + \raisebox{\dimexpr.5ex+(#1)\relax}{\textmusix{#2}}% +} + +% define the symbol +\renewrobustcmd*\sharp {\musicsymbol[.2ex]{4}\kern-.06em} +\renewrobustcmd*\flat {\kern-.05em\musicsymbol{2}\kern-.06em} +\renewrobustcmd*\natural {\musicsymbol{6}\kern-.06em} +\newrobustcmd*\doublesharp {\musicsymbol{5}\kern-.05em} +\newrobustcmd*\doubleflat {\kern-.05em\musicsymbol{3}\kern-.06em} +\newrobustcmd*\trebleclef {\musicsymbol{H}} +\newrobustcmd*\bassclef {\musicsymbol{J}} +\newrobustcmd*\altoclef {\musicsymbol{K}} +\newrobustcmd*\allabreve {\kern-.15em\musicsymbol{R}} +\newrobustcmd*\meterC {\kern-.15em\musicsymbol{S}} +\newrobustcmd*\wholerest {\musicsymbol{<}} +\newrobustcmd*\halfrest {\musicsymbol{=}} +\newrobustcmd*\quarterrest {\musicsymbol[-1ex]{>}\kern.25em} +\newrobustcmd*\eighthrest {\musicsymbol[-1ex]{?}\kern.33em} +\newrobustcmd*\sixteenthrest {\musicsymbol[-1ex]{@}\kern.33em} + +\newcommand*\leadsheets@size{\f@size pt} +\newlength\leadsheets@barheight + +\newrobustcmd*\genericbar[1]{% + \setlength\leadsheets@barheight\leadsheets@size + \rule[-.2\leadsheets@barheight]{#1}{\leadsheets@barheight}% +} + +\newcommand*\normalbarwidth{.02em} +\newcommand*\thickbarwidth{.15em} +\newcommand*\interbarwidth{.1em} + +\newrobustcmd*\leadsheets@thickbar{% + \genericbar{\thickbarwidth}% +} + +\newrobustcmd*\leadsheets@repeatcolon{% + \leavevmode + \setlength\leadsheets@barheight\leadsheets@size + \raise.1\leadsheets@barheight\hbox{:}% +} + +\newrobustcmd*\leadsheets@interbar{\kern\interbarwidth\relax} + +\newrobustcmd*\normalbar{% + \genericbar{\normalbarwidth}% +} + +\newrobustcmd*\leftrepeat{% + \leadsheets@thickbar + \leadsheets@interbar + \normalbar + \leadsheets@repeatcolon +} + +\newrobustcmd*\rightrepeat{% + \leadsheets@repeatcolon + \normalbar + \leadsheets@interbar + \leadsheets@thickbar +} + +\newrobustcmd*\leftrightrepeat{% + \leadsheets@repeatcolon + \leadsheets@thickbar + \leadsheets@interbar + \leadsheets@thickbar + \leadsheets@repeatcolon +} + +\newrobustcmd*\doublebar{% + \normalbar + \leadsheets@interbar + \normalbar +} + +\newrobustcmd*\stopbar{% + \normalbar + \leadsheets@interbar + \leadsheets@thickbar +} + +\endinput diff --git a/Master/texmf-dist/tex/latex/leadsheets/leadsheets.library.properties.code.tex b/Master/texmf-dist/tex/latex/leadsheets/leadsheets.library.properties.code.tex new file mode 100644 index 00000000000..b904d2320ba --- /dev/null +++ b/Master/texmf-dist/tex/latex/leadsheets/leadsheets.library.properties.code.tex @@ -0,0 +1,167 @@ +\LeadsheetsExplLibrary{properties}{2014/08/10 song properties} + +\cs_generate_variant:Nn \tl_if_eq:nnTF {x} + +\seq_new:N \l__leadsheets_song_properties_seq +\prop_new:N \l__leadsheets_duplicate_properties_prop + +\cs_new_protected:Npn \leadsheets_define_property:n #1 + { + \prop_new:c {l__leadsheets_songs_#1_prop} + \seq_put_right:Nn \l__leadsheets_song_properties_seq {#1} + } + +\cs_new_protected:Npn \leadsheets_set_property:nnn #1#2#3 + { \prop_gput:cnn {l__leadsheets_songs_#2_prop} {#1} {#3} } +\cs_generate_variant:Nn \leadsheets_set_property:nnn { nnx } + +\cs_new:Npn \leadsheets_get_property:nn #1#2 + { \prop_item:cn {l__leadsheets_songs_#2_prop} {#1} } +\cs_generate_variant:Nn \leadsheets_get_property:nn { V } + +\prg_new_conditional:Npnn \leadsheets_if_property:nn #1#2 {p,T,F,TF} + { + \prop_if_in:cnTF {l__leadsheets_songs_#2_prop} {#1} + { \prg_return_true: } + { \prg_return_false: } + } +\cs_generate_variant:Nn \leadsheets_if_property:nnTF { V } +\cs_generate_variant:Nn \leadsheets_if_property:nnT { V } +\cs_generate_variant:Nn \leadsheets_if_property_p:nn { V } + +\prg_new_conditional:Npnn \leadsheets_if_measuring: {T,F,TF} + { + \bool_if:NTF \l__leadsheets_measuring_bool + { \prg_return_true: } + { \prg_return_false: } + } + +\prg_new_protected_conditional:Npnn \leadsheets_if_properties_eq:nnn #1#2#3 {T,F,TF} + { + \tl_if_eq:xxTF + { \leadsheets_get_property:nn {#1} {#2} } + { \leadsheets_get_property:nn {#1} {#3} } + { \prg_return_true: } + { \prg_return_false: } + } +\cs_generate_variant:Nn \leadsheets_if_properties_eq:nnnTF { V } + +\prg_new_protected_conditional:Npnn \leadsheets_if_property_eq:nnn #1#2#3 {T,F,TF} + { + \tl_if_eq:xnTF + { \leadsheets_get_property:nn {#1} {#2} } + { #3 } + { \prg_return_true: } + { \prg_return_false: } + } +\cs_generate_variant:Nn \leadsheets_if_property_eq:nnnTF { V } + +\cs_new_protected:Npn \leadsheets_copy_property:nnn #1#2#3 + { + \bool_if:nT + { + !\leadsheets_if_property_p:nn {#1} {#3} + && + \leadsheets_if_property_p:nn {#1} {#2} + } + { + \leadsheets_set_property:nnx {#1} {#3} + { \leadsheets_get_property:nn {#1} {#2} } + } + } + +\cs_new_protected:Npn \leadsheets_duplicate_property:nn #1#2 + { \prop_put:Nnn \l__leadsheets_duplicate_properties_prop {#1} {#2} } + +\cs_new_protected:Npn \leadsheets_set_duplicate_properties:n #1 + { + \prop_map_inline:Nn \l__leadsheets_duplicate_properties_prop + { \leadsheets_copy_property:nnn {#1} {##1} {##2} } + } + +\cs_new_protected:Npn \leadsheets_print_property_list:nnnnnn #1#2#3#4#5#6 + { + \seq_set_split:Nnx \l__leadsheets_tmpa_seq {~and~} + { \leadsheets_get_property:nn {#1} {#2} } + \seq_clear:N \l__leadsheets_tmpb_seq + \seq_map_inline:Nn \l__leadsheets_tmpa_seq + { \seq_put_right:Nn \l__leadsheets_tmpb_seq { #3 {##1} } } + \seq_use:Nnnn \l__leadsheets_tmpb_seq {#4} {#5} {#6} + } +\cs_generate_variant:Nn \leadsheets_print_property_list:nnnnnn { V } + +\cs_new_protected:Npn \leadsheets_use_property_list:nnnn #1#2#3#4 + { + \seq_set_split:Nnx \l__leadsheets_tmpa_seq {~and~} + { \leadsheets_get_property:nn {#1} {#2} } + \seq_clear:N \l__leadsheets_tmpb_seq + \seq_map_inline:Nn \l__leadsheets_tmpa_seq + { \seq_put_right:Nn \l__leadsheets_tmpb_seq { #3 {##1} } } + \seq_use:Nn \l__leadsheets_tmpb_seq {#4} + } +\cs_generate_variant:Nn \leadsheets_use_property_list:nnnn { V } + +\cs_new:Npn \leadsheets_for_property_list:nn #1#2 + { \__leadsheets_for_property_list_aux:nww {#2} #1 ~and~ \q_stop } +\cs_generate_variant:Nn \leadsheets_for_property_list:nn { f } + +\cs_new:Npn \__leadsheets_for_property_list_aux:nww #1#2 ~and~ #3 \q_stop + { + #1 { #2 } + \tl_if_blank:nF {#3} + { \__leadsheets_for_property_list_aux:nww {#1} #3 \q_stop } + } + +\DeclareExpandableDocumentCommand \songproperty {m} + { \leadsheets_get_property:Vn \l_leadsheets_current_song_id_tl {#1} } + +% #1: command that formats every entry in list +% #2: property +% #3: separator between two +% #4: separator between more than tow +% #5: separator between last two +\NewDocumentCommand \printsongpropertylist {O{\use:n}mmmm} + { + \leadsheets_print_property_list:Vnnnnn \l_leadsheets_current_song_id_tl + {#2} {#1} {#3} {#4} {#5} + } + +% #1: command that formats every entry in list +% #2: property +% #3: separator +\NewDocumentCommand \usesongpropertylist {O{\use:n}mm} + { + \leadsheets_use_property_list:Vnnn \l_leadsheets_current_song_id_tl + {#2} {#1} {#3} + } + +% #1: command that formats every entry in list +% #2: property +\DeclareExpandableDocumentCommand \forsongpropertylist {mm} + { + \leadsheets_for_property_list:fn + { \leadsheets_get_property:Vn \l_leadsheets_current_song_id_tl {#1} } + {#2} + } + +\DeclareExpandableDocumentCommand \ifsongproperty {m} + { \leadsheets_if_property:VnTF \l_leadsheets_current_song_id_tl {#1} } + +\DeclareExpandableDocumentCommand \ifsongmeasuring {} + { \leadsheets_if_measuring:TF } + +\NewDocumentCommand \ifsongpropertiesequal {mm} + { \leadsheets_if_properties_eq:VnnTF \l_leadsheets_current_song_id_tl {#1} {#2} } + +\NewDocumentCommand \ifsongpropertyequal {mm} + { \leadsheets_if_property_eq:VnnTF \l_leadsheets_current_song_id_tl {#1} {#2} } + +\NewDocumentCommand \definesongproperty {m} + { \leadsheets_define_property:n {#1} } +\@onlypreamble\definesongproperty + +\NewDocumentCommand \copysongproperty {mm} + { \leadsheets_duplicate_property:nn {#1} {#2} } +\@onlypreamble\copysongproperty + +\endinput diff --git a/Master/texmf-dist/tex/latex/leadsheets/leadsheets.library.shorthands.code.tex b/Master/texmf-dist/tex/latex/leadsheets/leadsheets.library.shorthands.code.tex new file mode 100644 index 00000000000..3766ddcc0b3 --- /dev/null +++ b/Master/texmf-dist/tex/latex/leadsheets/leadsheets.library.shorthands.code.tex @@ -0,0 +1,40 @@ +\LeadsheetsExplLibrary{shorthands} + {2014/08/10 definition and activation of shorthands} + +\seq_new:N \l__leadsheets_shorthands_seq + +\group_begin: +\char_set_catcode_active:N \~ + +\cs_new_protected:Npn \leadsheets_define_shorthand:Npn #1 + { + \seq_if_in:NnF \l__leadsheets_shorthands_seq {#1} + { \seq_put_right:Nn \l__leadsheets_shorthands_seq {#1} } + \group_begin: + \__leadsheets_define_shorthand_aux_i:np {#1} + } + +\cs_new_protected:Npn \__leadsheets_define_shorthand_aux_i:np #1#2#{ + \char_set_lccode:nn {`~} {`#1} + \__leadsheets_define_shorthand_aux_ii:nn {#2} + } + +\cs_new_protected:Npn \__leadsheets_define_shorthand_aux_ii:nn #1#2 + { \tl_to_lowercase:n { \group_end: \cs_set:Npn ~ } #1 {#2} } +\group_end: + +\cs_new_protected:Npn \leadsheets_activate_shorthands:n #1 + { + \tl_map_inline:nn {#1} + { + \seq_if_in:NnT \l__leadsheets_shorthands_seq {##1} + { \char_set_catcode_active:N ##1 } + } + } +\cs_new_protected:Npn \leadsheets_activate_all_shorthands: + { + \seq_map_inline:Nn \l__leadsheets_shorthands_seq + { \char_set_catcode_active:N ##1 } + } + +\endinput diff --git a/Master/texmf-dist/tex/latex/leadsheets/leadsheets.library.songs.code.tex b/Master/texmf-dist/tex/latex/leadsheets/leadsheets.library.songs.code.tex new file mode 100644 index 00000000000..a669e3cdb8e --- /dev/null +++ b/Master/texmf-dist/tex/latex/leadsheets/leadsheets.library.songs.code.tex @@ -0,0 +1,631 @@ +\LeadsheetsExplLibrary{songs}{2014/08/10 typesetting songs} + +% -------------------------------------------------------------------------- +% messages: +\msg_new:nnn {leadsheets} {unknown-verse-type} + { + The~ verse~ type~ `#1'~ is~ unknown.~ Using~ `verse'~ instead~ + \msg_line_context: + } + +\msg_new:nnn {leadsheets} {song-defined} + { + A~ song~ with~ the~ ID~ `#1'~ has~ already~ been~ defined! Check~ your~ + source~ \msg_line_context: + } + +\msg_new:nnn {leadsheets} {transpose-key} + { + You~ need~ to~ specify~ the~ `key'~ property~ for~ song~ `#1'~ + ( \leadsheets_get_property:nn {#1} {title} )~ in~ order~ to~ use~ the~ + transposing~ mechanism~ \msg_line_context: + } + +% -------------------------------------------------------------------------- +% variables: +\tl_const:Nn \c_leadsheets_sharp_tl {sharp} +\tl_const:Nn \c_leadsheets_flat_tl {flat} + +\tl_new:N \l__leadsheets_songtext_format_tl +\tl_new:N \l__leadsheets_song_format_tl +\tl_new:N \l_leadsheets_current_song_id_tl +\tl_new:N \l_leadsheets_verse_type_tl +\tl_set:Nn \l_leadsheets_verse_type_tl {verse} +\tl_new:N \l__leadsheets_verses_format_tl +\tl_new:N \l__leadsheets_verses_label_format_tl +\tl_new:N \l__leadsheets_verses_after_label_tl +\tl_set:Nn \l__leadsheets_verses_after_label_tl {:} +\tl_new:N \l__leadsheets_enharmonic_tl +\tl_new:N \l__leadsheets_capo_number_format_tl +\tl_new:N \l__leadsheets_recall_verse_type_tl +\tl_new:N \l__leadsheets_song_body_tl + +\bool_new:N \l__leadsheets_print_selected_bool +\bool_new:N \l__leadsheets_transpose_bool +\bool_new:N \l__leadsheets_transpose_capo_bool +\bool_new:N \l__leadsheets_enharmonic_bool +\bool_new:N \l__leadsheets_obey_lines_bool +\bool_new:N \l__leadsheets_bar_shorthands_bool +\bool_new:N \l__leadsheets_measuring_bool + +\clist_new:N \l__leadsheets_print_tags_clist + +\seq_new:N \l__leadsheets_defined_songs_seq +\seq_new:N \l__leadsheets_songs_print_seq +\seq_new:N \l__leadsheets_reset_counters_seq + +\int_new:N \l__leadsheets_transpose_steps_int +\int_new:N \l__leadsheets_capo_int +\int_new:N \g__leadsheets_song_id_int + +\skip_new:N \l__leadsheets_obey_parskip_skip + +% -------------------------------------------------------------------------- +% load necessary libraries: +\leadsheets_load_libraries:n + { + musicsymbols, + chordnames, + chords, + shorthands, + properties, + transposing, + templates, + translations + } + +% -------------------------------------------------------------------------- +% define shorthands +\leadsheets_define_shorthand:Npn ^ {\leadsheets_remember_or_recall_chords:w} +\leadsheets_define_shorthand:Npn _ {\writechord} +\leadsheets_define_shorthand:Npn | #1 + { + \str_case:nnF {#1} + { + {:} {\leftrepeat} + {|} {\__leadsheets_checkbartype:} + } + {\normalbar\space #1} + } +\cs_new_protected:Npn \__leadsheets_checkbartype: + { + \peek_charcode_remove:NTF | + {\stopbar} + {\doublebar} + } + +\leadsheets_define_shorthand:Npn : + { + \peek_charcode_remove:NTF | + {\__leadsheets_checkrepeat:} + {\token_to_str:N :} + } +\cs_new_protected:Npn \__leadsheets_checkrepeat: + { + \peek_charcode_remove:NTF : + {\leftrightrepeat} + {\rightrepeat} + } + +% -------------------------------------------------------------------------- +% the `song' environment: +\NewDocumentEnvironment {song} { O{}m } + { + \int_gincr:N \g__leadsheets_song_id_int + \tl_set:Nx \l__leadsheets_tmpa_tl + { song-\int_to_arabic:n { \g__leadsheets_song_id_int } } + \leadsheets_startsong:nVn {#1} \l__leadsheets_tmpa_tl {#2} + } + {} + +% some hacks for the `obey-lines' option: +\group_begin: +\ExplSyntaxOff +\catcode`\:=11 +\catcode`\_=11 +\cs_new:Npn \__leadsheets_active_eol: { \catcode`\^^M=\active } + +\__leadsheets_active_eol: % +\tl_const:Nn \c__leadsheets_eol_tl {^^M}% +\cs_new_protected:Npn \leadsheets_obey_lines: {% + \skip_set_eq:NN \l__leadsheets_obey_parskip_skip \parskip + \cs_set:Npn ^^M{% + \peek_meaning:NTF ^^M% + {\par \skip_vertical:N \l__leadsheets_obey_parskip_skip}% + {\par}% + }% +}% +\cs_new_protected:Npn \leadsheets_ignore_lines:{% + \cs_set:Npn ^^M{% + \peek_meaning:NTF^^M% + {\par}% + {\c_space_tl}% + }% +}% +\group_end: + +% #1: options +% #2: ID +% #3: properties +\cs_new_protected:Npn \leadsheets_startsong:nnn #1#2#3 + { + \leadsheets_song_define:nn {#2} {#3} + \leadsheets_set_duplicate_properties:n {#2} + \leadsheets_check_print:n {#2} + \prop_gclear:N \g__leadsheets_chords_sequences_prop + \group_begin: + \keys_set:nn {leadsheets} {#1} + \leadsheets_specials: + \tl_use:N \l__leadsheets_song_format_tl + \leadsheets_ignore_lines: + \leadsheets_print_song:nwn {#2} + } +\cs_generate_variant:Nn \leadsheets_startsong:nnn { nV } + +\cs_new_protected:Npn \leadsheets_specials: + { + \leadsheets_activate_shorthands:n {^_} + \bool_if:NT \l__leadsheets_bar_shorthands_bool + { \leadsheets_activate_shorthands:n {:|} } + \char_set_catcode_other:N \# + \bool_if:NT \l__leadsheets_obey_lines_bool + { \__leadsheets_active_eol: } + } + +% -------------------------------------------------------------------------- +% define song properties: +\definesongproperty {title} +\definesongproperty {subtitle} +\definesongproperty {short-title} +\definesongproperty {sort-title} +\definesongproperty {sort-short-title} +\definesongproperty {composer} +\definesongproperty {sort-composer} +\definesongproperty {music} +\definesongproperty {sort-music} +\definesongproperty {lyrics} +\definesongproperty {sort-lyrics} +\definesongproperty {arr} +\definesongproperty {sort-arr} +\definesongproperty {band} +\definesongproperty {sort-band} +\definesongproperty {genre} +\definesongproperty {interpret} +\definesongproperty {sort-interpret} +\definesongproperty {key} +\definesongproperty {capo} +\definesongproperty {tempo} +\definesongproperty {tags} +\definesongproperty {counter} +\definesongproperty {ID} + +% properties that should take the value of another property if they're not set +% explicitly: +\copysongproperty {composer} {sort-composer} +\copysongproperty {lyrics} {sort-lyrics} +\copysongproperty {music} {sort-music} +\copysongproperty {title} {sort-title} +\copysongproperty {short-title} {sort-short-title} +\copysongproperty {arr} {sort-arr} +\copysongproperty {interpret} {sort-interpret} + +% -------------------------------------------------------------------------- +% defining a new song: +\cs_new_protected:Npn \leadsheets_song_define:nn #1#2 + { + \seq_if_in:NnTF \l__leadsheets_defined_songs_seq {#1} + { \msg_error:nnn {leadsheets} {song-defined} {#1} } + { \seq_put_right:Nn \l__leadsheets_defined_songs_seq {#1} } + \leadsheets_define_song_properties:n {#1} + \keys_set:nn {leadsheets/song/#1} {#2} + \leadsheets_set_property:nnn {#1} {ID} {#1} + \leadsheets_set_property:nnx {#1} {counter} + { \int_to_arabic:n {\g__leadsheets_song_id_int} } + } + +\cs_new_protected:Npn \leadsheets_define_song_properties:n #1 + { + \seq_map_inline:Nn \l__leadsheets_song_properties_seq + { + \keys_define:nn {leadsheets/song/#1} + { ##1 .code:n = \leadsheets_set_property:nnn {#1} {##1} {####1} } + } + } + +% -------------------------------------------------------------------------- +\cs_new:Npn \leadsheets_print_song:nwn #1#2\end#3 + { + \tl_clear:N \l__leadsheets_song_body_tl + \leadsheets_if_print_song:nT {#1} + { + \tl_set:Nn \l_leadsheets_current_song_id_tl {#1} + \tl_put_right:Nn \l__leadsheets_song_body_tl + { + \leadsheets_songtitle: + \leadsheets_check_capo: + \tl_use:N \l__leadsheets_songtext_format_tl + #2 + } + } + \tl_if_eq:nnTF {#3} {song} + { + \leadsheets_if_print_song:nT {#1} + { \leadsheets_end_song:n {#1} } + \group_end: + \end{song} + } + { + \tl_put_right:Nn \l__leadsheets_song_body_tl { \end{#3} } + \__leadsheets_continue_song:nwn {#1} + } + } + +\cs_new:Npn \__leadsheets_continue_song:nwn #1#2\end#3 + { + \leadsheets_if_print_song:nT {#1} + { \tl_put_right:Nn \l__leadsheets_song_body_tl {#2} } + \tl_if_eq:nnTF {#3} {song} + { + \leadsheets_if_print_song:nT {#1} + { \leadsheets_end_song:n {#1} } + \group_end: + \end{song} + } + { + \tl_put_right:Nn \l__leadsheets_song_body_tl { \end{#3} } + \__leadsheets_continue_song:nwn {#1} + } + } + +\cs_new:Npn \leadsheets_end_song:n #1 + { + \bool_set_true:N \l__leadsheets_measuring_bool + \leadsheets_reset_counters: + \box_clear:N \l__leadsheets_tmpa_box + \vbox_set:NV \l__leadsheets_tmpa_box \l__leadsheets_song_body_tl + \leadsheets_set_property:nnx {#1} {height} + { + \dim_to_decimal:n + { + \box_ht:N \l__leadsheets_tmpa_box + + \box_dp:N \l__leadsheets_tmpa_box + } + pt + } + \bool_set_false:N \l__leadsheets_measuring_bool + \leadsheets_reset_counters: + \tl_use:N \l__leadsheets_song_body_tl + } + +\cs_new_protected:Npn \leadsheets_add_to_reset:n #1 + { \seq_put_right:Nn \l__leadsheets_reset_counters_seq {#1} } + +\cs_new_protected:Npn \leadsheets_reset_counters: + { + \seq_map_inline:Nn \l__leadsheets_reset_counters_seq + { \setcounter {##1} {0} } + } + +\prg_new_conditional:Npnn \leadsheets_if_print_song:n #1 {T,F,TF} + { + \seq_if_in:NnTF \l__leadsheets_songs_print_seq {#1} + { \prg_return_true: } + { \prg_return_false: } + } + +\cs_new_protected:Npn \leadsheets_check_print:n #1 + { + \leadsheets_if_print_tags:nT {#1} + { \seq_put_right:Nn \l__leadsheets_songs_print_seq {#1} } + } + +\prg_new_protected_conditional:Npnn \leadsheets_if_print_tags:n #1 {T,F,TF} + { + \bool_if:NTF \l__leadsheets_print_selected_bool + { + \leadsheets_if_property:nnTF {#1} {tags} + { + \bool_set_false:N \l__leadsheets_tmpa_bool + \tl_set:Nx \l__leadsheets_tmpa_tl + { \leadsheets_get_property:nn {#1} {tags} } + \clist_map_inline:Nn \l__leadsheets_print_tags_clist + { + \clist_if_in:NnT \l__leadsheets_tmpa_tl {##1} + { + \bool_set_true:N \l__leadsheets_tmpa_bool + \clist_map_break: + } + } + \bool_if:NTF \l__leadsheets_tmpa_bool + { \prg_return_true: } + { \prg_return_false: } + } + { \prg_return_false: } + } + { \prg_return_true: } + } + +\keys_define:nn { leadsheets } + { + print-tags .code:n = + \bool_set_true:N \l__leadsheets_print_selected_bool + \clist_set:Nn \l__leadsheets_print_tags_clist {#1} + } + +% -------------------------------------------------------------------------- +% predefined title templates +\definesongtitletemplate {minimal} + { \section*{ \songproperty {title} } } + +\definesongtitletemplate {tabular} + { + \ifsongmeasuring + { \section* } + { \section } + { \songproperty {title} } + \begingroup\footnotesize + \begin{tabular}{ + @{} + >{\raggedright\arraybackslash}p{.5\linewidth} + @{} + >{\raggedleft\arraybackslash}p{.5\linewidth} + @{} + } + \ifsongproperty{interpret} + {\GetTranslation{leadsheets/interpret}} + {} + \ifsongproperty{composer} + { + & \GetTranslation{leadsheets/composer}:~ + \printsongpropertylist{composer}{~\&~}{,~}{~\&~} + \ifsongproperty{lyrics} + {\\ & \GetTranslation{leadsheets/lyrics}:~ + \printsongpropertylist{lyrics}{~\&~}{,~}{~\&~} + } + {} + } + {} + \ifsongproperty{interpret}{\\}{\ifsongproperty{composer}{\\}{}} + \ifsongproperty{genre} + {& Genre:~ \songproperty{genre} \\} + {} + \ifsongproperty{tempo} + {& Tempo:~ \songproperty{tempo} \\} + {} + \ifsongproperty{key} + { + & + \setchordnames{ + major = -\GetTranslation{leadsheets/major} , + minor = -\GetTranslation{leadsheets/minor} + } + \GetTranslation{leadsheets/key}:~ + \expandcode{\writechord{\songproperty{key}}} \\ + } + {} + \end{tabular} + \par\endgroup + } + +% -------------------------------------------------------------------------- +% capo settings: +\cs_new_protected:Npn \leadsheets_check_capo: + { + \leadsheets_if_property:VnTF \l_leadsheets_current_song_id_tl {capo} + { + \int_set:Nn \l__leadsheets_capo_int + { \leadsheets_get_property:Vn \l_leadsheets_current_song_id_tl {capo} } + } + { \int_zero:N \l__leadsheets_capo_int } + \int_set:Nn \l__leadsheets_transpose_steps_int + { + \bool_if:NTF \l__leadsheets_transpose_bool + { \l__leadsheets_transpose_steps_int } + {12} + - \l__leadsheets_capo_int + } + } + +\cs_new:Npn \leadsheets_capo_number_print:n #1 {#1.} + +\cs_new_protected:Npn \leadsheets_capo: + { + \leadsheets_if_property:VnT \l_leadsheets_current_song_id_tl {capo} + { + \leadsheets_translation:n {capo} :~ + \leadsheets_capo_number_print:n + { + \use:c {int_to_ \l__leadsheets_capo_number_format_tl :n} + { \l__leadsheets_capo_int } + } + \nobreakspace + \leadsheets_translation:n {fret} + } + } + +\NewDocumentCommand \capo {} { \leadsheets_capo: } + +% -------------------------------------------------------------------------- +% verses and the like: +\cs_new_protected:Npn \leadsheets_verse_label:n #1 + { + \bool_if:cF {l__leadsheets_#1_empty_bool} + { + \tl_use:c {l__leadsheets_#1_label_format_tl} + \bool_if:cT {l__leadsheets_#1_named_bool} + { + \leadsheets_translation:n {#1} + \bool_if:cT {l__leadsheets_#1_numbered_bool} { ~ } + } + \bool_if:cT {l__leadsheets_#1_numbered_bool} + { \use:c {the#1} } + \tl_use:c {l__leadsheets_#1_after_label_tl} + } + } + +\cs_new_protected:Npn \leadsheets_verse_begin:n #1 + { + \stepcounter {#1} + \tl_set:Nn \verselabel { \leadsheets_verse_label:n {#1} } + \tl_set:Nn \verselabelformat + { \tl_use:c {l__leadsheets_#1_label_format_tl} } + \tl_set:Nn \versenumber { \use:c {the#1} } + \tl_set:Nn \verseafterlabel { \tl_use:c {l__leadsheets_#1_after_label_tl} } + \tl_set:Nn \versename { \leadsheets_translation:n {#1} } + \tl_set:Nn \ifversestarred { \bool_if:cTF {l__leadsheets_#1_empty_bool} } + \tl_set:Nn \ifversenamed { \bool_if:cTF {l__leadsheets_#1_named_bool} } + \tl_set:Nn \ifversenumbered + { \bool_if:cTF {l__leadsheets_#1_numbered_bool} } + \leadsheets_obey_lines: + \leadsheets_use_verse_template:nn {begin} {#1} + } + +\cs_new_protected:Npn \leadsheets_verse_end:n #1 + { + \leadsheets_ignore_lines: + \leadsheets_use_verse_template:nn {end} {#1} + \ignorespacesafterend + } + +\cs_new_protected:Npn \leadsheets_new_verse_type:Nnn #1#2#3 + { + \bool_new:c {l__leadsheets_#2_empty_bool} + \bool_new:c {l__leadsheets_#2_numbered_bool} + \bool_new:c {l__leadsheets_#2_named_bool} + \bool_set_true:c {l__leadsheets_#2_named_bool} + \bool_if:NTF #1 + { \bool_set_true:c {l__leadsheets_#2_empty_bool} } + { \bool_set_false:c {l__leadsheets_#2_empty_bool} } + \tl_new:c {l__leadsheets_#2_format_tl} + \tl_new:c {l__leadsheets_#2_template_tl} + \tl_new:c {l__leadsheets_#2_label_format_tl} + \tl_new:c {l__leadsheets_#2_after_label_tl} + \newcounter {#2} + \leadsheets_add_to_reset:n {#2} + \tl_set:cn {the#2} { \arabic {#2} . } + \keys_define:nn {leadsheets/#2} + { + numbered .bool_set:c = {l__leadsheets_#2_numbered_bool} , + named .bool_set:c = {l__leadsheets_#2_named_bool} , + format .code:n = + \tl_set:cn {l__leadsheets_#2_format_tl} {##1} , + format .initial:n = \l__leadsheets_verses_format_tl , + label-format .code:n = + \tl_set:cn {l__leadsheets_#2_label_format_tl} {##1} , + label-format .initial:n = \l__leadsheets_verses_label_format_tl , + after-label .code:n = + \tl_set:cn {l__leadsheets_#2_after_label_tl} {##1} , + after-label .initial:n = \l__leadsheets_verses_after_label_tl , + template .code:n = + \tl_set:cn {l__leadsheets_#2_template_tl} {##1} , + template .initial:n = itemize , + recall-chords .tl_set:N = \l__leadsheets_recall_verse_type_tl , + name .code:n = + \@trnslt@declare@translation {leadsheets/#2} {fallback} {##1} + \@trnslt@declare@translation {leadsheets/#2} {English} {##1} + } + \NewDocumentEnvironment {#2} {O{}} + { + \par + \tl_set:Nn \l_leadsheets_verse_type_tl {#2} + \tl_set:Nn \l__leadsheets_recall_verse_type_tl {#2} + \keys_set:nn {leadsheets/#2} {##1} + \leadsheets_if_record_chords:T + { \seq_clear:N \l__leadsheets_chords_sequences_seq } + \leadsheets_if_recall_chords:T + { + \prop_get:NVN + \g__leadsheets_chords_sequences_prop + \l__leadsheets_recall_verse_type_tl + \l__leadsheets_tmpa_tl + \seq_clear:N \l__leadsheets_chords_sequences_seq + \tl_map_inline:Nn \l__leadsheets_tmpa_tl + { \seq_put_right:Nn \l__leadsheets_chords_sequences_seq {####1} } + } + \leadsheets_verse_begin:n {#2} + \tl_use:c {l__leadsheets_#2_format_tl} + } + { + \leadsheets_if_record_chords:T + { + \prop_gput:NVf \g__leadsheets_chords_sequences_prop + \l_leadsheets_verse_type_tl + { \seq_use:Nn \l__leadsheets_chords_sequences_seq {} } + } + \leadsheets_verse_end:n {#2} + \par + } + \@trnslt@declare@translation {leadsheets/#2} {fallback} {} + \@trnslt@declare@translation {leadsheets/#2} {English} {} + \keys_set:nn {leadsheets/#2} {#3} + } + +\NewDocumentCommand \newversetype {smO{}} + { \leadsheets_new_verse_type:Nnn #1 {#2} {#3} } + +\cs_undefine:N \verse +\cs_undefine:N \endverse + +\newversetype {verse} [ name=Verse, named=false, after-label= ] +\newversetype*{verse*} +\newversetype {chorus} [ name=Chorus ] +\newversetype*{chorus*} +\newversetype {intro} [ name=Intro ] +\newversetype*{intro*} [ name=Intro ] +\newversetype {outro} [ name=Outro ] +\newversetype {interlude} [ name=Interlude ] +\newversetype {bridge} [ name=Bridge ] +\newversetype*{info} +\newversetype*{solo*} +\newversetype {solo} [ name=Solo ] + +% -------------------------------------------------------------------------- +% predefined verse templates: +\defineversetypetemplate {itemize} + { + \itemize + \int_zero:N \@itemdepth + \bool_if:NT \l__leadsheets_obey_lines_bool + { + \dim_zero:N \parskip + \keys_set:nn {leadsheets} + { obey-lines-parskip = \parsep } + } + \item[{\verselabel}] + } + { \enditemize } + +% -------------------------------------------------------------------------- + +\keys_define:nn { leadsheets } + { + title-template .tl_set:N = \l__leadsheets_songtitle_template_tl , + title-template .initial:n = minimal , + text-format .tl_set:N = \l__leadsheets_songtext_format_tl , + song-format .tl_set:N = \l__leadsheets_song_format_tl , + verse/type .choice: , + verse/type/verse .code:n = + \tl_set:Nn \l_leadsheets_verse_type_tl {verse} , + verse/type/unknown .code:n = + \msg_warning:nnn {leadsheets} {unknown-verse-type} {#1} + \tl_set:Nn \l_leadsheets_verse_type_tl {verse} , + verse/format .tl_set:N = \l__leadsheets_verse_format_tl , + verse/format .initial:n = \l__leadsheets_verses_format_tl , + verse/label-format .tl_set:N = \l__leadsheets_verse_label_format_tl , + verse/label-format .initial:n = \l__leadsheets_verses_label_format_tl , + verses-format .tl_set:N = \l__leadsheets_verses_format_tl , + verses-label-format .tl_set:N = \l__leadsheets_verses_label_format_tl , + verses-after-label .tl_set:N = \l__leadsheets_verses_after_label_tl , + obey-lines .bool_set:N = \l__leadsheets_obey_lines_bool , + obey-lines-parskip .skip_set:N = \l__leadsheets_obey_parskip_skip , + bar-shortcuts .bool_set:N = \l__leadsheets_bar_shorthands_bool , + capo-nr-format .choices:nn = + { arabic , roman , Roman } + { \tl_set:NV \l__leadsheets_capo_number_format_tl \l_keys_choice_tl } , + capo-nr-format .initial:n = {Roman} , + capo-nr .code:n = + \cs_set_protected:Npn \leadsheets_capo_number_print:n ##1 {#1} , + capo-nr .initial:n = #1. + } + +\endinput diff --git a/Master/texmf-dist/tex/latex/leadsheets/leadsheets.library.templates.code.tex b/Master/texmf-dist/tex/latex/leadsheets/leadsheets.library.templates.code.tex new file mode 100644 index 00000000000..618350e1deb --- /dev/null +++ b/Master/texmf-dist/tex/latex/leadsheets/leadsheets.library.templates.code.tex @@ -0,0 +1,87 @@ +\LeadsheetsExplLibrary{templates} + {2014/08/10 template mechanism for song titles and verses} + +\msg_new:nnn {leadsheets} {unknown-template} + { Unknown~ #1~ template~ `#2'~ \msg_line_context: } + +\tl_new:N \l__leadsheets_songtitle_template_tl +\prop_new:N \l__leadsheets_songtitle_template_prop + +\NewDocumentCommand \songtitle {} { \leadsheets_songtitle: } + +% the following is shamelessly adapted from the `needspace' package by +% Peter Wilson and Herries Press: +\cs_new:Npn \leadsheets_needspace:n #1 + { + \group_begin: + \dim_set:Nn \l__leadsheets_tmpa_dim { #1 } + \skip_vertical:n { \c_zero_dim + \l__leadsheets_tmpa_dim } + \tex_penalty:D -100 + \skip_vertical:n { \c_zero_dim - \l__leadsheets_tmpa_dim } + \skip_vertical:N \l__leadsheets_tmpa_dim + \tex_penalty:D 9999 + \skip_vertical:n { - \l__leadsheets_tmpa_dim } + \skip_vertical:N \c_zero_dim + \group_end: + } + +\cs_new_protected:Npn \leadsheets_songtitle: + { + \leadsheets_use_songtitle_template:V \l__leadsheets_songtitle_template_tl + \leadsheets_needspace:n { 3\baselineskip } + } + +\cs_new_protected:Npn \leadsheets_use_songtitle_template:n #1 + { + \prop_get:NnNTF \l__leadsheets_songtitle_template_prop + {#1} + \l__leadsheets_tmpa_tl + { \l__leadsheets_tmpa_tl } + { \msg_error:nnnn {leadsheets} {unknown-template} {songtitle} {#1} } + } +\cs_generate_variant:Nn \leadsheets_use_songtitle_template:n { V } + +\cs_new_protected:Npn \leadsheets_define_songtitle_template:nn #1#2 + { \prop_put:Nnn \l__leadsheets_songtitle_template_prop {#1} {#2} } + + +\NewDocumentCommand \definesongtitletemplate {m+m} + { \leadsheets_define_songtitle_template:nn {#1} {#2} } + +\NewDocumentCommand \expandcode {+m} { \use:x {#1} } + + +% verse-type templates +\prop_new:N \l__leadsheets_verse_begin_template_prop +\prop_new:N \l__leadsheets_verse_end_template_prop + +% #1: template name +% #2: begin code +% #3: end code +\cs_new_protected:Npn \leadsheets_define_verse_template:nnn #1#2#3 + { + \prop_put:Nnn \l__leadsheets_verse_begin_template_prop {#1} {#2} + \prop_put:Nnn \l__leadsheets_verse_end_template_prop {#1} {#3} + } + +\cs_new_protected:Npn \leadsheets_use_verse_template:nn #1#2 + { + \exp_args:Nnc + \prop_get:cVNTF {l__leadsheets_verse_#1_template_prop} + {l__leadsheets_#2_template_tl} + \l__leadsheets_tmpa_tl + { \tl_use:N \l__leadsheets_tmpa_tl } + { + \msg_error:nnxx {leadsheets} {unknown-template} + {verse-type} + {\use:c{l__leadsheets_#2_template_tl}} + } + } + +\DeclareExpandableDocumentCommand \ifobeylines {} + { \bool_if:NTF \l__leadsheets_obey_lines_bool } + +\NewDocumentCommand \defineversetypetemplate {m+m+m} + { \leadsheets_define_verse_template:nnn {#1} {#2} {#3} } + +\endinput diff --git a/Master/texmf-dist/tex/latex/leadsheets/leadsheets.library.translations.code.tex b/Master/texmf-dist/tex/latex/leadsheets/leadsheets.library.translations.code.tex new file mode 100644 index 00000000000..afbb8d0a1ec --- /dev/null +++ b/Master/texmf-dist/tex/latex/leadsheets/leadsheets.library.translations.code.tex @@ -0,0 +1,45 @@ +\LeadsheetsExplLibrary{translations}{2014/08/10 dictionary for leadsheets} + +\cs_new:Npn \leadsheets_translation:n #1 + { \GetTranslation{leadsheets/#1} } +\cs_generate_variant:Nn \leadsheets_translation:n { V } + +\DeclareTranslation {German} {leadsheets/chorus} {Refrain} +\DeclareTranslation {German} {leadsheets/verse} {Strophe} + +\DeclareTranslationFallback {leadsheets/composer} {Composer} +\DeclareTranslation {English} {leadsheets/composer} {Composer} +\DeclareTranslation {German} {leadsheets/composer} {Komponist} + +\DeclareTranslationFallback {leadsheets/lyrics} {Lyrics} +\DeclareTranslation {English} {leadsheets/lyrics} {Lyrics} +\DeclareTranslation {German} {leadsheets/lyrics} {Text} + +\DeclareTranslationFallback {leadsheets/key} {Key} +\DeclareTranslation {English} {leadsheets/key} {Key} +\DeclareTranslation {German} {leadsheets/key} {Tonart} + +\DeclareTranslationFallback {leadsheets/interpret} + {as~ interpreted~ by~ \printsongpropertylist{interpret}{~\&~}{,~}{~\&~}} +\DeclareTranslation {English} {leadsheets/interpret} + {as~ interpreted~ by~ \printsongpropertylist{interpret}{~\&~}{,~}{~\&~}} +\DeclareTranslation {German} {leadsheets/interpret} + {wie~ von~ \printsongpropertylist{interpret}{~\&~}{,~}{~\&~}~ interpretiert} + +\DeclareTranslationFallback {leadsheets/major} {major} +\DeclareTranslation {English} {leadsheets/major} {major} +\DeclareTranslation {German} {leadsheets/major} {Dur} + +\DeclareTranslationFallback {leadsheets/minor} {minor} +\DeclareTranslation {English} {leadsheets/minor} {minor} +\DeclareTranslation {German} {leadsheets/minor} {Moll} + +\DeclareTranslationFallback {leadsheets/capo} {Capo} +\DeclareTranslation {English} {leadsheets/capo} {Capo} +\DeclareTranslation {German} {leadsheets/capo} {Kapo} + +\DeclareTranslationFallback {leadsheets/fret} {fret} +\DeclareTranslation {English} {leadsheets/fret} {fret} +\DeclareTranslation {German} {leadsheets/fret} {Bund} + +\endinput diff --git a/Master/texmf-dist/tex/latex/leadsheets/leadsheets.library.transposing.code.tex b/Master/texmf-dist/tex/latex/leadsheets/leadsheets.library.transposing.code.tex new file mode 100644 index 00000000000..f70cec60748 --- /dev/null +++ b/Master/texmf-dist/tex/latex/leadsheets/leadsheets.library.transposing.code.tex @@ -0,0 +1,211 @@ +\LeadsheetsExplLibrary{transposing}{2014/08/10 transposing of chord symbols} + +\prop_new:N \l__leadsheets_pitches_prop +\prop_new:N \l__leadsheets_prefer_key_prop +\seq_new:N \l__leadsheets_sharps_seq +\seq_new:N \l__leadsheets_flats_seq + +\cs_new_protected:Npn \leadsheets_define_key:nnn #1#2#3 + { + \seq_new:c {g__leadsheets_key_#1_#2_seq} + \prop_new:c {g__leadsheets_key_#1_#2_prop} + \seq_gset_from_clist:cn {g__leadsheets_key_#1_#2_seq} {#3} + } + +% pitches: +\prop_put:Nnn \l__leadsheets_pitches_prop {C} {0} +\prop_put:Nnn \l__leadsheets_pitches_prop {Cma} {0} +\prop_put:Nnn \l__leadsheets_pitches_prop {Ami} {0} +\prop_put:Nnn \l__leadsheets_pitches_prop {C#} {1} +\prop_put:Nnn \l__leadsheets_pitches_prop {C#ma} {1} +\prop_put:Nnn \l__leadsheets_pitches_prop {A#mi} {1} +\prop_put:Nnn \l__leadsheets_pitches_prop {Db} {1} +\prop_put:Nnn \l__leadsheets_pitches_prop {Dbma} {1} +\prop_put:Nnn \l__leadsheets_pitches_prop {Bbmi} {1} +\prop_put:Nnn \l__leadsheets_pitches_prop {D} {2} +\prop_put:Nnn \l__leadsheets_pitches_prop {Dma} {2} +\prop_put:Nnn \l__leadsheets_pitches_prop {Bmi} {2} +\prop_put:Nnn \l__leadsheets_pitches_prop {D#} {3} +\prop_put:Nnn \l__leadsheets_pitches_prop {D#ma} {3} +\prop_put:Nnn \l__leadsheets_pitches_prop {F#mi} {3} +\prop_put:Nnn \l__leadsheets_pitches_prop {Eb} {3} +\prop_put:Nnn \l__leadsheets_pitches_prop {Ebma} {3} +\prop_put:Nnn \l__leadsheets_pitches_prop {Cmi} {3} +\prop_put:Nnn \l__leadsheets_pitches_prop {E} {4} +\prop_put:Nnn \l__leadsheets_pitches_prop {Ema} {4} +\prop_put:Nnn \l__leadsheets_pitches_prop {C#mi} {4} +\prop_put:Nnn \l__leadsheets_pitches_prop {Fb} {4} +\prop_put:Nnn \l__leadsheets_pitches_prop {Fbma} {4} +\prop_put:Nnn \l__leadsheets_pitches_prop {Dbmi} {4} +\prop_put:Nnn \l__leadsheets_pitches_prop {F} {5} +\prop_put:Nnn \l__leadsheets_pitches_prop {Fma} {5} +\prop_put:Nnn \l__leadsheets_pitches_prop {Dmi} {5} +\prop_put:Nnn \l__leadsheets_pitches_prop {F#} {6} +\prop_put:Nnn \l__leadsheets_pitches_prop {F#ma} {6} +\prop_put:Nnn \l__leadsheets_pitches_prop {D#mi} {6} +\prop_put:Nnn \l__leadsheets_pitches_prop {Gb} {6} +\prop_put:Nnn \l__leadsheets_pitches_prop {Gbma} {6} +\prop_put:Nnn \l__leadsheets_pitches_prop {Ebmi} {6} +\prop_put:Nnn \l__leadsheets_pitches_prop {G} {7} +\prop_put:Nnn \l__leadsheets_pitches_prop {Gma} {7} +\prop_put:Nnn \l__leadsheets_pitches_prop {Emi} {7} +\prop_put:Nnn \l__leadsheets_pitches_prop {G#} {8} +\prop_put:Nnn \l__leadsheets_pitches_prop {G#ma} {8} +\prop_put:Nnn \l__leadsheets_pitches_prop {E#mi} {8} +\prop_put:Nnn \l__leadsheets_pitches_prop {Ab} {8} +\prop_put:Nnn \l__leadsheets_pitches_prop {Abma} {8} +\prop_put:Nnn \l__leadsheets_pitches_prop {Fmi} {8} +\prop_put:Nnn \l__leadsheets_pitches_prop {A} {9} +\prop_put:Nnn \l__leadsheets_pitches_prop {Ama} {9} +\prop_put:Nnn \l__leadsheets_pitches_prop {F#mi} {9} +\prop_put:Nnn \l__leadsheets_pitches_prop {A#} {10} +\prop_put:Nnn \l__leadsheets_pitches_prop {A#ma} {10} +\prop_put:Nnn \l__leadsheets_pitches_prop {F##mi} {10} +\prop_put:Nnn \l__leadsheets_pitches_prop {Bb} {10} +\prop_put:Nnn \l__leadsheets_pitches_prop {Bbma} {10} +\prop_put:Nnn \l__leadsheets_pitches_prop {Gmi} {10} +\prop_put:Nnn \l__leadsheets_pitches_prop {B} {11} +\prop_put:Nnn \l__leadsheets_pitches_prop {Bma} {11} +\prop_put:Nnn \l__leadsheets_pitches_prop {G#mi} {11} + +\seq_set_from_clist:Nn \l__leadsheets_sharps_seq + {C,Ami,G,Emi,D,Bmi,A,F#mi,E,C#mi,B,G#mi,F#,D#mi} +\seq_set_from_clist:Nn \l__leadsheets_flats_seq + {C,Ami,F,Dmi,Bb,Gmi,Eb,Cmi,Ab,Fmi,Db,Bbmi,Gb,Ebmi} + +\prop_put:Nnn \l__leadsheets_prefer_key_prop {0} {sharp} % C +\prop_put:Nnn \l__leadsheets_prefer_key_prop {1} {flat} % Db +\prop_put:Nnn \l__leadsheets_prefer_key_prop {2} {sharp} % D +\prop_put:Nnn \l__leadsheets_prefer_key_prop {3} {flat} % Eb +\prop_put:Nnn \l__leadsheets_prefer_key_prop {4} {sharp} % E +\prop_put:Nnn \l__leadsheets_prefer_key_prop {5} {flat} % F +\prop_put:Nnn \l__leadsheets_prefer_key_prop {6} {sharp} % F# +\prop_put:Nnn \l__leadsheets_prefer_key_prop {7} {sharp} % G +\prop_put:Nnn \l__leadsheets_prefer_key_prop {8} {flat} % Ab +\prop_put:Nnn \l__leadsheets_prefer_key_prop {9} {sharp} % A +\prop_put:Nnn \l__leadsheets_prefer_key_prop {10} {flat} % Bb +\prop_put:Nnn \l__leadsheets_prefer_key_prop {11} {sharp} % B + +\group_begin: +\char_set_catcode_other:N \# +\leadsheets_define_key:nnn {sharp} {0} {C, D, E, F, G, A, B} % C +\leadsheets_define_key:nnn {flat} {0} {C, D, E, F, G, A, B} % C + +\leadsheets_define_key:nnn {sharp} {1} {C#, D#, E#, F#, G#, A#, B#} % C# +\leadsheets_define_key:nnn {flat} {1} {Db, Eb, F, Gb, Ab, Bb, C} % Db + +\leadsheets_define_key:nnn {sharp} {2} {D, E, F#, G, A, B, C#} % D +\leadsheets_define_key:nnn {flat} {2} {Ebb,Fb, Gb, Abb,Bbb,Cb, Db} % Ebb + +\leadsheets_define_key:nnn {sharp} {3} {D#, E#, F##,G#, A#, B#, C##}% Eb +\leadsheets_define_key:nnn {flat} {3} {Eb, F, G, Ab, Bb, C, D} % Eb + +\leadsheets_define_key:nnn {sharp} {4} {E, F#, G#, A, B, C#, D#} % E +\leadsheets_define_key:nnn {flat} {4} {Fb, Gb, Ab, Bbb,Cb, Db, Eb} % Fb + +\leadsheets_define_key:nnn {sharp} {5} {E#, F##,G##,A#, B#, C##,D##}% E# +\leadsheets_define_key:nnn {flat} {5} {F, G, A, Bb, C, D, E} % F + +\leadsheets_define_key:nnn {sharp} {6} {F#, G#, A#, B, C#, D#, E#} % F# +\leadsheets_define_key:nnn {flat} {6} {Gb, Ab, Bb, Cb, Db, Eb, F} % Gb + +\leadsheets_define_key:nnn {sharp} {7} {G, A, B, C, D, E, F#} % G +\leadsheets_define_key:nnn {flat} {7} {Abb,Bbb,Cb, Dbb,Ebb,Fb, Gb} % Abb + +\leadsheets_define_key:nnn {sharp} {8} {G#, A#, B#, C#, D#, E#, F##}% G# +\leadsheets_define_key:nnn {flat} {8} {Ab, Bb, C, Db, Eb, F, G} % Ab + +\leadsheets_define_key:nnn {sharp} {9} {A, B, C#, D, E, F#, G#} % A +\leadsheets_define_key:nnn {flat} {9} {Bbb,Cb, Db, Ebb,Fb, Gb, Ab} % Bbb + +\leadsheets_define_key:nnn {sharp} {10} {A#, B#, C##,D#, E#, F##,G##}% A# +\leadsheets_define_key:nnn {flat} {10} {Bb, C, D, Eb, F, G, A} % Bb + +\leadsheets_define_key:nnn {sharp} {11} {B, C#, D#, E, F#, G#, A#} % B +\leadsheets_define_key:nnn {flat} {11} {Cb, Db, Eb, Fb, Gb, Ab, Bb} % Cb +\group_end: + +% #1: key +% #2: semitone steps +% #3: chord +\cs_new_protected:Npn \leadsheets_transpose:nnN #1#2#3 + { + \int_set:Nn \l__leadsheets_tmpa_int {0} + % \l__leadsheets_tmpa_int holds the C pitch + \seq_if_in:NnTF \l__leadsheets_sharps_seq {#1} + { \tl_set:Nn \l__leadsheets_tmpa_tl {sharp} } + { \tl_set:Nn \l__leadsheets_tmpa_tl {flat} } + % \l__leadsheets_tmpa_tl holds the `sharp' or `flat' preference + \int_set:Nn \l__leadsheets_tmpb_int {#2} + \int_while_do:nNnn { \l__leadsheets_tmpb_int } < { 0 } + { \int_set:Nn \l__leadsheets_tmpb_int { \l__leadsheets_tmpb_int + 12 } } + % \l__leadsheets_tmpb_int holds the new pitch number relatice to C + \bool_if:NTF \l__leadsheets_enharmonic_bool + { \tl_set_eq:NN \l__leadsheets_tmpb_tl \l__leadsheets_enharmonic_tl } + { + \tl_set:Nx \l__leadsheets_tmpb_tl + { + \prop_item:NV + \l__leadsheets_prefer_key_prop + \l__leadsheets_tmpb_int + } + } + % \l__leadsheets_tmpb_tl holds the `sharp' or `flat' preference + % of the new key + \seq_set_split:NnV \l__leadsheets_tmpa_seq {/} #3 + \tl_clear:N #3 + \seq_clear:N \l__leadsheets_tmpb_seq + \seq_map_inline:Nn \l__leadsheets_tmpa_seq + { + \tl_set:Nn \l__leadsheets_tmpc_tl {##1} % the chord + \int_zero:N \l__leadsheets_tmpc_int + \int_zero:N \l__leadsheets_tmpc_int + \seq_map_inline:cn + { + g__leadsheets_key_ + \l__leadsheets_tmpb_tl _ + \int_to_arabic:V \l__leadsheets_tmpa_int + _seq + } + { + \int_incr:N \l__leadsheets_tmpc_int + \tl_if_in:NnT \l__leadsheets_tmpc_tl {####1} + { + \tl_set:Nx \l__leadsheets_tmpd_tl + { + \seq_item:cV + { + g__leadsheets_key_ + \l__leadsheets_tmpb_tl _ + \int_to_arabic:V \l__leadsheets_tmpb_int + _seq + } + \l__leadsheets_tmpc_int + } + \tl_replace_once:NnV \l__leadsheets_tmpc_tl + {####1} + \l__leadsheets_tmpd_tl + \seq_map_break: + } + } + \seq_put_right:NV \l__leadsheets_tmpb_seq \l__leadsheets_tmpc_tl + } + \tl_set:Nx #3 { \seq_use:Nn \l__leadsheets_tmpb_seq {/} } + } +\cs_generate_variant:Nn \leadsheets_transpose:nnN { xV } + +\keys_define:nn {leadsheets} + { + transpose .code:n = + \bool_set_true:N \l__leadsheets_transpose_bool + \int_set:Nn \l__leadsheets_transpose_steps_int {#1} , + transpose-capo .bool_set:N = \l__leadsheets_transpose_capo_bool , + enharmonic .choices:nn = + { sharp , flat } + { + \tl_set_eq:NN \l__leadsheets_enharmonic_tl \l_keys_choice_tl + \bool_set_true:N \l__leadsheets_enharmonic_bool + } + } + +\endinput diff --git a/Master/texmf-dist/tex/latex/leadsheets/leadsheets.sty b/Master/texmf-dist/tex/latex/leadsheets/leadsheets.sty new file mode 100644 index 00000000000..21e744f36d0 --- /dev/null +++ b/Master/texmf-dist/tex/latex/leadsheets/leadsheets.sty @@ -0,0 +1,171 @@ +% -------------------------------------------------------------------------- +% required packages: +\RequirePackage{expl3,l3keys2e,xparse,translations} + +% -------------------------------------------------------------------------- +% package information: +\ExplSyntaxOn +\tl_const:Nx \c_leadsheets_date_tl {2015/01/11} +\tl_const:Nx \c_leadsheets_version_tl {0.1} +\tl_const:Nx \c_leadsheets_info_tl {Typesetting leadsheets and songbooks} + +\ProvidesExplPackage + {leadsheets} + {\c_leadsheets_date_tl} + {\c_leadsheets_version_tl} + {\c_leadsheets_info_tl \c_space_tl (CN)} + +% -------------------------------------------------------------------------- +% messages: +\msg_new:nnn {leadsheets} {library-missing} + { + You've~ requested~ the~ leadsheets~ library~ `#1'~ but~ it~ appears~ to~ + be~ missing~ on~ your~ system.~ Maybe~ you've~ misspelled~ the~ name?~ + Loading~ the~ library~ will~ abort~ \msg_line_context: + } + +\msg_new:nnn {leadsheets} {loading-library} + { + (leadsheets) \c_space_tl \c_space_tl \c_space_tl \c_space_tl + Loading~ library~ `#1'... + } + +% -------------------------------------------------------------------------- +% variants of kernel functions: +\cs_generate_variant:Nn \tl_if_eq:nnTF { xx , V } +\cs_generate_variant:Nn \seq_set_split:Nnn { Nnx } +\cs_generate_variant:Nn \prop_item:Nn { NV } +\cs_generate_variant:Nn \seq_item:Nn { cV } +\cs_generate_variant:Nn \int_to_arabic:n { V } +\cs_generate_variant:Nn \tl_replace_once:Nnn { NnV } +\cs_generate_variant:Nn \prop_gput:Nnn { cxx , NVf } +\cs_generate_variant:Nn \msg_error:nnn { nnV } +\cs_generate_variant:Nn \msg_warning:nnn { nnV } +\cs_generate_variant:Nn \vbox_set:Nn { NV } + +% -------------------------------------------------------------------------- +% temporary variables: +\tl_new:N \l__leadsheets_tmpa_tl +\tl_new:N \l__leadsheets_tmpb_tl +\tl_new:N \l__leadsheets_tmpc_tl +\tl_new:N \l__leadsheets_tmpd_tl +\bool_new:N \l__leadsheets_tmpa_bool +\dim_new:N \l__leadsheets_tmpa_dim +\seq_new:N \l__leadsheets_tmpa_seq +\seq_new:N \l__leadsheets_tmpb_seq +\int_new:N \l__leadsheets_tmpa_int +\int_new:N \l__leadsheets_tmpb_int +\int_new:N \l__leadsheets_tmpc_int +\box_new:N \l__leadsheets_tmpa_box + +% -------------------------------------------------------------------------- +% library mechanism: +\tl_const:Nn \c__leadsheets_library_extension_tl {code.tex} +\tl_const:Nn \c__leadsheets_library_prefix_tl {leadsheets.library} + +\cs_new_protected:Npn \leadsheets_load_libraries:n #1 + { \clist_map_inline:nn {#1} { \leadsheets_load_library:n {##1} } } + +\cs_new_protected:Npn \leadsheets_load_library:n #1 + { + \tl_set:Nx \l__leadsheets_tmpa_tl { \tl_trim_spaces:n {#1} } + \__leadsheets_load_library:V \l__leadsheets_tmpa_tl + } + +\cs_new_protected:Npn \__leadsheets_load_library:n #1 + { + \cs_if_exist:cF {leadsheets-library-#1-loaded} + { + \file_if_exist:nTF + {\c__leadsheets_library_prefix_tl.#1.\c__leadsheets_library_extension_tl} + { + \msg_log:nnn {leadsheets} {loading-library} {#1} + \@onefilewithoptions + {\c__leadsheets_library_prefix_tl.#1}[][] + \c__leadsheets_library_extension_tl + } + { \msg_warning:nnn {leadsheets} {library-missing} {#1} } + } + } +\cs_generate_variant:Nn \__leadsheets_load_library:n { V } + +\cs_new_protected:Npn \__leadsheets_library:nn #1#2 + { + \cs_new:cpn {leadsheets-library-#1-loaded} {leadsheets:~`#1'~library} + \ProvidesFile + {\c__leadsheets_library_prefix_tl.#1.\c__leadsheets_library_extension_tl} + [ + \c_leadsheets_date_tl + \c_space_tl + v \c_leadsheets_version_tl + \c_space_tl + leadsheets~ library~ `#1'~ #2 + ] + } + +% -------------------------------------------------------------------------- +% one of those defines a leadsheets library, either using expl syntax or 2e +% package syntax: +\NewDocumentCommand \LeadsheetsExplLibrary {mm} + { \__leadsheets_library:nn {#1} {#2} \ExplSyntaxOn } + +\NewDocumentCommand \LeadsheetsLibrary {mm} + { \__leadsheets_library:nn {#1} {#2} } + +% -------------------------------------------------------------------------- +% commands for loading libraries: +\NewDocumentCommand \useleadsheetslibraries {m} + { \leadsheets_load_libraries:n {#1} } + +\NewDocumentCommand \useleadsheetslibrary {m} + { \leadsheets_load_library:n {#1} } + +% -------------------------------------------------------------------------- +% a setup command: +\NewDocumentCommand \setleadsheets {m} + { \keys_set:nn {leadsheets} {#1} } + +% -------------------------------------------------------------------------- +% package options: +\bool_new:N \l__leadsheets_with_options_bool + +\keys_define:nn {leadsheets} + { + musicsymbols .code:n = + \bool_set_true:N \l__leadsheets_with_options_bool + \leadsheets_load_library:n {musicsymbols} , + chordnames .code:n = + \bool_set_true:N \l__leadsheets_with_options_bool + \leadsheets_load_library:n {chordnames} , + musejazz .code:n = + \bool_set_true:N \l__leadsheets_with_options_bool + \leadsheets_load_library:n {musejazz} , + songs .code:n = + \bool_set_true:N \l__leadsheets_with_options_bool + \leadsheets_load_library:n {songs} , + minimal .code:n = + \bool_set_true:N \l__leadsheets_with_options_bool , + full .code:n = + \bool_set_true:N \l__leadsheets_with_options_bool + \leadsheets_load_libraries:n + { + musicsymbols , + chordnames , + songs , + chords , + shorthands , + properties , + transposing , + templates , + translations + } + } +\ProcessKeysOptions{leadsheets} + +\bool_if:NF \l__leadsheets_with_options_bool + { \leadsheets_load_library:n {songs} } + + +% -------------------------------------------------------------------------- +\tex_endinput:D + diff --git a/Master/tlpkg/bin/tlpkg-ctan-check b/Master/tlpkg/bin/tlpkg-ctan-check index 8557768cd7c..411923eaa1b 100755 --- a/Master/tlpkg/bin/tlpkg-ctan-check +++ b/Master/tlpkg/bin/tlpkg-ctan-check @@ -293,7 +293,8 @@ my @TLP_working = qw( latexdemo latexdiff latexfileinfo-pkgs latexfileversion latexindent latexmk latexmp latexpand lato layaureo layouts lazylist - lcd lcg lcyw leading leaflet lecturer ledmac leftidx leipzig lengthconvert + lcd lcg lcyw leading leadsheets leaflet + lecturer ledmac leftidx leipzig lengthconvert lettre lettrine levy lewis lexikon lexref lfb lgreek lh lhcyr lhelp libertine libgreek librarian librebaskerville librecaslon @@ -642,7 +643,7 @@ my @TLP_no_check = ( "pdfwin", # not on ctan, too old to worry about "plain", # mostly our .ini files, plus well-known plain.tex "powerdot", # stale generated files on ctan - "ps2pkm", # binary + "ps2pk", # binary "pst-ghsb", # not on ctan, replaced by pst-slpe, keep for compat "pstools", # binary "psutils", # binary diff --git a/Master/tlpkg/libexec/ctan2tds b/Master/tlpkg/libexec/ctan2tds index bfda1e31036..3326828320c 100755 --- a/Master/tlpkg/libexec/ctan2tds +++ b/Master/tlpkg/libexec/ctan2tds @@ -1512,6 +1512,7 @@ $standardtex='\.(.bx|cfg|sty|clo|ldf|cls|def|fd|fontspec|cmap|4ht)$'; 'latex-referenz','NULL', # keep doc together 'latex4wp', 'NULL', # keep doc together 'latex4wp-it', 'NULL', # keep doc together + 'leadsheets', '\.library\.|' . $standardtex, 'lecturer', '(t-)?lecturer.(tex|sty)|ltr-', 'leipzig', 'leipzig\.tex|' . $standardtex, 'lettre', 'default\.ins|\.cls', diff --git a/Master/tlpkg/tlpsrc/collection-music.tlpsrc b/Master/tlpkg/tlpsrc/collection-music.tlpsrc index 8ba228004da..cd33fa37fa8 100644 --- a/Master/tlpkg/tlpsrc/collection-music.tlpsrc +++ b/Master/tlpkg/tlpsrc/collection-music.tlpsrc @@ -12,6 +12,7 @@ depend gtrcrd depend guitar depend guitarchordschemes depend harmony +depend leadsheets depend lilyglyphs depend m-tx depend musixguit diff --git a/Master/tlpkg/tlpsrc/leadsheets.tlpsrc b/Master/tlpkg/tlpsrc/leadsheets.tlpsrc new file mode 100644 index 00000000000..e69de29bb2d --- /dev/null +++ b/Master/tlpkg/tlpsrc/leadsheets.tlpsrc |