使报价更新环境具有 ttfamily 字体

Question

我想要我的quote环境

\documentclass{article}

\let\@ldquote=\quote
\let\@ldendquote=\endquote
\renewenvironment{quote}
   {\@ldquote\setlength{\baselineskip\ttfamily}{\singlebaselineskip}}
   {\@ldendquote}

\begin{document}

Some text.
\begin{quote}
A quotation.
\end{quote}

\end{document}

与环境中应该使用的任何一个\tttext一起出现。\ttfamily

以便

\开始{引用} ... \结束{引用}

显示为 \tttext{...}。

如何才能实现这一目标呢？

Answer 1

从您发布的代码片段来看，您不仅希望在环境中使用等宽字体quote，还希望在这些环境中使用单倍行距。如果是这样，我建议您在序言中包含以下说明：

\usepackage{etoolbox,setspace}
\AtBeginEnvironment{quote}{\ttfamily\raggedright\frenchspacing\setstretch{1.0}}

完整的 MWE（最小工作示例）：

\documentclass{article}
\usepackage{etoolbox,setspace,lipsum}
\AtBeginEnvironment{quote}{\ttfamily\raggedright\frenchspacing\setstretch{1.0}}

\doublespacing % or "\onehalfspacing"?

\begin{document}
\lipsum[1] % filler text
\begin{quote}
\lipsum[2] % more filler text
\end{quote}
\lipsum[3] % still more filler text
\end{document}