ramatevish/songs
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

add underlining

Browse Source
This commit is contained in:
Steve Krulewitz 2020-11-05 22:16:53 -08:00
parent ff5db75820
commit c6885d0b88
2 changed files with 35 additions and 37 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
songs/Scissor Sisters/Take Your Mama.tex
View File

@ -4,7 +4,7 @@
\begin{intro} \begin{intro}
\begin{tabular}[t]{@{}lllll} \begin{tabular}[t]{@{}lllll}
|_{.A#} & |_{G#} & |_{Cm} & |_{A#} & | 2x \\ |_{A#} & |_{G#} & |_{Cm} & |_{A#} & | 2x \\
\end{tabular} \end{tabular}
\end{intro} \end{intro}
@ -46,11 +46,11 @@ When your ^{A#}mama heard the way that you'd been ^{G#}talking I tried to tell ^
\begin{prechorus} \begin{prechorus}
\instruction{Half time!} \\ \instruction{Half time!} \\
Now we ^{Cm}end up takin' the long ^{Cm/A#}way home Now we ^{Cm}end up takin' the ^{Cm/A#}long way home,
^{Cm/A}Lookin' overdressed wearin' ^{F}buckets of stale ^{A#}cologne \\ ^{Cm/A}lookin' overdressed wearin' ^{F}buckets of stale ^{A#}cologne \\
It's so ^{Cm}hard to see streets on a ^{Cm/A#}country road It's so ^{Cm}hard to see streets on a ^{Cm/A#}country road
when your ^{Cm/A}glasses in the garbage when your ^{Cm/A}glasses in the garbage
and your ^{F}Continental's just got ^{A#}towed and your ^{F}Continental's just been ^{A#}towed
\end{prechorus} \end{prechorus}
\begin{chorus1} \begin{chorus1}

62
tex/skrul-leadsheet.cls
View File

@ -5,7 +5,6 @@
\RequirePackage{etoolbox} \RequirePackage{etoolbox}
\RequirePackage{translations} \RequirePackage{translations}
\RequirePackage{xstring}
\usepackage[T1]{fontenc} \usepackage[T1]{fontenc}
\usepackage[utf8]{inputenc} \usepackage[utf8]{inputenc}
@ -42,40 +41,39 @@
\char_set_catcode_other:N \# \char_set_catcode_other:N \#
\char_set_catcode_parameter:N \! \char_set_catcode_parameter:N \!
\bool_new:N \l__skrul_underline_boo \prop_const_from_keyval:Nn \__skrul_enharmonic_map_prop
\tl_new:N \l__skrul_stripped_tl {
\str_new:N \l__skrul_stripped_str B#=C,
E#=F,
F##=G,
F##/B=G/B,
Am/F##=Am/G
}
\cs_new:Npn \__skrul_get:V !1
{
\prop_item:NV \__skrul_prop { !1 }
}
\cs_generate_variant:Nn \str_set:Nn {Nx}
\NewDocumentCommand \xchordname {m} {% \NewDocumentCommand \xchordname {m} {%
% \tl_if_head_eq_catcode:nNTF { !1 } . \tl_if_head_eq_catcode:nNTF { !1 } .
% { \bool_set_true:N \l__skrul_underline_bool } {
% { \bool_set_false:N \l__skrul_underline_bool } \str_set:Nx \l_tmpa_str { \str_tail:n !1 }
\prop_get:NVNTF \__skrul_enharmonic_map_prop \l_tmpa_str \__skrul_enharmonic_tl
% \bool_if:NTF \l__skrul_underline_bool { \underline{\chordname{\__skrul_enharmonic_tl}}}
% { \tl_set:Nn \l__skrul_stripped_tl { \tl_tail:n { !1 } } } { \underline{\chordname{\l_tmpa_str}}}
% { \tl_set:Nn \l__skrul_stripped_tl { !1 } } }
{
% \bool_if:NTF \l__skrul_underline_bool \prop_get:NnNTF \__skrul_enharmonic_map_prop { !1 } \__skrul_enharmonic_tl
% { \str_set:Nn \l__skrul_stripped_str { !1 } } { \chordname{\__skrul_enharmonic_tl}}
% { \str_set:Nn \l__skrul_stripped_str { !1 } } { \chordname{!1}}
}
\tl_set:Nn \l__skrul_stripped_tl { !1 }
\tl_set:Nf \l_mya_tl { \l__skrul_stripped_tl }
\chordname \l_mya_tl
% \str_case:nnTF \l__skrul_stripped_tl
% {
% % Enharmonics
% {B#} {\chordname{C}}
% {E#} {\chordname{F}}
% {F##} {\chordname{G}}
% {F##/B} {\chordname{G/B}}
% {Am/F##} {\chordname{Am/G}}
% }
% {}
% {\chordname{ \l__skrul_stripped_tl }}
} }
\char_set_catcode_parameter:N \#
\char_set_catcode_other:N \!
\ExplSyntaxOff \ExplSyntaxOff
\setleadsheets{ \setleadsheets{