只在单词下划线，而不在单词之间的空格下划线

Question 1

让我们soul减少工作量：

\documentclass{article}
\usepackage{xparse,soul}

\ExplSyntaxOn
\NewDocumentCommand{\ulns}{m}
 {
  \seq_set_split:Nnn \l_tmpa_seq { ~ } { #1 }
  \seq_map_inline:Nn \l_tmpa_seq { \ul{##1}~ } \unskip
 }
\ExplSyntaxOff

\begin{document}

\ulns{The quick brown fox jumped} over the lazy dog.

\end{document}

基本上，参数在空格处被拆分；每个片段都被输入\ul并添加一个空格。最后一个被删除\unskip。

Answer

让我们soul减少工作量：

\documentclass{article}
\usepackage{xparse,soul}

\ExplSyntaxOn
\NewDocumentCommand{\ulns}{m}
 {
  \seq_set_split:Nnn \l_tmpa_seq { ~ } { #1 }
  \seq_map_inline:Nn \l_tmpa_seq { \ul{##1}~ } \unskip
 }
\ExplSyntaxOff

\begin{document}

\ulns{The quick brown fox jumped} over the lazy dog.

\end{document}

基本上，参数在空格处被拆分；每个片段都被输入\ul并添加一个空格。最后一个被删除\unskip。

Question 2

软件包soul提供了具有相同深度的下划线宏\textul/ \ul。以下示例将驱动程序复制到\textulw/\ulw并且不保留空格下划线：

\documentclass{article}

\usepackage{soul}
\makeatletter
\DeclareRobustCommand*{\textulw}{%
  \SOUL@ulwsetup
  \SOUL@
}
\newcommand*{\SOUL@ulwsetup}{%
  \SOUL@setup
  \let\SOUL@preamble\SOUL@ulpreamble
  \let\SOUL@everysyllable\SOUL@uleverysyllable
  % \let\SOUL@everyspace\SOUL@uleveryspace % \SOUL@ulsetup
  \let\SOUL@everyhyphen\SOUL@uleveryhyphen
  \let\SOUL@everyexhyphen\SOUL@uleveryexhyphen
}
\let\ulw\textulw
\makeatother

\begin{document}
\ulw{The quick brown fox jumped over the lazy dog}.
\end{document}

Answer

软件包soul提供了具有相同深度的下划线宏\textul/ \ul。以下示例将驱动程序复制到\textulw/\ulw并且不保留空格下划线：

\documentclass{article}

\usepackage{soul}
\makeatletter
\DeclareRobustCommand*{\textulw}{%
  \SOUL@ulwsetup
  \SOUL@
}
\newcommand*{\SOUL@ulwsetup}{%
  \SOUL@setup
  \let\SOUL@preamble\SOUL@ulpreamble
  \let\SOUL@everysyllable\SOUL@uleverysyllable
  % \let\SOUL@everyspace\SOUL@uleveryspace % \SOUL@ulsetup
  \let\SOUL@everyhyphen\SOUL@uleveryhyphen
  \let\SOUL@everyexhyphen\SOUL@uleveryexhyphen
}
\let\ulw\textulw
\makeatother

\begin{document}
\ulw{The quick brown fox jumped over the lazy dog}.
\end{document}

Question 3

这是一个基于 LuaLaTeX 的解决方案。它不需要加载包soul。

用户宏称为\ulow-- “仅下划线单词”的缩写。使用\ulow，所有非字母字形（而不仅仅是空格）都无需加下划线。

假定输入是 UTF8 编码的。（ASCII 是 UTF8 的真子集；因此，如果您的输入文件是纯 ASCII，则它自动为 UTF8。）

如果的参数\ulow包含带降部的字母（g、j、p、q 或 y），则所有单词下方的行将设置大量垂直空格。相反，如果没有带降部的字母，间距将设置得更紧密。如果您想在所有情况下都获得更大的间距，只需将iflua 函数中的五行构造替换为s = unicode.utf8.gsub (s, "(%a+)" , "\\underline{%1\\vphantom{p}}" )。（即使您不了解 Lua 语法，您也可能猜到术语%a+“捕获”整个单词，其中“单词”可以是任何连续的大写和小写字母组。）

% !TEX TS-program = lualatex
\documentclass{article}

\usepackage{fontspec}
\setmainfont{Latin Modern Roman} % set main document font

%% Lua-side code
\usepackage{luacode}
\begin{luacode}
function ulow ( s )
   if unicode.utf8.find ( s, "[gjpqy]") then -- any letters with descenders?
      s = unicode.utf8.gsub (s, "(%a+)" , "\\underline{%1\\vphantom{p}}" ) 
   else
      s = unicode.utf8.gsub (s, "(%a+)" , "\\underline{%1}" )
   end
   return ( tex.sprint ( s ) )
end
\end{luacode}

%% TeX-side code
\newcommand\ulow[1]{\directlua{ ulow ( \luastring {#1} ) }}

\begin{document}
\frenchspacing
\ulow{The quick brown fox jumps over the lazy dog.}

\bigskip
\ulow{El rápido zorro marrón saltó sobre el perro perezoso.}

\bigskip
\ulow{And, but; let: show? that. where (now), èéà äöü ÄÖÜß!}

\end{document}

Answer