Figure credit posted inside figure environment, printed in listoffigurecredits

Question

I'm writing a long book with many figures, and I'd like to insert figure credit code inside each figure environment and have the associated credit text collected and printed in a Listoffigurecredits (much like a Listoffigures, Listoftables, and such) at the end of the book.

I looked into this related answer but it was rather complex and did not perform quite what I needed, for instance the automatic numbering of the credit based on the typeset figure number.

As an example, I would like a figure call with associated credit line to be of the (minimal) form:

\begin{figure}
\include{...figure file here...}
\caption{Mona Lisa by Leonardo da Vinci.}
\figurecredit{Mona Lisa by Leonardo da Vinci, reproduced by permission, The Louvre, Paris.}
\end{figure}

Then, at the end of the book I'd like to have a

\listoffigurecredits

which would print a list whose items included:

Figure 2.9: Mona Lisa by Leonardo da Vinci, reproduced by permission, The Louvre, Paris.

Notice that the "Figure 2.9" should be automatically generated, based on the actual typeset figure, and that the style should match that of listoffigures, listoftables, etc.

I'm hoping for the minimal code... the simplest approach to this admittedly tricky task.

Answer 1

The macro \figurecredits just writes the credit to a separate file named \jobname.fcf and \listoffigurecredits is basically nothing different than a copy of \tableofcontents, which displays the .fcf file.

\documentclass{article}

\usepackage{etoolbox}


\makeatletter
\newcommand{\figurecredit}[2][]{%
  \ifblank{#1}{%
    \addcontentsline{fcf}{figure}{\protect\numberline{\thefigure}#2}%
  }{%
    \addcontentsline{fcf}{figure}{\protect\numberline{\thefigure}#1}%
  }%
}

\newcommand{\listoffigurecredits}{%
  \begingroup
  \clearpage
  \let\old@starttoc\@starttoc
  \def\@starttoc##1{\old@starttoc{fcf}}
  \renewcommand{\contentsname}{Figure credits}
  \tableofcontents
  \endgroup
}
\makeatother

\begin{document}
\listoffigures


\begin{figure}
\caption{Mona Lisa by Leonardo da Vinci.}
\figurecredit{Mona Lisa by Leonardo da Vinci, reproduced by permission, The Louvre, Paris.}
\end{figure}

\begin{figure}
\caption{The Scream by Edvard Munch}
\figurecredit[The Scream]{The Scream by Edvard Munch}
\end{figure}


\listoffigurecredits

\end{document}

Answer 2

Based on @user31729 answer as well as this other one, here is a more minimalist case that worked for me where @user31729 answer did not:

\DeclareRobustCommand{\figurecredit}[1]{\addcontentsline{fcf}{figure}{\protect\numberline{\thefigure}#1}}
\makeatletter
\newcommand{\listoffigurecredits}{%
    \begingroup
    \chapter*{Figure credits}
    \@starttoc{fcf}
    \endgroup
}
\makeatother

Now, if you use a KOMA-Script class, or even just tocbasic by itself, you can also do this:

\addtotoclist[]{fcf}
\DeclareRobustCommand{\figurecredit}[1]{\addcontentsline{fcf}{figure}{\protect\numberline{\thefigure}#1}}
\newcommand*{\listoffigurecredits}{\listoftoc[Figures credits]{fcf}}

Finally, you might want subfigures to be included and properly referenced, then swap the definition of \figurecredit with:

\DeclareRobustCommand{\figurecredit}[1]{%
    \addcontentsline{fcf}{figure}{%
        \ifnum\value{subfigure}>0
            \protect\numberline{\thefigure.\thesubfigure}
        \else
            \protect\numberline{\thefigure}
        \fi
        #1%
    }%
}

Answer 3

This may not be satisfying, but the quick and dirty solution would be to put all the text inside the caption, then use the command \listoffigures which generates a list of all figures first with figure number then the caption text (separated by a colon).