stelle zum ersten Mal eine Frage.
Ich implementiere die Antwort von Egreg auf diese Frage:Erstes Vorkommen eines bestimmten Wortes hervorheben
%%% Code to set up special term treatment
\makeatletter
\newcommand{\specialterms}[1]{%
\@for\next:=#1\do
{\@namedef{specialterm@\detokenize\expandafter{\next}}{}}%
}
\newcommand\term[1]{%
\@ifundefined{specialterm@\detokenize{#1}}
{#1}{\emph{#1}\global\expandafter\let\csnamespecialterm@\detokenize{#1}\endcsna me\relax}%
}
\makeatother
%%% Here we define the special terms we want
\specialterms{foo,bar,baz}
Dadurch wird die erste Erwähnung der Wörter in der \specialterms
Liste hervorgehoben. Das funktioniert im Moment gut. Ich möchte, dass es großgeschriebene Versionen der in aufgeführten Wörter erkennt \specialterms
, damit es mit dem ersten Wort in einem Satz besser funktioniert. Anhand des obigen Beispiels möchte ich, dass Foo \term{Foo}
hervorgehoben wird, ohne dass ich Foo zur \specialterms
Liste hinzufügen muss.
Ich habe Folgendes versucht:
\@ifundefined{specialterm@\MakeLowercase{\detokenize{#1}}}
Das funktioniert jedoch nicht. Ich glaube, ich muss einige Befehle und dergleichen hinzufügen \csnames
, \expandafter
aber mein Verständnis davon, was diese Befehle tatsächlich tun, ist sehr begrenzt. Ich wäre für jeden Vorschlag sehr dankbar. Ich hätte das vielleicht als Kommentar im ursprünglichen Thread posten sollen, aber da ich der Site gerade erst beigetreten bin, habe ich nicht genug Ansehen, um das zu tun.
Antwort1
Wir können die kleingeschriebene Version des Begriffs untersuchen.
\documentclass{article}
%%% Code to set up special term treatment
\makeatletter
\newcommand{\specialterms}[1]{%
\@for\next:=#1\do
{\@namedef{specialterm@\detokenize\expandafter{\next}}{}}%
}
\newcommand\term[1]{%
\specialterm@lower{#1}% save the lowercased term in \specialterm@current
\@ifundefined{specialterm@\specialterm@current}
{#1}% not the first occurrence
{% first occurrence
\emph{#1}% print it in italics
% then undefine the macro
\global\expandafter\let\csname specialterm@\specialterm@current\endcsname\relax
}%
}
\newcommand{\specialterm@lower}[1]{%
\begingroup\edef\next{\detokenize{#1}}%
\edef\x{\endgroup\lowercase{\def\noexpand\specialterm@current{\next}}}\x
}
\makeatother
%%% Here we define the special terms we want
\specialterms{foo,bar,baz}
\begin{document}
First occurrence of \term{foo} and second occurrence of \term{foo}.
First occurrence of \term{baz}. \term{Bar} and
again \term{bar} and \term{baz} and \term{foo}.
\end{document}
Eine einfachere Implementierung mit expl3
, die auch mit UTF-8 funktioniert (allerdings nicht erforderlich).
\documentclass{article}
\usepackage[utf8]{inputenc}
\usepackage{xparse}
%%% Code to set up special term treatment
\ExplSyntaxOn
\NewDocumentCommand{\specialterms}{m}
{
\clist_map_inline:nn { #1 }
{
\bool_new:c { \__lasse_boolean_name:n { ##1 } _bool }
}
}
\NewDocumentCommand{\term}{m}
{
\bool_if:cTF { \__lasse_boolean_name:n { #1 } _bool }
{
#1
}
{
\emph { #1 }
\bool_gset_true:c { \__lasse_boolean_name:n { #1 } _bool }
}
}
% syntactic sugar
\cs_new:Nn \__lasse_boolean_name:n
{
g_lasse_specialterms_ \str_lowercase:n { #1 }
}
\ExplSyntaxOff
%%% Here we define the special terms we want
\specialterms{foo,bar,báz,bäz}
\begin{document}
First occurrence of \term{foo} and second occurrence of \term{foo}.
First occurrence of \term{báz}. \term{Bar} and
again \term{bar} and \term{báz} and \term{foo}.
\term{Bäz} \term{bäz}
\end{document}
Antwort2
Hier ist eine Lösung
\documentclass{article}
\newcommand*{\term}[1]{%
\lowercase{\expandafter\ifx\csname mt\detokenize{#1}term\endcsname\relax}
\emph{#1}%
\lowercase{\expandafter\let\csname mt\detokenize{#1}term\endcsname\empty}%
\else#1\fi}
\begin{document}
First occurrence of \term{foo} and second occurrence of \term{foo}.
First occurrence of \term{baz}. Now \term{bar} and
again \term{bar} and \term{baz} and \term{foo}. \term{fOo}
First occurrence of \term{BOM}. Now \term{bOm} and
again \term{BOm} and \term{bom} and \term{FOo} and \term{fOo}.
\end{document}