如何在逐字转录环境中增加 catcode defs 来转录手写文档？

Question 1

你需要 verbatim完全没有？

\documentclass{article}
\usepackage{alltt}
\usepackage[normalem]{ulem}
\usepackage{xparse}

\ExplSyntaxOn

\NewDocumentEnvironment{hand}{}
 {
  \trivlist\ttfamily\footnotesize\raggedright\item
 }
 {
  \endtrivlist
 }

\NewDocumentCommand{\?}{m}
 {
  \str_case:nn { #1 }
   {
    {!}{ \gentexuser_footnote:w }
    {+}{ \gentexuser_sout:w }
    {@}{ \gentexuser_textsuperscript:w }
   }
 }

\cs_new_protected:Npn \gentexuser_footnote:w #1 ! { \footnote{#1} }
\cs_new_protected:Npn \gentexuser_sout:w #1 + { \sout{#1} }
\cs_new_protected:Npn \gentexuser_textsuperscript:w #1 @ { \textsuperscript{#1} }

\ExplSyntaxOff

\setlength{\textheight}{3cm} % just to make a smaller picture

\begin{document}

\begin{hand}
This is an example of a \?@superscript@ with subsequent escaped footnotes in a verbatim 
environment\?!See the First Example!

This is an example of a \?+line of text+ group of words being crossed out with 
subsequent escaped footnotes in a verbatim environment\?!See the Second Example!
\end{hand}

\end{document}

Answer

你需要 verbatim完全没有？

\documentclass{article}
\usepackage{alltt}
\usepackage[normalem]{ulem}
\usepackage{xparse}

\ExplSyntaxOn

\NewDocumentEnvironment{hand}{}
 {
  \trivlist\ttfamily\footnotesize\raggedright\item
 }
 {
  \endtrivlist
 }

\NewDocumentCommand{\?}{m}
 {
  \str_case:nn { #1 }
   {
    {!}{ \gentexuser_footnote:w }
    {+}{ \gentexuser_sout:w }
    {@}{ \gentexuser_textsuperscript:w }
   }
 }

\cs_new_protected:Npn \gentexuser_footnote:w #1 ! { \footnote{#1} }
\cs_new_protected:Npn \gentexuser_sout:w #1 + { \sout{#1} }
\cs_new_protected:Npn \gentexuser_textsuperscript:w #1 @ { \textsuperscript{#1} }

\ExplSyntaxOff

\setlength{\textheight}{3cm} % just to make a smaller picture

\begin{document}

\begin{hand}
This is an example of a \?@superscript@ with subsequent escaped footnotes in a verbatim 
environment\?!See the First Example!

This is an example of a \?+line of text+ group of words being crossed out with 
subsequent escaped footnotes in a verbatim environment\?!See the Second Example!
\end{hand}

\end{document}

Question 2

这里我直接改编了原作者的verbatim做法，我将其设为+一个双参数活动宏，第一个参数定义操作，第二个参数表示参数，因此，+s!superscript!带有的s是上标，+x!subsequent!带有的x是删除线，+f!See the First Example!带有的f是脚注。

 \documentclass[12pt]{memoir}
    \usepackage{verbatim}
    \usepackage[normalem]{ulem} %used to enable the use of strike out text via \sout{striked out text}
    % Footnote treatment, This keeps footnotes flush and aligned to the left.
    \setlength{\footmarkwidth}{1.7em} % if your footnotes go into the hundreds, you need at least 1.7em 
    \setlength{\footmarksep}{0em} 
    \footmarkstyle{#1.\hfill} % this will give you plain numbers for your notes 
    \textheight 2in
    \begin{document}
    \noindent Example: 
    \noindent Escaped Footnote, Superscript AND strikeout
      within a verbatim environment:
    \begingroup{
    {\catcode`+=\active
    \def+#1!#2!{\ifx s#1\textsuperscript{#2}\else
                \ifx x#1\sout{#2}\else
                \ifx f#1\footnote{#2}\fi\fi\fi}
    \tiny\begin{verbatim}
    This is an example of a +s!superscript! with +x!subsequent! escaped footnotes in a verbatim 
    environment+f!See the First Example!
    \end{verbatim}
    \normalsize
    }
    \end{document}

如果需要一种方法将 a 转义+到文档中，那么 active+可以定义为

\def+#1!#2!{\ifx s#1\textsuperscript{#2}\else
            \ifx x#1\sout{#2}\else
            \ifx f#1\footnote{#2}\else
            \ifx +#1\char`+\fi\fi\fi\fi}

在这种情况下将在输出中++!!产生。+

Answer

这里我直接改编了原作者的verbatim做法，我将其设为+一个双参数活动宏，第一个参数定义操作，第二个参数表示参数，因此，+s!superscript!带有的s是上标，+x!subsequent!带有的x是删除线，+f!See the First Example!带有的f是脚注。

 \documentclass[12pt]{memoir}
    \usepackage{verbatim}
    \usepackage[normalem]{ulem} %used to enable the use of strike out text via \sout{striked out text}
    % Footnote treatment, This keeps footnotes flush and aligned to the left.
    \setlength{\footmarkwidth}{1.7em} % if your footnotes go into the hundreds, you need at least 1.7em 
    \setlength{\footmarksep}{0em} 
    \footmarkstyle{#1.\hfill} % this will give you plain numbers for your notes 
    \textheight 2in
    \begin{document}
    \noindent Example: 
    \noindent Escaped Footnote, Superscript AND strikeout
      within a verbatim environment:
    \begingroup{
    {\catcode`+=\active
    \def+#1!#2!{\ifx s#1\textsuperscript{#2}\else
                \ifx x#1\sout{#2}\else
                \ifx f#1\footnote{#2}\fi\fi\fi}
    \tiny\begin{verbatim}
    This is an example of a +s!superscript! with +x!subsequent! escaped footnotes in a verbatim 
    environment+f!See the First Example!
    \end{verbatim}
    \normalsize
    }
    \end{document}

如果需要一种方法将 a 转义+到文档中，那么 active+可以定义为

\def+#1!#2!{\ifx s#1\textsuperscript{#2}\else
            \ifx x#1\sout{#2}\else
            \ifx f#1\footnote{#2}\else
            \ifx +#1\char`+\fi\fi\fi\fi}

在这种情况下将在输出中++!!产生。+

Question 3

有趣的是，使用@egreg 的解决方案，允许使用多字符宏分隔符。

如果我添加另一个案例条件，选择一个（或多或少）不太可能发生的序列，例如spp，

    {spp}{ \gentexuser_spelling:w }

并将匹配的命令定义为

\cs_new_protected:Npn \gentexuser_spelling:w #1 spp { #1\textsuperscript{[spelling?]} }

然后使用\?以下方式调用宏

\?{spp}Qwertuspp

将第一次出现的spp分隔符分组放在括号内，以便在呈现给宏时显示为标记，

那么结果是：

（它也不必在环境中hand。）

要使分隔符以其自身的形式显示，请将它们分组放在括号中以在扫描时隐藏它们：

这种技术可能有用例（例如，无需更改 catcode 的简写？）。

平均能量损失

\documentclass{article}
%\usepackage{alltt}
\usepackage{xcolor}
\usepackage[normalem]{ulem}
\usepackage{xparse}

\let\olddot=\.

\ExplSyntaxOn

\NewDocumentEnvironment{hand}{ +b}
 {
%  \trivlist\ttfamily\footnotesize\raggedright\item
  \trivlist\raggedright\item
  #1
  \endtrivlist
 }
 {
 }

\NewDocumentCommand{ \? } { m }
 {
  \str_case:nn { #1 }
   {
    {!}{ \gentexuser_footnote:w }
    {+}{ \gentexuser_sout:w }
    {@}{ \gentexuser_textsuperscript:w }
    {;}{ \gentexuser_emphfd:w }
    {-}{ \gentexuser_arrows:w }
    {zy}{ \gentexuser_testxx:w }
    {z}{ \gentexuser_testz:w }
    {rq}{ \gentexuser_testrq:w }
    {spp}{ \gentexuser_spelling:w }
   }
 }


\RenewDocumentCommand{ \. } { m }
 {
  \str_case:nn { #1 }
   {
    {*}{ \gentexuser_hash:w }
   }
 }


\cs_new_protected:Npn \gentexuser_footnote:w #1 ! { \footnote{#1} }
\cs_new_protected:Npn \gentexuser_sout:w #1 + { \sout{#1} }
\cs_new_protected:Npn \gentexuser_textsuperscript:w #1 @ { \textsuperscript{#1} }
\cs_new_protected:Npn \gentexuser_emphfd:w #1 ; { {\large\textbf{#1}} }
\cs_new_protected:Npn \gentexuser_arrows:w #1 - { $\rightarrow$#1$\leftarrow$ }
\cs_new_protected:Npn \gentexuser_testxx:w #1 zy { ~ABC#1XYZ~ }
\cs_new_protected:Npn \gentexuser_testz:w #1 z { \textit{~zzz#1ZZZ~} }
\cs_new_protected:Npn \gentexuser_testrq:w #1 rq { {\color{blue}rq-Start: [{\bfseries#1}] :rq-End} }
\cs_new_protected:Npn \gentexuser_hash:w #1 * { +++#1+++ }
\cs_new_protected:Npn \gentexuser_spelling:w #1 spp { #1\textsuperscript{[spelling?]} }

\ExplSyntaxOff



%\setlength{\textheight}{3cm} % just to make a smaller picture

\begin{document}

\begin{hand}
This is an example of a \?@superscript@ with subsequent escaped footnotes in a verbatim 
environment\?!See the First Example!

This is an example of a \?+line of text+ group of words being crossed out with 
subsequent escaped footnotes in a verbatim environment\?!See the Second Example! And some \?;Emphfd text; as well.

And a \?+y{\?@x{\?;combo;}x@}y+.
And a \?+ycomboy+. Some \?-arrows and {-} text-

And \?{zy}xxx qwerty qwerty non-zy \?zUIOPz non-z

This is rq test: some \?{rq}text more textrq and outside rq.

\?{spp}Qwertuspp

\end{hand}

Format is \verb|\?{rq}text more textrq|.


\olddot a \.*b*

To obtain \?{spp}Qwertuspp, type \verb|\?{spp}Qwertuspp|.

And \verb|\?{spp}Qwertu{spp}xyzspp| produces: \?{spp}Qwertu{spp}xyzspp

\end{document}

Answer