
Estou tentando converter automaticamente \caption{...\label{...}...}
para \caption{...}\label{...}
. Isto é o que eu tentei:
\documentclass{article}
\usepackage{showlabels}
\newcommand{\storelabel}[1]{\gdef\storedlabel{#1}}
\let\oldcaption\caption
\renewcommand{\caption}[1]{%
\let\storedlabel\undefined
\oldcaption{%
\def\label##1{%
\protect\storelabel{##1}%
}%
#1%
}%
\ifdefined\storedlabel%
\label{\storedlabel}%
\else%
\fi%
}
\begin{document}
\begin{table}
\caption{no label}
foo
\end{table}
\begin{table}
\caption{\label{mylabel}label inside caption (front)}
foo
\end{table}
\begin{table}
\caption{label inside caption (back) \label{mylabel}}
foo
\end{table}
\begin{table}
\caption{label directly after caption}
\label{mylabel}
foo
\end{table}
\begin{table}
\caption{label at end of table (I'm OK with that one)}
foo
\label{mylabel}
\end{table}
\end{document}
O arquivo pdf também parece correto, mas recebo esta mensagem de erro (cinco vezes, uma vez por chamada de \caption
):
! Illegal parameter number in definition of \reserved@a.
<to be read again>
1
l.20 \caption{no label}
You meant to type ## instead of #, right?
Or maybe a } was forgotten somewhere earlier, and things
are all screwed up? I'm going to assume that you meant ##.
Se eu substituir \storelabel{##1}
por \storelabel{mylabel}
, o arquivo pdf terá a mesma aparência e a mensagem de erro desaparecerá. Mas não é isso que eu quero, obviamente.
Atualizar: Este MWE mostra bem o mesmo erro,embora não esteja relacionado ao meu objetivo original de sair \label
e \caption
, assim, mover os showlabels
rótulos.
\documentclass{article}
\begin{document}
\begin{table}
\caption{\def\foo[#1]{#1}}
\end{table}
\end{document}
Responder1
No meu ponto de vista, é melhor capturar o \label
e deixá-lo armazenar o nome do rótulo em \storedlabel
in \caption
e depois deslocar o real \label
para o final de \@caption
, após a \@makecaption
emissão do the.
A redefinição do estilo \label
will break !cleveref
\label[...]{foo}
\documentclass{article}
\usepackage{showlabels}
\usepackage{xparse}
\usepackage{letltxmacro}
\usepackage{xpatch}
\usepackage{cleveref} % Just for testing!
\makeatletter
\LetLtxMacro\latex@@origlabel\label
\xpatchcmd{%
\caption
}{%
\refstepcounter\@captype%
}{%
\let\storedlabel\undefined%
\refstepcounter\@captype
\begingroup
\renewcommand{\label}[1]{%
\gdef\storedlabel{##1}% Catch the the label but doing nothing except of storing it!
}
\endgroup
}{\typeout{Successfully patched caption}}{\typeout{Failed in patching caption}}
\xpatchcmd{\@caption}{%
\@makecaption{\csname fnum@#1\endcsname}{\ignorespaces #3}\par
\endgroup}{%
\@makecaption{\csname fnum@#1\endcsname}{\ignorespaces #3}\par
\endgroup%
\@ifundefined{storedlabel}{}{% Transfer the label to this place
\label@@origlabel{\storedlabel}}%
}{\typeout{Success}}{\typeout{Failure!}}
\makeatother
\begin{document}
\begin{table}
\caption{no label}
foo
\end{table}
\begin{table}
\caption{\label{othermylabel}label inside caption (front)}
foo
\end{table}
\begin{table}
\caption{label inside caption (back) \label{mylabel}}
foo
\end{table}
\begin{table}
\caption{label directly after caption}
\label{mylabelfoo}
foo
\end{table}
\begin{table}
\caption{label at end of table (I'm OK with that one)}
foo
\label{mylabelfoobar}
\end{table}
Now some referencing: \cref{othermylabel} and \ref{mylabel} and \ref{mylabelfoo} and \ref{mylabelfoobar}
\end{document}
Responder2
Isso funciona:
\documentclass{article}
%\usepackage{caption}
\usepackage{showlabels}
\usepackage{xpatch}
\def\storelabel#1{\gdef\storedlabel{#1}}
\makeatletter
\patchcmd{\@caption}{#3}{\global\let\storedlabel\undefined\let\label\storelabel#3}{}{err}
\apptocmd{\@caption}{\ifdefined\storedlabel\label{\storedlabel}\else\fi}{}{err}
\makeatother
\begin{document}
\listoftables
\clearpage
\begin{table}
\caption{no label}
foo
\end{table}
\begin{table}
\caption{\label{mylabel}label inside caption (front)}
foo
\end{table}
\begin{table}
\caption{label inside caption (back) \label{mylabel}}
foo
\end{table}
\begin{table}
\caption{label directly after caption}
\label{mylabel}
foo
\end{table}
\begin{table}
\caption{label at end of table (I'm OK with that one)}
foo
\label{mylabel}
\end{table}
\end{document}
As principais diferenças são
\def\label##1{...}
->\let\label\storelabel
, evitando o uso do argumento##1
dentro\caption
- Inspirado e graças a @ChristianHupfer, o uso de
xpatch
para corrigir seletivamente\@caption
em vez de redefinir\caption
. Funciona até com ocaption
pacote e com\listoftables
agora.
Seu comentário ainda permanece: \label
com um argumento opcional falha. Mas eu não preciso disso.