为 yinit Lettrine 定制开头单引号和双引号

为 yinit Lettrine 定制开头单引号和双引号

这篇文章与 egreg 在使用 lettrine 调整引号的大小和对齐方式

下面的代码

\RequirePackage{fix-cm}
\documentclass{book}
\usepackage{lettrine}
\usepackage{xcolor}

\setcounter{DefaultLines}{3}
\setlength{\DefaultFindent}{0em}
\setlength{\DefaultNindent}{.17em}
\renewcommand{\LettrineFontHook}{\usefont{U}{yinit}{m}{n}}
\renewcommand{\DefaultLoversize}{-0.67}

\newcommand\loq{%
  \sbox0{T}%
  \sbox2{%
    \dimen0=\csname f@size\endcsname pt
    \dimen0=0.5\dimen0 % adjust the factor to suit
    \fontsize{\dimen0}{0}\selectfont`%
  }%
  \llap{\raisebox{\dimexpr\ht0-\ht2}{\usebox{2}}}%
}

\begin{document}
\thispagestyle{empty}
\begin{LARGE}
\begin{center}
\begin{minipage}{5.75in}
%\baselineskip=1.5\baselineskip
\lettrine{\color{red}{\loq W}}{\color{red}{e}} \textbf{{\color{red}{cannot}} solve our problems with the same thinking we used when we created them.''}
\end{minipage}
\end{center}
\end{LARGE}
\end{document}

利用 egreg 的算法来定义命令\loq--- 在信件开头放置一个自定义的开场引号。

我已经运行了 egreg 的代码,它对我来说工作得很好;然而,当我将它合并到上面的 MWE 中时,开头的引文并没有出现:

在此处输入图片描述

我唯一能看到的可能导致问题的原因是我使用的 lettrine 与上述帖子中考虑的 lettrine 不同。当然,我的代码(我使用 Pdflatex 运行)也可能存在问题,但我看不到。

问题:如何修改 MWE 中的代码以便在 lettrine 之前产生一个开头的单引号(在本例中为红色);此外,如何修改算法以产生开头的双引号?

谢谢。

相关内容