☰

如何使用宏的结果而不是宏本身？

tag-icon • tag-icon urls accents
如何使用宏的结果而不是宏本身？

我想在 URL 中使用宏的结果（删除名为 的字符串变量的重音字符\name），该结果保存在名为 的变量中\nameSA。我以为我可以\nameSA直接在 url 参数中使用 ，就像我可以使用原始变量一样\name，但 url 看到的是宏，而不是宏的结果。您能告诉我如何保存和重用宏的结果而不是宏本身吗？我搜索并尝试了不同的选项，但都没有成功……

以下是代码：

\documentclass[11pt]{article}

\usepackage{luatextra}
\usepackage[french]{babel}
\usepackage[pdfencoding=unicode,breaklinks=true,hyperindex,colorlinks=true,linkcolor=black,urlcolor=blue]{hyperref}
\usepackage{xstring}

%This is the macro to delete accents in a string
\makeatletter
\def\delaccent[#1]#2{% #1=liste des substitutions
\begingroup
\expandarg\exploregroups\edef\temp{#2}%
\delaccent@i#1\delaccent@i\delaccent@i
\expandafter\temp\endgroup}
\def\delaccent@i#1#2{\ifx\delaccent@i#1\else\StrSubstitute\temp{\noexpand#1}{\noexpand#2}[\temp]\expandafter\delaccent@i\fi}
\makeatother

% I define a string with accentuated characters and I use the previous macro to delete accents.
\newcommand{\name}{énergie}
\newcommand\nameSA{\delaccent[{à}{a}{é}{e}{è}{e}{ë}{e}{ê}{e}{ï}{i}{ô}{o}{ù}{u}]{\name}}

\begin{document}
Name with accents : \name

Name without accent : \nameSA % --> Works fine

URL with accents : \url{https://www.\name.com} --> Works fine

URL without accent : \url{https://www.\nameSA.com} %--> Did not work (compilation failed)
\end{document}

预先感谢您的帮助 ！

答案1

我提出了一种不同的策略，因为\url在打印名称之前无法执行所有替换，而且效率也更高。

\documentclass[11pt]{article}

\usepackage{luatextra}
\usepackage[french]{babel}
\usepackage{xstring}
\usepackage{hyperref}

\makeatletter
\newcommand{\delaccent}[3][]{% #1=liste des substitutions
  \begingroup
  \expandarg\exploregroups\edef\temp{#3}%
  \delaccent@i#2\delaccent@i\delaccent@i
  \if\relax\detokenize{#1}\relax
    \temp
    \expandafter\endgroup
  \else
    \edef\x{\endgroup\noexpand\newcommand\noexpand#1{\temp}}%
    \expandafter\x
  \fi
}
\def\delaccent@i#1#2{%
  \ifx\delaccent@i#1%
  \else
    \StrSubstitute\temp{\noexpand#1}{\noexpand#2}[\temp]%
  \expandafter\delaccent@i
 \fi
}
\makeatother

\newcommand{\declarestring}[3]{%
  \newcommand{#1}{#3}%
  \delaccent[#2]{{à}{a}{é}{e}{è}{e}{ë}{e}{ê}{e}{ï}{i}{ô}{o}{ù}{u}}{#3}%
}


\declarestring{\name}{\nameSA}{Michaël}

\begin{document}

Name : \name

Try 1 : \delaccent{{à}{a}{é}{e}{è}{e}{ë}{e}{ê}{e}{ï}{i}{ô}{o}{ù}{u}}{Michaël}

Try 2 : \delaccent{{à}{a}{é}{e}{è}{e}{ë}{e}{ê}{e}{ï}{i}{ô}{o}{ù}{u}}{\name}

Try 3 : \nameSA


Name with accents : \name

Name without accent : \nameSA % --> Works fine

URL with accents : \url{https://www.\name.com}

URL without accent : \url{https://www.\nameSA.com}

\end{document}

因此\definestring定义了“正常”字符串和“无重音”字符串。

请注意，重新设计的版本\delaccent有一个可选参数，可以包含宏名，该参数将被定义为“去重音”字符串；如果没有可选参数，则打印“去重音”字符串。

在此处输入图片描述

一种不同的实现，也许具有更好的替换语法：

\documentclass[11pt]{article}

\usepackage{luatextra}
\usepackage[french]{babel}
\usepackage{xparse,l3regex}
\usepackage{hyperref}

\ExplSyntaxOn
\NewDocumentCommand{\delaccent}{omm}
 {
  \IfNoValueTF{#1}
   {
    \nezluge_delaccent:nnn { #2 } { #3 } { \tl_use:N }
   }
   {
    \nezluge_delaccent:nnn { #2 } { #3 } { \tl_set:NV #1 }
   }
 }

\NewDocumentCommand{\declarestring}{mmm}
 {
  \tl_set:Nx #1 { #3 }
  \delaccent [ #2 ] { à/a, é/e, è/e, ë/e, ê/e, ï/i, ô/o, ù/u } {#3}
}

\tl_new:N \l__nezluge_delaccent_string_tl

\cs_new_protected:Nn \nezluge_delaccent:nnn
 {
  \tl_set:Nx \l__nezluge_delaccent_string_tl { #2 }
  \clist_map_inline:nn { #1 }
   {
    \__nezluge_delaccent_replace:n { ##1 }
   }
  #3 \l__nezluge_delaccent_string_tl
 }

\cs_new_protected:Nn \__nezluge_delaccent_replace:n
 {
  \__nezluge_delaccent_replace_aux:w #1 \q_stop
 }

\cs_new_protected:Npn \__nezluge_delaccent_replace_aux:w #1 / #2 \q_stop
 {
  \regex_replace_all:nnN { #1 } { #2 } \l__nezluge_delaccent_string_tl
 }

\ExplSyntaxOff

\declarestring{\name}{\nameSA}{Michaël}

\begin{document}

Name : \name

Try 1 : \delaccent{à/a, é/e, è/e, ë/e, ê/e, ï/i, ô/o, ù/u}{Michaël}

Try 2 : \delaccent{à/a, é/e, è/e, ë/e, ê/e, ï/i, ô/o, ù/u}{\name}

Try 3 : \nameSA


Name with accents : \name

Name without accent : \nameSA % --> Works fine

URL with accents : \url{https://www.\name.com}

URL without accent : \url{https://www.\nameSA.com}

\end{document}

输出是一样的。

相关内容