是否有一个包可以将西里尔字母的默认字体编码设置为 T2A？

Question 1

您自己的答案的变体：

\documentclass{article}
\usepackage[T2A,T1]{fontenc}

\makeatletter
\@tfor\next:=%
  {А}{а}{Б}{б}{В}{в}{Г}{г}{Д}{д}{Е}{е}
  {Ё}{ё}{Ж}{ж}{З}{з}{И}{и}{Й}{й}{К}{к}
  {Л}{л}{М}{м}{Н}{н}{О}{о}{П}{п}{Р}{р}
  {С}{с}{Т}{т}{У}{у}{Ф}{ф}{Х}{х}{Ц}{ц}
  {Ч}{ч}{Ш}{ш}{Щ}{щ}{Ъ}{ъ}{Ы}{ы}{Ь}{ь}
  {Э}{э}{Ю}{ю}{Я}{я}%
\do{%
  \begingroup\def\IeC{\protect\DeclareTextSymbolDefault}%
  \protected@edef\@temp{\endgroup\csname u8:\next\endcsname{X2}}\@temp}
\makeatother

\begin{document}

До свидания! See you soon!

\end{document}

添加您需要的其他西里尔字符。请记住，如果您运行的是旧版 LaTeX（2018-04-01 之前），您还需要\usepackage[utf8]{inputenc}。

使用 X2 编码，它涵盖了 T2A、T2B 和 T2C 编码中的大量字符：

\documentclass{article}
\usepackage[X2,T1]{fontenc}
\makeatletter
\@tfor\next:=
{Ё} {Ђ} {Є} {Ѕ} {І} {Ј} {Љ} {Њ} {Ћ} {Ў} {Џ} {А} {Б} {В} {Г} {Д}
{Е} {Ж} {З} {И} {Й} {К} {Л} {М} {Н} {О} {П} {Р} {С} {Т} {У} {Ф}
{Х} {Ц} {Ч} {Ш} {Щ} {Ъ} {Ы} {Ь} {Э} {Ю} {Я} {а} {б} {в} {г} {д}
{е} {ж} {з} {и} {й} {к} {л} {м} {н} {о} {п} {р} {с} {т} {у} {ф}
{х} {ц} {ч} {ш} {щ} {ъ} {ы} {ь} {э} {ю} {я} {ё} {ђ} {є} {ѕ} {і}
{ј} {љ} {њ} {ћ} {ў} {џ} {Ѣ} {ѣ} {Ѫ} {ѫ} {Ѵ} {ѵ} {Ґ} {ґ} {Ғ} {ғ}
{Ҕ} {ҕ} {Җ} {җ} {Ҙ} {ҙ} {Қ} {қ} {Ҝ} {ҝ} {Ҟ} {ҟ} {Ҡ} {ҡ} {Ң} {ң}
{Ҥ} {ҥ} {Ҧ} {ҧ} {Ҩ} {ҩ} {Ҫ} {ҫ} {Ҭ} {ҭ} {Ү} {ү} {Ұ} {ұ} {Ҳ} {ҳ}
{Ҵ} {ҵ} {Ҷ} {ҷ} {Ҹ} {ҹ} {Һ} {һ} {Ҽ} {ҽ} {Ҿ} {ҿ} {Ӏ} {Ӄ} {ӄ} {Ӆ}
{ӆ} {Ӈ} {ӈ} {Ӌ} {ӌ} {Ӎ} {ӎ} {Ӕ} {ӕ} {Ә} {ә} {Ӡ} {ӡ} {Ө} {ө}
\do{%
  \begingroup\def\IeC{\protect\DeclareTextSymbolDefault}%
  \protected@edef\@temp{\endgroup\csname u8:\next\endcsname{X2}}\@temp}
\makeatother

\begin{document}

Ё Ђ Є Ѕ І Ј Љ Њ Ћ Ў Џ А Б В Г Д
Е Ж З И Й К Л М Н О П Р С Т У Ф
Х Ц Ч Ш Щ Ъ Ы Ь Э Ю Я а б в г д
е ж з и й к л м н о п р с т у ф
х ц ч ш щ ъ ы ь э ю я ё ђ є ѕ і
ј љ њ ћ ў џ Ѣ ѣ Ѫ ѫ Ѵ ѵ Ґ ґ Ғ ғ
Ҕ ҕ Җ җ Ҙ ҙ Қ қ Ҝ ҝ Ҟ ҟ Ҡ ҡ Ң ң
Ҥ ҥ Ҧ ҧ Ҩ ҩ Ҫ ҫ Ҭ ҭ Ү ү Ұ ұ Ҳ ҳ
Ҵ ҵ Ҷ ҷ Ҹ ҹ Һ һ Ҽ ҽ Ҿ ҿ Ӏ Ӄ ӄ Ӆ
ӆ Ӈ ӈ Ӌ ӌ Ӎ ӎ Ӕ ӕ Ә ә Ӡ ӡ Ө ө


\end{document}

令你高兴的是，实现如下expl3：

\documentclass{article}
\usepackage[X2,T1]{fontenc}
\usepackage{expl3}

\ExplSyntaxOn
\cs_new_protected:Nn \__recode:N
 {% #1 is \u8:<bytes> which expands to \IeC{<LICR>}
  \exp_last_unbraced:No \__recode_aux:nn #1
 }
\cs_new_protected:Nn \__recode_aux:nn { \DeclareTextSymbolDefault#2{X2} }
\cs_generate_variant:Nn \__recode:N { c }
\tl_map_inline:nn
 {
  {Ё} {Ђ} {Є} {Ѕ} {І} {Ј} {Љ} {Њ} {Ћ} {Ў} {Џ} {А} {Б} {В} {Г} {Д}
  {Е} {Ж} {З} {И} {Й} {К} {Л} {М} {Н} {О} {П} {Р} {С} {Т} {У} {Ф}
  {Х} {Ц} {Ч} {Ш} {Щ} {Ъ} {Ы} {Ь} {Э} {Ю} {Я} {а} {б} {в} {г} {д}
  {е} {ж} {з} {и} {й} {к} {л} {м} {н} {о} {п} {р} {с} {т} {у} {ф}
  {х} {ц} {ч} {ш} {щ} {ъ} {ы} {ь} {э} {ю} {я} {ё} {ђ} {є} {ѕ} {і}
  {ј} {љ} {њ} {ћ} {ў} {џ} {Ѣ} {ѣ} {Ѫ} {ѫ} {Ѵ} {ѵ} {Ґ} {ґ} {Ғ} {ғ}
  {Ҕ} {ҕ} {Җ} {җ} {Ҙ} {ҙ} {Қ} {қ} {Ҝ} {ҝ} {Ҟ} {ҟ} {Ҡ} {ҡ} {Ң} {ң}
  {Ҥ} {ҥ} {Ҧ} {ҧ} {Ҩ} {ҩ} {Ҫ} {ҫ} {Ҭ} {ҭ} {Ү} {ү} {Ұ} {ұ} {Ҳ} {ҳ}
  {Ҵ} {ҵ} {Ҷ} {ҷ} {Ҹ} {ҹ} {Һ} {һ} {Ҽ} {ҽ} {Ҿ} {ҿ} {Ӏ} {Ӄ} {ӄ} {Ӆ}
  {ӆ} {Ӈ} {ӈ} {Ӌ} {ӌ} {Ӎ} {ӎ} {Ӕ} {ӕ} {Ә} {ә} {Ӡ} {ӡ} {Ө} {ө}
 }
 {
  \__recode:c { u8: \tl_to_str:n { #1 } }
 }
\ExplSyntaxOff

\begin{document}

Ё Ђ Є Ѕ І Ј Љ Њ Ћ Ў Џ А Б В Г Д
Е Ж З И Й К Л М Н О П Р С Т У Ф
Х Ц Ч Ш Щ Ъ Ы Ь Э Ю Я а б в г д
е ж з и й к л м н о п р с т у ф
х ц ч ш щ ъ ы ь э ю я ё ђ є ѕ і
ј љ њ ћ ў џ Ѣ ѣ Ѫ ѫ Ѵ ѵ Ґ ґ Ғ ғ
Ҕ ҕ Җ җ Ҙ ҙ Қ қ Ҝ ҝ Ҟ ҟ Ҡ ҡ Ң ң
Ҥ ҥ Ҧ ҧ Ҩ ҩ Ҫ ҫ Ҭ ҭ Ү ү Ұ ұ Ҳ ҳ
Ҵ ҵ Ҷ ҷ Ҹ ҹ Һ һ Ҽ ҽ Ҿ ҿ Ӏ Ӄ ӄ Ӆ
ӆ Ӈ ӈ Ӌ ӌ Ӎ ӎ Ӕ ӕ Ә ә Ӡ ӡ Ө ө

\end{document}

Answer

您自己的答案的变体：

\documentclass{article}
\usepackage[T2A,T1]{fontenc}

\makeatletter
\@tfor\next:=%
  {А}{а}{Б}{б}{В}{в}{Г}{г}{Д}{д}{Е}{е}
  {Ё}{ё}{Ж}{ж}{З}{з}{И}{и}{Й}{й}{К}{к}
  {Л}{л}{М}{м}{Н}{н}{О}{о}{П}{п}{Р}{р}
  {С}{с}{Т}{т}{У}{у}{Ф}{ф}{Х}{х}{Ц}{ц}
  {Ч}{ч}{Ш}{ш}{Щ}{щ}{Ъ}{ъ}{Ы}{ы}{Ь}{ь}
  {Э}{э}{Ю}{ю}{Я}{я}%
\do{%
  \begingroup\def\IeC{\protect\DeclareTextSymbolDefault}%
  \protected@edef\@temp{\endgroup\csname u8:\next\endcsname{X2}}\@temp}
\makeatother

\begin{document}

До свидания! See you soon!

\end{document}

添加您需要的其他西里尔字符。请记住，如果您运行的是旧版 LaTeX（2018-04-01 之前），您还需要\usepackage[utf8]{inputenc}。

使用 X2 编码，它涵盖了 T2A、T2B 和 T2C 编码中的大量字符：

\documentclass{article}
\usepackage[X2,T1]{fontenc}
\makeatletter
\@tfor\next:=
{Ё} {Ђ} {Є} {Ѕ} {І} {Ј} {Љ} {Њ} {Ћ} {Ў} {Џ} {А} {Б} {В} {Г} {Д}
{Е} {Ж} {З} {И} {Й} {К} {Л} {М} {Н} {О} {П} {Р} {С} {Т} {У} {Ф}
{Х} {Ц} {Ч} {Ш} {Щ} {Ъ} {Ы} {Ь} {Э} {Ю} {Я} {а} {б} {в} {г} {д}
{е} {ж} {з} {и} {й} {к} {л} {м} {н} {о} {п} {р} {с} {т} {у} {ф}
{х} {ц} {ч} {ш} {щ} {ъ} {ы} {ь} {э} {ю} {я} {ё} {ђ} {є} {ѕ} {і}
{ј} {љ} {њ} {ћ} {ў} {џ} {Ѣ} {ѣ} {Ѫ} {ѫ} {Ѵ} {ѵ} {Ґ} {ґ} {Ғ} {ғ}
{Ҕ} {ҕ} {Җ} {җ} {Ҙ} {ҙ} {Қ} {қ} {Ҝ} {ҝ} {Ҟ} {ҟ} {Ҡ} {ҡ} {Ң} {ң}
{Ҥ} {ҥ} {Ҧ} {ҧ} {Ҩ} {ҩ} {Ҫ} {ҫ} {Ҭ} {ҭ} {Ү} {ү} {Ұ} {ұ} {Ҳ} {ҳ}
{Ҵ} {ҵ} {Ҷ} {ҷ} {Ҹ} {ҹ} {Һ} {һ} {Ҽ} {ҽ} {Ҿ} {ҿ} {Ӏ} {Ӄ} {ӄ} {Ӆ}
{ӆ} {Ӈ} {ӈ} {Ӌ} {ӌ} {Ӎ} {ӎ} {Ӕ} {ӕ} {Ә} {ә} {Ӡ} {ӡ} {Ө} {ө}
\do{%
  \begingroup\def\IeC{\protect\DeclareTextSymbolDefault}%
  \protected@edef\@temp{\endgroup\csname u8:\next\endcsname{X2}}\@temp}
\makeatother

\begin{document}

Ё Ђ Є Ѕ І Ј Љ Њ Ћ Ў Џ А Б В Г Д
Е Ж З И Й К Л М Н О П Р С Т У Ф
Х Ц Ч Ш Щ Ъ Ы Ь Э Ю Я а б в г д
е ж з и й к л м н о п р с т у ф
х ц ч ш щ ъ ы ь э ю я ё ђ є ѕ і
ј љ њ ћ ў џ Ѣ ѣ Ѫ ѫ Ѵ ѵ Ґ ґ Ғ ғ
Ҕ ҕ Җ җ Ҙ ҙ Қ қ Ҝ ҝ Ҟ ҟ Ҡ ҡ Ң ң
Ҥ ҥ Ҧ ҧ Ҩ ҩ Ҫ ҫ Ҭ ҭ Ү ү Ұ ұ Ҳ ҳ
Ҵ ҵ Ҷ ҷ Ҹ ҹ Һ һ Ҽ ҽ Ҿ ҿ Ӏ Ӄ ӄ Ӆ
ӆ Ӈ ӈ Ӌ ӌ Ӎ ӎ Ӕ ӕ Ә ә Ӡ ӡ Ө ө


\end{document}

令你高兴的是，实现如下expl3：

\documentclass{article}
\usepackage[X2,T1]{fontenc}
\usepackage{expl3}

\ExplSyntaxOn
\cs_new_protected:Nn \__recode:N
 {% #1 is \u8:<bytes> which expands to \IeC{<LICR>}
  \exp_last_unbraced:No \__recode_aux:nn #1
 }
\cs_new_protected:Nn \__recode_aux:nn { \DeclareTextSymbolDefault#2{X2} }
\cs_generate_variant:Nn \__recode:N { c }
\tl_map_inline:nn
 {
  {Ё} {Ђ} {Є} {Ѕ} {І} {Ј} {Љ} {Њ} {Ћ} {Ў} {Џ} {А} {Б} {В} {Г} {Д}
  {Е} {Ж} {З} {И} {Й} {К} {Л} {М} {Н} {О} {П} {Р} {С} {Т} {У} {Ф}
  {Х} {Ц} {Ч} {Ш} {Щ} {Ъ} {Ы} {Ь} {Э} {Ю} {Я} {а} {б} {в} {г} {д}
  {е} {ж} {з} {и} {й} {к} {л} {м} {н} {о} {п} {р} {с} {т} {у} {ф}
  {х} {ц} {ч} {ш} {щ} {ъ} {ы} {ь} {э} {ю} {я} {ё} {ђ} {є} {ѕ} {і}
  {ј} {љ} {њ} {ћ} {ў} {џ} {Ѣ} {ѣ} {Ѫ} {ѫ} {Ѵ} {ѵ} {Ґ} {ґ} {Ғ} {ғ}
  {Ҕ} {ҕ} {Җ} {җ} {Ҙ} {ҙ} {Қ} {қ} {Ҝ} {ҝ} {Ҟ} {ҟ} {Ҡ} {ҡ} {Ң} {ң}
  {Ҥ} {ҥ} {Ҧ} {ҧ} {Ҩ} {ҩ} {Ҫ} {ҫ} {Ҭ} {ҭ} {Ү} {ү} {Ұ} {ұ} {Ҳ} {ҳ}
  {Ҵ} {ҵ} {Ҷ} {ҷ} {Ҹ} {ҹ} {Һ} {һ} {Ҽ} {ҽ} {Ҿ} {ҿ} {Ӏ} {Ӄ} {ӄ} {Ӆ}
  {ӆ} {Ӈ} {ӈ} {Ӌ} {ӌ} {Ӎ} {ӎ} {Ӕ} {ӕ} {Ә} {ә} {Ӡ} {ӡ} {Ө} {ө}
 }
 {
  \__recode:c { u8: \tl_to_str:n { #1 } }
 }
\ExplSyntaxOff

\begin{document}

Ё Ђ Є Ѕ І Ј Љ Њ Ћ Ў Џ А Б В Г Д
Е Ж З И Й К Л М Н О П Р С Т У Ф
Х Ц Ч Ш Щ Ъ Ы Ь Э Ю Я а б в г д
е ж з и й к л м н о п р с т у ф
х ц ч ш щ ъ ы ь э ю я ё ђ є ѕ і
ј љ њ ћ ў џ Ѣ ѣ Ѫ ѫ Ѵ ѵ Ґ ґ Ғ ғ
Ҕ ҕ Җ җ Ҙ ҙ Қ қ Ҝ ҝ Ҟ ҟ Ҡ ҡ Ң ң
Ҥ ҥ Ҧ ҧ Ҩ ҩ Ҫ ҫ Ҭ ҭ Ү ү Ұ ұ Ҳ ҳ
Ҵ ҵ Ҷ ҷ Ҹ ҹ Һ һ Ҽ ҽ Ҿ ҿ Ӏ Ӄ ӄ Ӆ
ӆ Ӈ ӈ Ӌ ӌ Ӎ ӎ Ӕ ӕ Ә ә Ӡ ӡ Ө ө

\end{document}

Question 2

如果不存在包，我可能会做这样的事情：

\documentclass{article}
\usepackage[T2A,T1]{fontenc}
\makeatletter
\@tfor\@tempa:=%
{ae}{a}{b}{chrdsc}{chvcrs}{ch}{c}{dje}{dze}{dzhe}{d}{erev}{ery}{e}%
{f}{ghcrs}{gup}{g}{hdsc}{hrdsn}{h}{ie}{ii}{ishrt}{i}{je}%
{kbeak}{kdsc}{kvcrs}{k}{lje}{l}{m}{ndsc}{ng}{nje}{n}{otld}{o}{p}{r}%
{schwa}{sdsc}{sftsn}{shch}{shha}{sh}{s}{tshe}{t}{ushrt}{u}{v}%
{ya}{yhcrs}{yi}{yo}{yu}{y}{zdsc}{zhdsc}{zh}{z}\do{%
    \expandafter\DeclareTextSymbolDefault\expandafter
               {\csname cyr\@tempa\endcsname}{T2A}%
    \expandafter\uppercase\expandafter{\expandafter
                 \def\expandafter\@tempa\expandafter{\@tempa}}%
    \expandafter\DeclareTextSymbolDefault\expandafter
      {\csname CYR\@tempa\endcsname}{T2A}%
}%
\makeatother
\DeclareTextSymbolDefault{\CYRpalochka}{T2A}

%\listfiles
\begin{document}
До свидания!

%\makeatletter
%\show\@uclclist
\end{document}

这是基于的正则表达式操作t2aenc.dfu（我将t2aenc.def其与也具有\cyrq、进行了比较\cyrw，但对 Unicode 西里尔字母块的检查似乎表明它们仅代表拉丁语q和w，因此如果文档中没有明确的字体编码更改，它们就无法通过 T2A 编码的 TeX 字体呈现，这是我所希望的“无标记”方法的另一个问题，除了破坏字距调整和不设置连字符之外）。

包含\@uclclist更多\cyr...，大概来自utf8enc.dfu（在文件列表中看不到它，但我猜是因为它是在 TL2018 之后的格式中加载的），因此使用它意味着T2A错误地为某些字母分配默认字体编码替换。如果文档不包含这样的字母，那就不是问题了……

达斯维达尼亚

Answer