☰

使用 xparse 或 Latex3 語法重寫指令，如

tag-icon • tag-icon macros font-encodings xparse
使用 xparse 或 Latex3 語法重寫指令，如

我寫了一個巨集來使用一些指令，例如ltxdoc(\oarg,\meta,\marg)，而不使用 和textcomp來ltxdoc著色並決定命令中的角度、括號和文字的字體樣式。我想編寫以下形式的命令：

\mycomand[key=value]{...}

但這對我來說很困難，因為選擇了打字機和羅馬字體的來源字體。這是檔案（MWE）

% 2015-29-04
\documentclass{article}
\usepackage[T1]{fontenc}%
\usepackage{libertine}%
\usepackage[dvipsnames]{xcolor}
\usepackage{listings}
% Font used for \textangle in \ttfamily
\DeclareFontEncoding{TS1}{}{}
\DeclareFontSubstitution{TS1}{cmr}{m}{n}
\DeclareTextSymbol{\ttlangle}{TS1}{60}
\DeclareTextSymbol{\ttrangle}{TS1}{62}
\DeclareTextSymbolDefault{\ttlangle}{TS1}
\DeclareTextSymbolDefault{\ttrangle}{TS1}
% adapted from doc.dtx    
\providecommand\meta[1]{{\fontfamily{cmr}\fontencoding{TS1}\selectfont\ttlangle\/}\ignorespaces{\normalfont\itshape #1\/}{\fontfamily{cmr}\fontencoding{TS1}\selectfont\/\ttrangle}} % close
% adapted from ltxdoc.dtx
\providecommand\marg[1]{{\fontfamily{cmr}\fontencoding{T1}\selectfont\{\ignorespaces}\normalfont\meta{#1}\ignorespaces{\fontfamily{cmr}\fontencoding{T1}\selectfont\}\ignorespaces}} % close
\providecommand\oarg[1]{{\fontfamily{cmr}\fontencoding{T1}\selectfont [}\normalfont\meta{#1}{\fontfamily{cmr}\fontencoding{T1}\selectfont ]\ignorespaces}} % close
\begin{document}
\noindent
ROMAN

\textlangle\emph{meta}\textrangle \par
[\textlangle\emph{oarg}\textrangle] \par
\{\textlangle\emph{marg}\textrangle\} \par

\noindent
TYPEWRITE 

\meta{meta} \par
\oarg{oarg} \par
\marg{marg} \par

\let\us\textunderscore
\newcommand\placeholder[1]%
{%
    \bgroup
        \normalfont\upshape\color{RubineRed}%
        \textlangle{\itshape #1\/}\textrangle%
    \egroup
}

\lstset
{%
    basicstyle  = \ttfamily,
        escapeinside={<}{>},%
}

\noindent
TEST USING ROMAN 
\begin{lstlisting}
for i= <\placeholder{first\us{}value}>:<\placeholder{last\us{}value}>
    % do stuff
end
\end{lstlisting}

\noindent
TEST USING TYPEWRITER
\begin{lstlisting}
for i= <\meta{first\us{}value}>:<\meta{last\us{}value}>
    % do stuff
end
\end{lstlisting}

TRY

\begin{lstlisting}
\mymeta[type=<\meta{tt,rm}>,cf=<\meta{color font}>,ac=<\meta{angle color}>]{ ... }
\myoarg[type=<\meta{tt,rm}>,cf=<\meta{color font}>,ac=<\meta{angle color}>,sbc=<\meta{square brackets color}>]{ ... }
\mymarg[type=<\meta{tt,rm}>,cf=<\meta{color font}>,ac=<\meta{angle color}>,cbc=<\meta{curly braces color}>]{ ... }
\end{lstlisting}
\end{document}

我的想法是讓預設打字字體和所有內容都是黑色的。

編輯： 嘗試定義鍵：

type= text font (tt or rm) (default tt)
cf  = color font (default black)
ac  = angle color (default black)
sbc = square brackets color (default black)
cbc = curly braces color (default black)

和命令

% use \meta
\mymeta[type=tt,cf=red,ac=green}]{ ... }
% use \oarg
\myoarg[type=tt,cf=red,ac=green,sbc=blue]{ ... }
% use \marg
\mymarg[type=tt,cf=red,ac=green,cbc=blue]{ ... }

先表示感謝。

答案1

這是一個可能的實作：

\documentclass{article}
\usepackage[T1]{fontenc}
\usepackage{textcomp}
%\usepackage{libertine}
\usepackage[dvipsnames]{xcolor}
\usepackage{xparse}

\ExplSyntaxOn
% user level commands
\NewDocumentCommand{\meta}{O{}m}
 {
  \pablo_meta_generic:Nnn \pablo_meta:n { #1 } { #2 }
 }
\NewDocumentCommand{\marg}{O{}m}
 {
  \pablo_meta_generic:Nnn \pablo_marg:n { #1 } { #2 }
 }
\NewDocumentCommand{\oarg}{O{}m}
 {
  \pablo_meta_generic:Nnn \pablo_oarg:n { #1 } { #2 }
 }

% variables and keys
\tl_new:N \l_pablo_meta_font_tl

\keys_define:nn { pablo/meta }
 {
  type .choice:,
  type / tt .code:n = \tl_set:Nn \l_pablo_meta_font_tl { \ttfamily },
  type / rm .code:n = \tl_set:Nn \l_pablo_meta_font_tl { \rmfamily },
  type .initial:n = tt,
  cf .tl_set:N = \l_pablo_meta_color_tl,
  cf .initial:n = black,
  ac .tl_set:N = \l_pablo_meta_anglecolor_tl,
  ac .initial:n = black,
  sbc .tl_set:N = \l_pablo_meta_brackcolor_tl,
  sbc .initial:n = black,
  cbc .tl_set:N = \l_pablo_meta_bracecolor_tl,
  cbc .initial:n = black,
 }


% internal commands
\cs_new_protected:Npn \pablo_meta_generic:Nnn #1 #2 #3
 {
  \group_begin:
  \keys_set:nn { pablo/meta } { #2 }
  \color{ \l_pablo_meta_color_tl }
  \l_pablo_meta_font_tl
  #1 { #3 } % #1 is \pablo_meta:n, \pablo_marg:n or \pablo_oarg:n
  \group_end:
 }
\cs_new_protected:Npn \pablo_meta:n #1
 {
  \pablo_meta_angle:n { \textlangle }
  \pablo_meta_meta:n { #1 }
  \pablo_meta_angle:n { \textrangle }
 }
\cs_new_protected:Npn \pablo_marg:n #1
 {
  \pablo_meta_brace:n { \textbraceleft }
  \pablo_meta:n { #1 }
  \pablo_meta_brace:n { \textbraceright }
 }
\cs_new_protected:Npn \pablo_oarg:n #1
 {
  \pablo_meta_brack:n { [ }
  \pablo_meta:n { #1 }
  \pablo_meta_brack:n { ] }
 }
\cs_new_protected:Npn \pablo_meta_meta:n #1
 {
  \textnormal{\textit{#1}}
 }
\cs_new_protected:Npn \pablo_meta_angle:n #1
 {
  \group_begin:
  \fontfamily{cmr}\selectfont
  \textcolor{\l_pablo_meta_anglecolor_tl}{#1}
  \group_end:
 }
\cs_new_protected:Npn \pablo_meta_brace:n #1
 {
  \group_begin:
  \color{\l_pablo_meta_bracecolor_tl}
  #1
  \group_end:
 }
\cs_new_protected:Npn \pablo_meta_brack:n #1
 {
  \textcolor{\l_pablo_meta_brackcolor_tl}{#1}
 }
\ExplSyntaxOff


\begin{document}

\noindent
\meta{something}\\
\marg{mandatory argument}\\
\oarg{optional argument}

\noindent
\meta[cf=red,ac=green]{something}\\
\marg[type=rm,cbc=red]{mandatory argument}\\
\oarg[type=rm,sbc=blue]{optional argument}

\end{document}
\noindent
\meta{something}\\
\marg{mandatory argument}\\
\oarg{optional argument}

\noindent
\meta{something}\\
\marg{mandatory argument}\\
\oarg{optional argument}

\noindent
\meta{something}\\
\marg{mandatory argument}\\
\oarg{optional argument}

\end{document}

我註解掉是libertine因為在 Computer Modern 中可以更好地看出羅馬字體和等寬字體之間的差異。

在此輸入影像描述

請注意\meta， 、\marg和\oarg是根據通用命令定義的，該命令執行按鍵設定並調用適當的內部命令。所有項目都以特定的巨集定義，以實現統一。

相關內容