fixed bugs, working version again

This commit is contained in:
Maximilian Keßler 2022-01-16 17:39:02 +01:00
parent 0e1a802995
commit e3d3d9ba0f

View file

@ -23,6 +23,7 @@ __HEADER__(Grouping theorems for easier customization.)
{ {
\declaretheorem [ #2 ] { #1 } \declaretheorem [ #2 ] { #1 }
} }
\cs_generate_variant:Nn \declaretheorem:nn { n V } \cs_generate_variant:Nn \declaretheorem:nn { n V }
@ -30,12 +31,12 @@ __HEADER__(Grouping theorems for easier customization.)
\msg_new:nnn { groupthm } { unknown ~ key } \msg_new:nnn { groupthm } { unknown ~ key }
{ {
\msg_error_text:n { groupthm } Unknown key #1 supplied \msg_line_context: Unknown ~ key ~ #1 ~ supplied ~ \msg_line_context:
} }
\msg_new:nnn { groupthm } { unknown ~ group } \msg_new:nnn { groupthm } { unknown ~ group }
{ {
\msg_error_text:n { groupthm} Unknown group #1 supplied \msg_line_context: Unknown ~ group ~ #1 ~ supplied ~ \msg_line_context:
} }
%%% Variables %%% Variables
@ -68,13 +69,13 @@ __HEADER__(Grouping theorems for easier customization.)
postname .default:n = \c_empty_tl, postname .default:n = \c_empty_tl,
postname .groups:n = { theoremgroup }, postname .groups:n = { theoremgroup },
group .clist_set:N = \l_groupthm_key_group_clist, group .clist_set:N = \l_groupthm_key_group_clist,
group .default:n = \c_empty_clist, group .default:n = {},
group .groups:n = { groupedtheorem }, group .groups:n = { groupedtheorem },
mapname .clist_set:N = \l_groupthm_mapname_clist, mapname .clist_set:N = \l_groupthm_mapname_clist,
mapname .default:n = \c_empty_clist, mapname .default:n = {},
mapname .groups:n = { theoremgroup }, mapname .groups:n = { theoremgroup },
thmtools .clist_set:N = \l_groupthm_thmtools_clist, thmtools .clist_set:N = \l_groupthm_thmtools_clist,
thmtools .default:n = \c_empty_clist, thmtools .default:n = {},
thmtools .groups:n = { theoremgroup, groupedtheorem, theoremvariants } thmtools .groups:n = { theoremgroup, groupedtheorem, theoremvariants }
} }
@ -100,7 +101,7 @@ __HEADER__(Grouping theorems for easier customization.)
} }
\AddToHook { groupthm / thmtools } [ #1 ] \AddToHook { groupthm / thmtools } [ #1 ]
{ {
\clist_put_right:Nn \l_groupthm_thmtools_clist) { #5 } \clist_put_right:Nn \l_groupthm_thmtools_clist { #5 }
} }
} }
} }
@ -130,7 +131,7 @@ __HEADER__(Grouping theorems for easier customization.)
{ {
\cs_if_exist_use:cF { group_use_#1: } \cs_if_exist_use:cF { group_use_#1: }
{ {
\msg_error:nnn { groupthm } { unknown ~ group } \msg_error:nnn { groupthm } { unknown ~ group } { #1 }
} }
} }
@ -148,26 +149,26 @@ __HEADER__(Grouping theorems for easier customization.)
\RemoveFromHook { groupthm / postname }[*] \RemoveFromHook { groupthm / postname }[*]
\RemoveFromHook { groupthm / mapname }[*] \RemoveFromHook { groupthm / mapname }[*]
\RemoveFromHook { groupthm / thmtools }[*] \RemoveFromHook { groupthm / thmtools }[*]
\clist_map_function:nN { #2 } \group_use:n
\clist_map_function:nN { #1 } \group_use:n
\hook_use:n { groupthm / prename } \hook_use:n { groupthm / prename }
\hook_use:n { groupthm / postname } \hook_use:n { groupthm / postname }
\hook_use:n { groupthm / mapname } \hook_use:n { groupthm / mapname }
%% this next line fails somehow
\hook_use:n { groupthm / thmtools } \hook_use:n { groupthm / thmtools }
\clist_put_right:Nx \l_groupthm_thmtools_tl \clist_put_right:Nx \l_groupthm_thmtools_clist
{ {
name = \tl_use:N \l_groupthm_prename_tl name = \tl_use:N \l_groupthm_prename_tl
\tl_use:N \l_groupthm_name_tl \tl_use:N \l_groupthm_name_tl
\tl_use:N \l_groupthm_postname_tl \tl_use:N \l_groupthm_postname_tl
} }
\declaretheorem:Vn \declaretheorem:nV
{ { #1 }
\l_groupthm_thmtools_clist \l_groupthm_thmtools_clist
}
{ #2 }
} }
\cs_generate_variant:Nn \new_grouped_theorem:nnnn { n V V V } \cs_generate_variant:Nn \new_grouped_theorem:nnnn { n V V V }
@ -175,14 +176,14 @@ __HEADER__(Grouping theorems for easier customization.)
\cs_new:Npn \new_grouped_theorem_from_keys:nn #1 #2 \cs_new:Npn \new_grouped_theorem_from_keys:nn #1 #2
{ {
\keys_set_groups:nnn { groupthm } { groupedtheorem } { name, group, thmtools } \keys_set_groups:nnn { groupthm } { groupedtheorem } { name, group, thmtools }
\keys_set_groups:nnn { groupthm } { groupedtheorem } { #1 } \keys_set_groups:nnn { groupthm } { groupedtheorem } { #2 }
% Construct name % Construct name
\tl_if_eq:NnTF \l_groupthm_key_name_tl { \c_novalue_tl } \tl_if_eq:NnTF \l_groupthm_key_name_tl { \c_novalue_tl }
{ {
\tl_set:Nx \l_groupthm_name_tl \tl_set:Nx \l_groupthm_name_tl
{ {
\text_titlecase_first:n {#2} \text_titlecase_first:n {#1}
} }
} }
{ {
@ -203,28 +204,33 @@ __HEADER__(Grouping theorems for easier customization.)
%%% Default groups available %%% Default groups available
\NewTheoremGroup { all } \NewTheoremGroup
[ [
] ]{ all }
\NewTheoremGroup { big } \NewTheoremGroup
[ [
thmtools = { sibling = insection } thmtools = { sibling = insection }
] ] { big }
\NewTheoremGroup { dagger } \NewTheoremGroup
[ [
postname = { $\dagger$ }, postname = { $\dagger$ },
thmtools = { sibling = insubsection } thmtools = { sibling = insubsection }
] ] { dagger }
\NewTheoremGroup { small } \NewTheoremGroup
[ [
thmtools = { sibling = insubsection } thmtools = { sibling = insubsection }
] ] { small }
\NewTheoremGroup { star } \NewTheoremGroup
[ [
thmtools = { sibling = insubsection }, thmtools = { sibling = insubsection },
postname = { * } postname = { * }
] ] { star }
\NewTheoremGroup
[
thmtools = { numbered = no }
] { starred }