From 3a324d627e5bfe010fadd068f84109262f821d15 Mon Sep 17 00:00:00 2001 From: Steve Krulewitz Date: Thu, 24 Mar 2022 21:42:17 -0700 Subject: [PATCH] another jam --- bin/build.sh | 2 +- packets/pha202203.tex | 11 ++ songs/Blondie/Heart Of Glass.tex | 84 ++++++++++ songs/Grateful Dead/Deal.tex | 76 +++++++++ songs/R.E.M./The One I Love (chords).tex | 85 +++++++++- songs/Radiohead/High and Dry.tex | 2 +- songs/Ramones/Blitzkrieg Bop.tex | 4 - songs/The Beatles/Besame Mucho Body.tex | 58 +++++++ songs/The Beatles/Besame Mucho Capo III.tex | 9 + songs/The Beatles/Besame Mucho.tex | 9 + tex/skrul-leadsheet-chords.cls | 172 ++++++++++++++++++++ 11 files changed, 500 insertions(+), 12 deletions(-) create mode 100644 packets/pha202203.tex create mode 100644 songs/Blondie/Heart Of Glass.tex create mode 100644 songs/Grateful Dead/Deal.tex create mode 100644 songs/The Beatles/Besame Mucho Body.tex create mode 100644 songs/The Beatles/Besame Mucho Capo III.tex create mode 100644 songs/The Beatles/Besame Mucho.tex create mode 100644 tex/skrul-leadsheet-chords.cls diff --git a/bin/build.sh b/bin/build.sh index e04bc08..b98eb76 100755 --- a/bin/build.sh +++ b/bin/build.sh @@ -48,4 +48,4 @@ function make_packet { setup_pdflatex #make_pdf "$1" -make_packet "packets/aircoustic202203.tex" +make_packet "packets/pha202203.tex" diff --git a/packets/pha202203.tex b/packets/pha202203.tex new file mode 100644 index 0000000..ce75c37 --- /dev/null +++ b/packets/pha202203.tex @@ -0,0 +1,11 @@ +\documentclass{article} +\usepackage{grffile} +\usepackage{pdfpages} +\begin{document} +\includepdf[pages=-]{build/pdf/Grateful Dead/Deal.pdf} +\includepdf[pages=-]{build/pdf/The Beatles/Besame Mucho.pdf} +\includepdf[pages=-]{build/pdf/The Beatles/Besame Mucho Capo III.pdf} +\includepdf[pages=-]{build/pdf/Ramones/Blitzkrieg Bop.pdf} +\includepdf[pages=-]{build/pdf/The Dubliners/The Wild Rover.pdf} +\includepdf[pages=-]{build/pdf/Blondie/Heart Of Glass.pdf} +\end{document} diff --git a/songs/Blondie/Heart Of Glass.tex b/songs/Blondie/Heart Of Glass.tex new file mode 100644 index 0000000..a384901 --- /dev/null +++ b/songs/Blondie/Heart Of Glass.tex @@ -0,0 +1,84 @@ +\documentclass{skrul-leadsheet} +\begin{document} +\begin{song}[transpose-capo=true,transpose=0]{title={Heart Of Glass}, band={Blondie}, year={1978}, key={A}} + +\begin{intro} +\begin{tabular}[t]{@{}lllll} +|_{E} & |_{E} & |_{E} & |_{E} & | \\ +\end{tabular} +\end{intro} + +\begin{verse} +^{E}Once I had a love and it was a ^{C#}gas, \space\space\space +^{C#m}soon turned out, had a heart of ^{E}glass \\ +^{E}Seemed like the real thing only to ^{C#}find, \space\space\space +^{C#m}mucho mistrust, love's gone be^{(E)}hind +\end{verse} + +\begin{interlude} +\begin{tabular}[t]{@{}lllll} +|_{E} & |_{E} & |_{E} & |_{E} & | \\ +\end{tabular} +\end{interlude} + +\begin{verse} +^{E}Once I had a love and it was di^{C#}vine, \space\space\space +^{C#m}soon found out I was losing my ^{E}mind \\ +It ^{E}seemed like the real thing but I was so ^{C#}blind, \space\space\space +^{C#m}mucho mistrust, love's gone be^{E}hind ^{E} +\end{verse} + +\begin{chorus} +^{A}In between, ^{A}what I find is pleasing and I'm ^{E}feeling fine, ^{E}love is so confusing \\ +There's no ^{A} peace of mind, ^{A}if I fear I'm losing you \\ +It's ^{F#}just no good, you ^{B}teasing like you do-hoo +\end{chorus} + +\begin{interlude} +\begin{tabular}[t]{@{}lllll} +|_{E} & |_{E} & |_{E} & |_{E} & | \\ +\end{tabular} +\end{interlude} + +\begin{verse} +^{E}Once I had a love and it was a ^{C#}gas, \space\space\space +^{C#m}soon turned out, had a heart of ^{E}glass \\ +^{E}Seemed like the real thing only to ^{C#}find, \space\space\space +^{C#m}Mucho mistrust, love's gone be^{E}hind ^{E} +\end{verse} + +\begin{chorus} +^{A}Lost inside, a^{A}dorable illusion and I ^{E}cannot hide, ^{E}I'm the one you're using \\ +Please don't ^{A} push me aside, ^{A}we could've made it cruising, yea-^{E}ah ^{E} +\end{chorus} + +\begin{bridge} +\begin{tabular}[t]{@{}lllll} +|_{A} & |_{A} \instruction{3 beats!} & |_{E} & |_{E} \instruction{3 beats!} & | \\ +|_{A} & |_{A} \instruction{3 beats!} & |_{E} & |_{E} & | \\ +\end{tabular} + + +^{A}Da-da-da, da ^{A}da-da da-da da-daaa-da da \\ +^{E}Da-da-da, da ^{E}da-da da-da da-daaa-da da \\ +^{A}Da-da-da, da ^{A}da-da da-da da-daaa-da da \\ +Yeah, ^{F#}riding high on^{B} love's true bluish light +\end{bridge} + +\begin{interlude} +^{E} Ooo-ooo woah-^{E}oh \instruction{Repeat 4x} +\end{interlude} + +\begin{verse} +^{E}Once I had a love and it was a ^{C#}gas \space\space\space +^{C#m}soon turned out to be a pain in the ^{E}ass \\ +^{E}Seemed like the real thing only to ^{C#}find \space\space\space +^{C#m}mucho mistrust, love's gone be^{E}hind +\end{verse} + +\begin{outro} +^{E} Ooo-ooo woah-^{E}oh \instruction{Repeat 4x} +\end{outro} + +\end{song} +\end{document} \ No newline at end of file diff --git a/songs/Grateful Dead/Deal.tex b/songs/Grateful Dead/Deal.tex new file mode 100644 index 0000000..7e5ebe2 --- /dev/null +++ b/songs/Grateful Dead/Deal.tex @@ -0,0 +1,76 @@ +\documentclass{skrul-leadsheet} +\usepackage{eso-pic} +\begin{document} +\begin{song}[transpose-capo=true]{title={Deal}, band={Grateful Dead}, year={1972}, key={A}} + +\AddToShipoutPictureFG{ + \AtPageUpperLeft{% + \raisebox{-10em}{% + \hspace{45em} + \origchord{t}{x,x,p1,p2,p1,p2}{_{D#dim7}}% + }% + }% +} + +\begin{intro} +\begin{tabular}[t]{@{}lllll} +|_{A} & |_{A} & |_{A} & |_{A} & | \instruction{Repeat 2x over riff} \\ +\end{tabular} +\end{intro} + +\begin{verse} +^{A} Since it costs a ^{C#7}lot to win, ^{F#m} and e^{-}ven ^{E}more to ^{D7}lose ^{-} \space\space ^{D#dim7} \\ +^{A} You and me better ^*{A7*}spen ^{G#7*}d mo^{G7*}re ^{F#7*}time ^{B7}wonderin' what to ^{D}choose \\ +^{A} Goes to show, you ^{C#7}don't ever know, ^{F#m}watch ea^{-}ch ca^{E}rd you play and ^{D7}play ^{-} it ^{D#dim7}slow +\end{verse} + +\begin{chorus} +^{A} Wait until that ^{G}deal c^{-}ome '^{D}round \space\space\space\space\space\space +^{A} Don't you let that ^{G}deal ^{-}go ^{D}down, ^{A}no no ^{A} +\end{chorus} + +\begin{verse} +^{A} I been gamblin' ^{C#7}hereabouts ^{F#m} for te^{-}n good ^{E}solid y^{D7}ears ^{-} \space\space ^{D#dim7} \\ +^{A} If I told you ^{A7*}all ^{G#7*}that ^{G7*}went ^{F#7*}down it would ^{B7}burn off both of your ^{D}ears \\ +^{A} Goes to show, you ^{C#7}don't ever know, ^{F#m}watch ea^{-}ch ca^{E}rd you play and ^{D7}play ^{-} it ^{D#dim7}slow +\end{verse} + +\begin{chorus} +^{A} Wait until that ^{G}deal c^{-}ome '^{D}round \space\space\space\space\space\space +^{A} Don't you let that ^{G}deal ^{-}go ^{D}down, ^{A}no no ^{A} +\end{chorus} + +\begin{solo} +\begin{tabular}[t]{@{}lllll} +|_{A} & |_{C#7} & |_{F#m} - _{E} & |_{D7} - _{D#dim7} & | \\ +|_{A} & |_{A7*}_{G#7*}_{G7*}_{F#7*} & |_{B7} & |_{D} & | \\ +|_{A} & |_{C#7} & |_{F#m} - _{E} & |_{D7} - _{D#dim7} & | \\ +|_{A} & |_{G} - _{D} & |_{A} & |_{G} - _{D} & | \\ +|_{A} & |_{A} & | \\ +\end{tabular} +\end{solo} + +\begin{verse} +^{A} Since you poured ^{C#7}the wine for me ^{F#m} and tigh^{-}tened ^{E}up my ^{D7}shoes ^{-} \space\space ^{D#dim7} \\ +^{A} I hate to leave you ^{A7*} ^*{G#7*}sitt- ^{G7*}in' t^{F#7*}here com^{B7}posing lonesome ^{D}blues \\ +^{A} Goes to show, you ^{C#7}don't ever know, ^{F#m}watch ea^{-}ch ca^{E}rd you play and ^{D7}play ^{-} it ^{D#dim7}slow +\end{verse} + +\begin{chorus} +^{A} Wait until that ^{G}deal c^{-}ome '^{D}round \space\space\space\space\space\space +^{A} Don't you let that ^{G}deal ^{-}go ^{D}down, ^{A}no no ^{A} +\end{chorus} + +\begin{verse} +\instruction{Repeat Verse 1} +\end{verse} + +\begin{outro} +^{A} Wait until that ^{G}deal c^{-}ome '^{D}round \\ +^{A} Don't you let that ^{G}deal ^{-}go ^{D}down \instruction{Repeat last two lines 4x} \\ + +^{A} Don’t you let that ^{G}deal ^{-}go ^{D}down \\ +^{A} Don't you let that ^{G}deal ^{-}go ^{D}down, ^{A}no no +\end{outro} +\end{song} +\end{document} \ No newline at end of file diff --git a/songs/R.E.M./The One I Love (chords).tex b/songs/R.E.M./The One I Love (chords).tex index a4445ce..17494da 100644 --- a/songs/R.E.M./The One I Love (chords).tex +++ b/songs/R.E.M./The One I Love (chords).tex @@ -1,13 +1,86 @@ \documentclass{skrul-leadsheet-chords}[20pt] +\usepackage{tabularx} +\usepackage{xparse} +\usepackage{adjustbox} + +\makeatletter +\newcommand\cellwidth{\TX@col@width} +\makeatother + +\NewDocumentCommand \xb { m o }{{ +\begin{tabular}{@{}l} +\IfNoValueTF{#2}{}{#2} \\[-1ex] +\writechord{#1} +\end{tabular}} +} + +\NewDocumentCommand \xbb { m o m o }{{ +\begin{tabular}{@{}ll@{}} +\IfNoValueTF{#2}{}{#2} & \IfNoValueTF{#4}{}{#4} \\ +\writechord{#1} & \writechord{#3} \\ \hline +\end{tabular}} +} + + +\NewDocumentCommand \xbbbb { m o m o m o m o }{{ +\begin{tabular}{@{}lll} +\IfNoValueTF{#2}{}{#2} & \IfNoValueTF{#4}{}{#4} & \IfNoValueTF{#6}{}{#6} & \IfNoValueTF{#8}{}{#8} \\[-1ex] +\writechord{#1} & \writechord{#3} & \writechord{#5} & \writechord{#7} \\ \hline +\end{tabular}} +} + + \begin{document} -\begin{song}[transpose-capo=true]{title={}, band={}, year={}, key={}} -\begin{verse} -\begin{tabular}[t]{@{}lllll} -\normalbar _{C} & \leftrepeat _{C} & |_{C} & |_{C} & | \\ -\end{tabular} -\end{verse} +\begin{song}[transpose-capo=true]{title={The One I Love}, band={R.E.M.}, bpm={128}, key={Em}} + +\begin{intr} +\adjustbox{valign=t}{ +\begin{tabularx}{\textwidth}{XXXXX} +\xb{Em} & \xb{Dsus2} & \xb{Em} & \xb{Em} & +\end{tabularx} +} +\end{intr} + +\begin{v1} +\adjustbox{valign=t}{ +\begin{tabularx}{\textwidth}{XXXXX} +\xb{Em} & \xb{Dsus2} & \xb{Em} & \xb{Em} & \\ +\xb{Em} & \xb{Dsus2} & \xb{Em} & \xb{Em} & \\ +\xbb{G5}{Em7/G} & \xbb{Dsus4}{Dsus2} & \xbb{Am7}{Am} & \xb{C} & \\ +\xb{Em} & \xb{Dsus2} & \xb{Em} & \xb{Em} & +\end{tabularx} +} +\end{v1} + +\begin{c1} +\adjustbox{valign=t}{ +\begin{tabularx}{\textwidth}{XXXXX} +\xb{Em} & \xb{Dsus2} & \xbb{Em}{Em7} & \xb{Em} & \\ +\xb{Em} & \xb{Dsus2} & \xb{Em} & \xb{Em} & +\end{tabularx} +} +\end{c1} + +\begin{v2} +\instruction{Repeat V1} +\end{v2} + +\begin{s} +\adjustbox{valign=t}{ +\begin{tabularx}{\textwidth}{XXXXX} +\xb{G} & \xb{Dsus4} & \xb{G} & \xb{C} & \\ +\xb{Em} & \xb{Dsus2} & \xb{Em} & \xb{Em} & \\ +\end{tabularx} +} +\end{s} + +\begin{v3} +\instruction{Repeat V3} +\end{v3} + + \end{song} \end{document} \ No newline at end of file diff --git a/songs/Radiohead/High and Dry.tex b/songs/Radiohead/High and Dry.tex index 87f1b99..7740566 100644 --- a/songs/Radiohead/High and Dry.tex +++ b/songs/Radiohead/High and Dry.tex @@ -74,7 +74,7 @@ the ^{Asus2*}best thing you ever had, has gone^{E} away ^{E} Don't leave me ^{F#m11}high, ^{Asus2} don't leave me \=^{E}dry \=^{E} \\ Don't leave me ^{F#m11}high, ^{Asus2} don't leave me ^{E}dry ^{E} \\ Don't leave me ^{F#m11}high, ^{Asus2} \>^{E} \>^{E} \\ -Don't leave me ^{F#m11}high, ^{Asus2*} don't leave me dry \\ +Don't leave me ^{F#m11}high, ^{Asus2*} don't leave me ^{E*}dry \\ \end{tabbing} \end{chorus} diff --git a/songs/Ramones/Blitzkrieg Bop.tex b/songs/Ramones/Blitzkrieg Bop.tex index 8c47242..74a6708 100644 --- a/songs/Ramones/Blitzkrieg Bop.tex +++ b/songs/Ramones/Blitzkrieg Bop.tex @@ -44,10 +44,6 @@ The ^{(E5)}Blitzkrieg Bo^{A5}p ^{-} ^{D5} ^{A5} \instruction{Repeat Verse} \end{verse} -\begin{chorus} -\instruction{Repeat Chorus} -\end{chorus} - \begin{outro} ^{N.C.}Hey ho, let's go! \\ ^{N.C.}Hey ho, let's go! \\ diff --git a/songs/The Beatles/Besame Mucho Body.tex b/songs/The Beatles/Besame Mucho Body.tex new file mode 100644 index 0000000..061e761 --- /dev/null +++ b/songs/The Beatles/Besame Mucho Body.tex @@ -0,0 +1,58 @@ +\begin{intro} +\instruction{Play riff} +Cha-cha-boom! +\end{intro} + +\begin{verse} +^{Gm}Besame, ^{Gm}besame m^{Cm}ucho ^{-} ^{Cm6} ^{Cm7} ^{-} ^{Cm6} \\ +^{Cm}Each time I bring you a ^{Cm}kiss I hear music d^{Gm}ivine ^{Gm} \\ +So, ^{G}besame, ^{G7} besame ^{Cm}mucho ^{Cm} \\ +I ^{Gm}love you forever, ^{Eb9}say that ^{-}you'll ^{D9}always be m^{Gm†}ine \\ +^{N.\symbol{67}.} Cha-cha-boom! +\end{verse} + +\begin{verse} +^{Gm}Dearest one, ^{Gm} if you should l^{Cm}eave ^{-}me ^{Cm6} ^{Cm7} ^{-} ^{Cm6} \\ +Then ^{Cm}each little dream will take ^{Cm}wings and my life ^{Gm}would be through ^{Gm} \\ +Oh, ^{G}besame, ^{G7} besame ^{Cm}mucho ^{Cm} \\ +Ooh, ^{Gm}love me forever, ^{Eb9}make al^{-}l my ^{D9}dreams ^{Gm†}come true ^{N.\symbol{67}.} +\end{verse} + +\begin{chorus} +Ooh, ^{Cm}this joy is some^{Cm}thing new, +^{Gm} my arms they're ^{Gm} holding you, \\ +^{D7} Never knew this ^{D7} thrill be^{Gm}fore ^{Gm} \\ +^{Cm}Who ever ^{Cm}thought I'd be ^{Gm} +holding you ^{Gm} close to me \\ +^{A}Whispering, "^{A}It's you ^{D7}I adore" ^{D7}\\ +\end{chorus} + +\begin{verse} +Yes, so, ^{Gm}dearest one, ^{Gm} if you should l^{Cm}eave ^{-}me ^{Cm6} ^{Cm7} ^{-} ^{Cm6} \\ +Then ^{Cm}each little dream will take ^{Cm}wings and my life ^{Gm}would be through ^{Gm} \\ +Oh, so ^{G}besame, ^{G7} besame ^{Cm}mucho ^{Cm} \\ +Yeah, I'll ^{Gm}love you forever, ^{Eb9}make a^{-}ll my ^{D9}dreams ^{Gm†}come true ^{N.\symbol{67}.} +\end{verse} + +\begin{chorus} +\instruction{Repeat Chorus} +\end{chorus} + +\begin{verse} +\instruction{Repeat Verse 3} +\end{verse} + +\begin{outro} +Ooh, l^{Gm}ove you forever, m^{Eb9}ake al^{-}l my dr^{D9}eams come tr^{Gm†}ue ^{N.\symbol{67}.} \\ +Ooh, l^{Gm}ove you forever, m^{Eb9}ake al^{-}l my dr^{D9}eams come tr^{Gm†}ue +\end{outro} + + +\begin{flushright} +\emph{Original by Consuelo Velázquez, 1940} +\end{flushright} +\begin{lstlisting} + Em Em Em B7 B7 B7 Em X +e --10--11--10---8--6--5--6--X-- +B --11--13--11--10--8--7--8--X-- +\end{lstlisting} diff --git a/songs/The Beatles/Besame Mucho Capo III.tex b/songs/The Beatles/Besame Mucho Capo III.tex new file mode 100644 index 0000000..11f22cc --- /dev/null +++ b/songs/The Beatles/Besame Mucho Capo III.tex @@ -0,0 +1,9 @@ +\documentclass{skrul-leadsheet} +\usepackage{listings} +\begin{document} +\begin{song}[transpose-capo=true]{title={Besame Mucho}, band={The Beatles}, year={1962}, key={Gm}, capo={3}} + +\input{"Besame Mucho Body.tex"} + +\end{song} +\end{document} \ No newline at end of file diff --git a/songs/The Beatles/Besame Mucho.tex b/songs/The Beatles/Besame Mucho.tex new file mode 100644 index 0000000..a0244fe --- /dev/null +++ b/songs/The Beatles/Besame Mucho.tex @@ -0,0 +1,9 @@ +\documentclass{skrul-leadsheet} +\usepackage{listings} +\begin{document} +\begin{song}[transpose-capo=true]{title={Besame Mucho}, band={The Beatles}, year={1962}, key={Gm}} + +\input{"Besame Mucho Body.tex"} + +\end{song} +\end{document} \ No newline at end of file diff --git a/tex/skrul-leadsheet-chords.cls b/tex/skrul-leadsheet-chords.cls new file mode 100644 index 0000000..7a942d0 --- /dev/null +++ b/tex/skrul-leadsheet-chords.cls @@ -0,0 +1,172 @@ +\ProvidesClass{skrul-leadsheet} +\LoadClassWithOptions{scrartcl} + +\usepackage{savesym} +\usepackage{gchords} +\savesymbol{chord} + +\RequirePackage{leadsheets} + +\RequirePackage{etoolbox} +\RequirePackage{translations} + +\usepackage[T1]{fontenc} +\usepackage[utf8]{inputenc} + +\usepackage[sfdefault]{roboto} + +\usepackage{geometry} +\geometry{ + letterpaper, + margin=0.5in +} +\pagenumbering{gobble} + +\usepackage[dvipsnames]{xcolor} + +\definesongproperty{bpm} +\definesongproperty{meter} +\definesongproperty{note} + +\definesongtitletemplate{leadsheet}{% +\Large +{\textbf{\songproperty{title}} - \songproperty{band}} +{\footnotesize + \space\space // \space\space \songproperty{bpm} bpm + \space\space // \space\space key: \songproperty{key} + \ifsongproperty{capo}{\space\space // \space\space\capo}{} + \ifsongproperty{meter}{\space\space // \space\space\songproperty{meter} time}{} + \ifsongproperty{note}{\space\space // \space\space\songproperty{note}}{} +} + +\vspace{-0.5\baselineskip} +\hrulefill +} + +\ExplSyntaxOn + +\char_set_catcode_other:N \# +\char_set_catcode_parameter:N \! + +\prop_const_from_keyval:Nn \__skrul_enharmonic_map_prop + { + Am/F##=Am/G, + Ab#m=Am, + A##m7=Bm7, + B#=C, + B#/B=C/B, + B#*=C*, + B#m=Cm, + B#add9=Cadd9, + Bb#=B, + Bb#m7=Bm7, + B#maj7=Cmaj7, + B#m6=Cm6, + C##=D, + C##m=Dm, + C##*=D*, + C##7=D7, + C##7*=D7*, + C##/F#=D/F#, + C##/C#=D/C#, + C##/C#*=D/C#*, + C##/B=D/B, + C##/B*=D/B*, + Db#=D, + D##m=Em, + D/Gb=D/F#, + Eb#m=Em, + Eb#m*=Em*, + E#=F, + E#*=F*, + F##=G, + F##*=G*, + F##7=G7, + F##/A##*=G/B*, + F##/B=G/B, + G##=A, + G##*=A*, + G##m=Am, + G##m*=Am*, + G##maj7=A\textsuperscript{maj7}, + G##sus4=A\textsuperscript{sus4}, + G##7=A\textsuperscript{7}, + G##m7/C#=Am\textsuperscript{7}/D, + G#b*=G*, + G#b=G, + G##m7=Am7, + G##m7*=Am7*, + Gb#=G, + Eb#=E, + Db#7/F#=D7/F#, + A#=Bb, + (F##)=(G), + Cadd9=C\textsuperscript{add9}, + A7=A\textsuperscript{7}, + Am7=Am\textsuperscript{7}, + D7=D\textsuperscript{7}, + Bm7=Bm\textsuperscript{7}, + F##sus2=G\textsuperscript{sus2}, + B#maj7/F##=C\textsuperscript{maj7}/G, + Dm/E#=Dm/F + } + +\cs_generate_variant:Nn \str_set:Nn {Nx} + +\NewDocumentCommand \xchordname {m} {% + \tl_if_head_eq_charcode:nNTF { !1 } . + { + \str_set:Nx \l_tmpa_str { \str_tail:n !1 } + \prop_get:NVNTF \__skrul_enharmonic_map_prop \l_tmpa_str \__skrul_enharmonic_tl + { \underline{\chordname{\__skrul_enharmonic_tl}}} + { \underline{\chordname{\l_tmpa_str}}} + } + { + \prop_get:NnNTF \__skrul_enharmonic_map_prop { !1 } \__skrul_enharmonic_tl + { \chordname{\__skrul_enharmonic_tl}} + { \chordname{!1}} + } +} +\char_set_catcode_parameter:N \# +\char_set_catcode_other:N \! + +\ExplSyntaxOff + +\setleadsheets{ + title-template = leadsheet, + align-chords=l, + verse/numbered, + chords/format = \color{black}\bfseries, + chord-cs = \xchordname, + verses-label-format = \itshape +} + +\LeadsheetSurvive +\provideversetype{prechorus}[name=Prechorus] +\provideversetype*{prechorus*}[name=Prechorus] +\provideversetype{postchorus}[name=Postchorus] +\provideversetype*{postchorus*}[name=Postchorus] +\provideversetype{chorus1}[name=Chorus 1] +\provideversetype{chorus2}[name=Chorus 2] +\provideversetype{xbreak}[name=Break] +\provideversetype{v1}[name=V1] +\provideversetype{v2}[name=V2] +\provideversetype{v3}[name=V3] +\provideversetype{v4}[name=V4] +\provideversetype{c1}[name=C1] +\provideversetype{c2}[name=C2] +\provideversetype{intr}[name=In] +\provideversetype{s}[name=S] + +\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