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

Merge branch 'underline' into master

Browse Source
This commit is contained in:
Steve Krulewitz 2020-11-06 16:09:43 -08:00
commit 136f720035
1 changed files with 27 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
tex/skrul-leadsheet.cls
View File

@ -40,16 +40,36 @@
\char_set_catcode_other:N \#
\char_set_catcode_parameter:N \!
\prop_const_from_keyval:Nn \__skrul_enharmonic_map_prop
{
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} {%
\str_case:nnTF {!1}
\tl_if_head_eq_catcode:nNTF { !1 } .
{
{B#} {\chordname{C}}
{F##} {\chordname{G}}
{F##/B} {\chordname{G/B}}
{Am/F##} {\chordname{Am/G}}
\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}}
}
{}
{\chordname{!1}}
}
\char_set_catcode_parameter:N \#
\char_set_catcode_other:N \!