feat: support custom extra info keys

sjtug · Jan 11, 2025 · 70c4c87 · 70c4c87
1 parent c090366
commit 70c4c87
Showing 1 changed file with 29 additions and 3 deletions.
diff --git a/sjtutex/source/sjtutex.dtx b/sjtutex/source/sjtutex.dtx
@@ -4363,7 +4363,19 @@
         fund              .groups:n = { sensitive } ,
         date               .meta:nn = { sjtu / info } { date = {##1} } ,
         display-date      .tl_set:c = { l_@@_info_date_ #1 _tl } ,
-        show           .clist_set:c = { l_@@_info_show_ #1 _clist }
+        show           .clist_set:c = { l_@@_info_show_ #1 _clist } ,
+        show              .groups:n = { sensitive } ,
+        extra              .meta:nn = { sjtu / info / #1 / extra } {##1} ,
+        extra / unknown     .code:n =
+          {
+            \keys_if_exist:nnF { sjtu / info / #1 } { \l_keys_key_tl }
+              {
+                \tl_set_eq:NN \l_@@_tmp_tl \l_keys_key_tl
+                \tl_replace_all:Nnn \l_@@_tmp_tl { - } { _ }
+                \tl_set:co { l_@@_name_ \l_@@_tmp_tl _ #1 _tl } { \use_i:nn  ##1 }
+                \tl_set:co { l_@@_info_ \l_@@_tmp_tl _ #1 _tl } { \use_ii:nn ##1 }
+              }
+          }
       }
   }
 %    \end{macrocode}
@@ -4610,8 +4622,22 @@
         {
           \tl_set:Nn \l_@@_tmp_tl {##1}
           \tl_replace_all:Nnn \l_@@_tmp_tl { - } { _ }
-          \exp_args:Nv \tl_if_novalue:nF
-            { l_@@_info_ \l_@@_tmp_tl _ \l_@@_lang_tl _tl }
+          \bool_lazy_all:nT
+            {
+              {
+                \tl_if_exist_p:c
+                  { l_@@_name_ \l_@@_tmp_tl _ \l_@@_lang_tl _tl }
+              }
+              {
+                \tl_if_exist_p:c
+                  { l_@@_info_ \l_@@_tmp_tl _ \l_@@_lang_tl _tl }
+
+              }
+              {
+                ! \exp_args:Nv \tl_if_novalue_p:n
+                  { l_@@_info_ \l_@@_tmp_tl _ \l_@@_lang_tl _tl }
+              }
+            }
             {
               \clist_put_right:Ne \l_@@_tmp_clist
                 {