first attempt

This commit is contained in:
Steve Krulewitz 2019-09-05 21:35:14 -07:00
parent b4a8b175e9
commit 29979f19e8
4 changed files with 95 additions and 1 deletions

2
.gitignore vendored Normal file
View File

@ -0,0 +1,2 @@
*.pdf

View File

@ -1 +0,0 @@
# songs

View File

@ -0,0 +1,43 @@
\documentclass{skrul-leadsheet}
\begin{document}
\begin{song}{title={We Belong}, band={Pat Benetar}, year={1984}, key={E}}
\begin{verse}
^{E} Many times I've tried to tell you, ^{A}many times I've cried alone \\
^{E} Always I'm surprised how well you ^{A}cut my feelings to the bone \\
^{F#m} Don't want to leave you really, ^{E}I've invested ^{A}too much time \\
^{F#m} To give you up that easy, ^{B}to the doubts that complicate your ^{E}mind
\end{verse}
\begin{chorus}
^{E}We belong to the ^{A}light, we belong to the ^{B}thunder \\
We ^{E}belong to the sound of the ^{A}words, we've both fallen ^{B}under \\
^{E}Whatever we deny or ^{A}embrace, for worse or for ^{B}better \\
^{B7} We be^{E}long, we ^{A}belong, we belong ^{B}together
\end{chorus}
\begin{verse}
^{E}Maybe its a sign of weakness, ^{A}when I dont know what to say \\
^{E}Maybe I just wouldnt know, ^{A}what to do with my strength anyway \\
^{F#m}Have we become a habit, ^{E}do we distort the ^{A}acts \\
^{F#m}Now theres no looking forward, ^{B}now theres no turning back when you ^{E}say
\end{verse}
\begin{chorus}
\instruction{Repeat Chorus}
\end{chorus}
\begin{verse}
^{E}Close your eyes and try to sleep now, ^{A}close your eyes and try to dream \\
^{E}Clear your mind and do your best, ^{A}to try and wash the palette clean \\
^{F#m}We cant begin to know it, ^{E}how much we really ^{A}care \\
^{F#m}I hear your voice inside me, ^{B}I see your face everywhere, still you ^{E}say
\end{verse}
\begin{chorus}
\instruction{Repeat Chorus}
\end{chorus}
\end{song}
\end{document}

50
tex/skrul-leadsheet.cls Normal file
View File

@ -0,0 +1,50 @@
\ProvidesClass{skrul-leadsheet}
\LoadClassWithOptions{scrartcl}
\RequirePackage{leadsheets}
\RequirePackage{etoolbox}
\RequirePackage{translations}
\usepackage[utf8]{inputenc}
\usepackage{geometry}
\geometry{
letterpaper,
left=0.5in,
top=0.5in
}
\pagenumbering{gobble}
\definesongproperty{year}
\definesongtitletemplate{leadsheet}{%
{\large \textbf{\songproperty{title}} - \songproperty{band}}
{\small // \songproperty{year} // Key: \songproperty{key}}
\hrule
}
\setleadsheets{
title-template = leadsheet,
align-chords=l,
chords/format = \bfseries,
verses-label-format = \bfseries
}
\LeadsheetSurvive
\provideversetype{prechorus}[name=Prechorus]
\provideversetype*{prechorus*}[name=Prechorus]
\providerobustcmd*\lsenparen[1]{%
\expandcode{\noexpand\mklsenparen\mklsenparens{\unexpanded{#1}}}%
}
\providecommand*\mklsenparens{[]}
\providecommand*\mklsenparen[3]{\textup{#1}#3\textup{#2}}
\providerobustcmd*\instruction[1]{\lsenparen{\mkinstruction{#1}}}
\providecommand*\mkinstruction[1]{\emph{#1}}
\providerobustcmd*\choir[1]{\null\qquad\mkchoir{#1}}
\providecommand*\mkchoir[1]{\instruction{\leadsheetstranslate{choir}: #1}}
\LeadsheetEndSurvive