☰

法语空格，无杂音或多语

tag-icon • tag-icon spacing punctuation languages
法语空格，无杂音或多语

要用构造语言重新编辑文档（拉丁裔正弦屈曲），我需要“法语”标点间距无副作用。

更具体地说，我希望在任何双标点符号 -- -- 之前有一个小的不间断空格，: ; ! ?并且在开引号（guillemet）之后或闭引号（guillemet）之前有一个常规的不间断空格 --«和»。

答案1

您pdflatex可以使用基于改变字符类别代码的解决方案：

\documentclass{article}
\usepackage[utf8]{inputenc}
\usepackage[T1]{fontenc}
% saving original quotes representation
\let\gll\guillemotleft
\let\glr\guillemotright
% new quotes representation
\def\frenchguillemotleft{\gll~}
\def\frenchguillemotright{~\glr}
{
    \catcode`\:=\active
    \catcode`\;=\active
    \catcode`\?=\active
    \catcode`\!=\active
    \gdef\frenchpunct{%
        \catcode`\:=\active \def:{\thinspace\char`\: }
        \catcode`\;=\active \def;{\thinspace\char`\; }
        \catcode`\?=\active \def?{\thinspace\char`\? }
        \catcode`\!=\active \def!{\thinspace\char`\! }
        \let\guillemotleft\frenchguillemotleft
        \let\guillemotright\frenchguillemotright
    }
}
\def\nofrenchpunct{%
    \catcode`\:=12
    \catcode`\;=12
    \catcode`\?=12
    \catcode`\!=12
    \let\guillemotleft\gll
    \let\guillemotright\glr
}
\begin{document}
french: french; french? french!
«french»

\frenchpunct
french: french; french? french!
«french»

\nofrenchpunct
french: french; french? french!
«french»
\end{document}

在此处输入图片描述

命令\frenchpunct使字符:、;和?处于!活动状态，然后根据所需行为定义它们：字符前不可破坏的细空格。此命令还重新定义命令\guillemotleft，这些命令由包\guillemotright声明。inputenc

命令\nofrencpunct全部改回来。

评论：上述\frenchpunct命令是局部的。因此，被摸索字符包围后，{}它在离开组后就会失效。如果您需要全局命令，只能通过\nofrenchpunctadd \globalbefore all \def（或使用 的\gdef别名\global\def）来取消该命令，\catcode并且\let在\frenchpunct定义中：

\gdef\frenchpunct{%
    \global\catcode`\:=\active \gdef:{\thinspace\char`\: }
    \global\catcode`\;=\active \gdef;{\thinspace\char`\; }
    \global\catcode`\?=\active \gdef?{\thinspace\char`\? }
    \global\catcode`\!=\active \gdef!{\thinspace\char`\! }
    \global\let\guillemotleft\frenchguillemotleft
    \global\let\guillemotright\frenchguillemotright
}

并做同样的事情\nofrenchpunct：

\def\nofrenchpunct{%
    \global\catcode`\:=12
    \global\catcode`\;=12
    \global\catcode`\?=12
    \global\catcode`\!=12
    \global\let\guillemotleft\gll
    \global\let\guillemotright\glr
}

答案2

这是一个基于 LuaLaTeX 的解决方案。它由一个 Lua 函数组成，该函数french_punctuation_spacing完成所有工作，还有两个 LaTeX 实用程序宏，分别称为\FrenchPunctuationSpacingOn和\FrenchPunctuationSpacingOff，用于激活和停用 Lua 函数。

在此处输入图片描述

% !TEX TS-program = lualatex
\documentclass{article}
\usepackage{luacode}  % for 'luacode' environment
\begin{luacode}

function french_punctuation_spacing ( s )
  s = s:gsub ( "[:;!?]" , "\\,%0" )
  s = s:gsub ( "«" , "«~" )
  s = s:gsub ( "»" , "~»" )
  return s
end

\end{luacode}
\newcommand\FrenchPunctuationSpacingOn{\directlua{%
  luatexbase.add_to_callback ( "process_input_buffer",
  french_punctuation_spacing , "frenchpunctuationspacing" )}}
\newcommand\FrenchPunctuationSpacingOff{\directlua{%
  luatexbase.remove_from_callback ( "process_input_buffer",
  "frenchpunctuationspacing" )}}

%\usepackage{fontspec} % optional

\begin{document}
bonjour: monde; oui? non! «aujourd'hui»

\FrenchPunctuationSpacingOn % activate the Lua function
bonjour: monde; oui? non! «aujourd'hui»

\FrenchPunctuationSpacingOff % deactivate the Lua function
bonjour: monde; oui? non! «aujourd'hui»
\end{document}

相关内容