Expansão? truques sujos?

Question

Considerar

\documentclass{article}
\usepackage{titlesec}

\def\bl#1 #2 {#1\textsuperscript{#2}\,}
\titleformat{\section}[runin]{}{}{0pt}{}[. ]
%\titleformat{\section}[runin]{}{}{0pt}{\bl}[. ]

\begin{document}
\section{3 a 21}
main text.
\end{document}

A intenção da linha comentada era produzir o æequivalente a \section{\bl 3 a 21}sem precisar digitar \bl para cada seção; mas produziu um erro. Algo pode ser feito para alcançar o resultado pretendido?

Answer 1

Você tem que capturar o argumento antes de passá-lo para \bl. Abaixo nós o capturamos usando \@blantes de passá-lo para \bl:

\documentclass{article}
\usepackage{titlesec}

\makeatletter
\def\@bl#1{\bl#1}
\def\bl#1 #2 {#1\textsuperscript{#2}\,}
\titleformat{\section}[runin]{}{}{0pt}{\@bl}[. ]
\makeatother

\begin{document}
\section{3 a 21}
main text.
\end{document}

Answer 2

Você também pode fazer isso sem nenhum pacote. O truque é que o argumento to \sectioné passado como um grupo entre chaves para a parte final do código, portanto, se essa parte terminar com uma macro recebendo um argumento, ela verá o título da seção; mas primeiro você precisa remover o aparelho. Observe que definindo a macro interna com três argumentos podemos facilmente adicionar o ponto final.

\documentclass{article}
\usepackage{showframe}% just for the example

\makeatletter
\renewcommand{\section}{%
  \@startsection{section}{1}{\z@}%
    {-3.5ex \@plus -1ex \@minus -.2ex}%
    {-1em}%
    {\normalfont\process@section@title}%
}
\newcommand{\process@section@title}[1]{\process@section@title@aux#1\@nil}
\def\process@section@title@aux#1 #2 #3\@nil{%
  #1\textsuperscript{#2} #3.%
}
\makeatother

\setcounter{secnumdepth}{0}

\begin{document}

\section{3 a 21}
Some text for the section.

\section{4 a 42}
Some text for the section.

\end{document}

Answer 3

Isso pode ser qualificado como "sujo":

\documentclass{article}
\usepackage{titlesec}

\def\bl#1 #2 {#1\textsuperscript{#2}\,}
\titleformat{\section}[runin]{}{}{0pt}{}[. ]
\let\oldsect=\section
\def\section#1{\oldsect{\bl#1}}
\begin{document}
\section{3 a 21}
main text.
\end{document}