From b712a410446a2d7a83b3c84c4cef0dcf4a653848 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sun, 3 Dec 2017 22:20:29 +0000 Subject: textualicomma (3dec17) git-svn-id: svn://tug.org/texlive/trunk@45980 c570f23f-e606-0410-a88d-b1316a301751 --- .../tex/latex/textualicomma/textualicomma.sty | 68 ++++++++++++++++++++++ 1 file changed, 68 insertions(+) create mode 100644 Master/texmf-dist/tex/latex/textualicomma/textualicomma.sty (limited to 'Master/texmf-dist/tex/latex/textualicomma') diff --git a/Master/texmf-dist/tex/latex/textualicomma/textualicomma.sty b/Master/texmf-dist/tex/latex/textualicomma/textualicomma.sty new file mode 100644 index 00000000000..91afc703dd3 --- /dev/null +++ b/Master/texmf-dist/tex/latex/textualicomma/textualicomma.sty @@ -0,0 +1,68 @@ +%% +%% This is file `textualicomma.sty', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% textualicomma.dtx (with options: `package') +%% +%% textualicomma.dtx +%% Copyright 2017 Sebastian Friedl +%% +%% This work may be distributed and/or modified under the +%% conditions of the LaTeX Project Public License, either version 1.3c +%% of this license of (at your option) any later version. +%% The latest version of this license is in +%% http://www.latex-project.org/lppl.txt +%% and version 1.3c or later is part of all distributions of LaTeX +%% version 2008/05/04 or later. +%% +%% This work has the LPPL maintenance status `maintained'. +%% Current maintainer of the work is Sebastian Friedl +%% +%% This work consists of the files textualicomma.dtx and +%% textualicomma.ins and the derived file textualicomma.sty +%% +%% \CharacterTable +%% {Upper-case \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z +%% Lower-case \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z +%% Digits \0\1\2\3\4\5\6\7\8\9 +%% Exclamation \! Double quote \" Hash (number) \# +%% Dollar \$ Percent \% Ampersand \& +%% Acute accent \' Left paren \( Right paren \) +%% Asterisk \* Plus \" Comma \, +%% Minus \- Point \. Solidus \/ +%% Colon \: Semicolon \; Less than \< +%% Equals \= Greater than \> Question mark \? +%% Commercial at \@ Left bracket \[ Backslash \\ +%% Right bracket \] Circumflex \^ Underscore \_ +%% Grave accent \` Left brace \{ Vertical bar \| +%% Right brace \} Tilde \~} +\ProvidesPackage{textualicomma}[2017/12/03 textualicomma package] +\def\mathtxtcmmaffamily{\rmfamily} +\newif\if@mathtxtcmmasffamily +\@mathtxtcmmasffamilyfalse +\DeclareOption{sffamily}{\@mathtxtcmmasffamilytrue} +\newif\if@mathtxtcmmattfamily +\@mathtxtcmmattfamilyfalse +\DeclareOption{ttfamily}{\@mathtxtcmmattfamilytrue} +\ProcessOptions +\if@mathtxtcmmasffamily\def\mathtxtcmmaffamily{\sffamily}\fi +\if@mathtxtcmmattfamily\def\mathtxtcmmaffamily{\ttfamily}\fi +\def\textualicommafont#1{\def\mathtxtcmmaffamily{#1}} +\AtBeginDocument{% + \def\mathtextcomma{\text{\mathtxtcmmaffamily,}} + \mathchardef\mathcomma\mathcode`\,% + \mathcode`\,="8000 % +} +{\catcode`,=\active + \gdef,{\futurelet\@let@token\sm@rtcomma} +} +\def\sm@rtcomma{% + \ifx\@let@token\@sptoken\mathtextcomma\protect\,\else + \ifx\@let@token\space \else + \mathtextcomma\fi\fi} +\DeclareMathSymbol{.}{\mathalpha}{operators}{`.} +\endinput +%% +%% End of file `textualicomma.sty'. -- cgit v1.2.3