Заключите пользовательскую среду цитаты в кавычки из csquotes

Question

Я использую следующую aquoteсреду для создания кавычек, которые также помещают имя автора в нижний правый угол кавычки (в beamer). Этот макрос используется, потому что имя автора может быть «втиснуто» в пространство на предыдущей строке, если оно есть.

Мои навыки работы с латексом ограничены. Возможно ли переопределить эту среду, чтобы также \enquote{} текст внутри цитаты? У меня возникли проблемы с тем, как это сделать.

\documentclass{beamer}

\usepackage[style=british]{csquotes}

\def\signed #1{{\leavevmode\unskip\nobreak\hfil\penalty50\hskip1em
  \hbox{}\nobreak\hfill #1%
  \parfillskip=0pt \finalhyphendemerits=0 \endgraf}}

\newsavebox\mybox
\newenvironment{aquote}[1]
  {\savebox\mybox{#1}\begin{quote}}
  {\vspace*{1mm}\signed{\usebox\mybox}\end{quote}}

\begin{document}

\begin{frame}
      Example:
      \begin{aquote}{Author Name}
      This is an example with some text that goes across more than one line.    
      \end{aquote}

\end{frame}

\end{document}

Этот макрос, который я использую, основан на оригинальном, размещенном на этом сайте для статей, но был немного изменен для работы с beamer. Если я смогу найти оригинальный пример на этом сайте, я дам ссылку на него ниже.

Answer 1

Вот решение, которое вам, возможно, придется настроить в соответствии с вашими шрифтами ( \hspace).

\documentclass{beamer}

\usepackage[style=british]{csquotes}

\def\signed #1{{\leavevmode\unskip\nobreak\hfil\penalty50\hskip1em
  \hbox{}\nobreak\hfill #1%
  \parfillskip=0pt \finalhyphendemerits=0 \endgraf}}

\newsavebox\mybox
\newenvironment{aquote}[1]
  {\savebox\mybox{#1}\begin{quote}\openautoquote\hspace*{-.7ex}}
  {\unskip\closeautoquote\vspace*{1mm}\signed{\usebox\mybox}\end{quote}}

\begin{document}

\begin{frame}
      Example:
      \begin{aquote}{Author Name}
      This is an example with some text that goes across more than one line.    
      \end{aquote}

\end{frame}

\end{document}