diff options
Diffstat (limited to 'Master/texmf-dist/tex/latex/shipunov/punct.sty')
| -rw-r--r-- | Master/texmf-dist/tex/latex/shipunov/punct.sty | 38 |
1 files changed, 38 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/latex/shipunov/punct.sty b/Master/texmf-dist/tex/latex/shipunov/punct.sty new file mode 100644 index 00000000000..84c3c2692e9 --- /dev/null +++ b/Master/texmf-dist/tex/latex/shipunov/punct.sty @@ -0,0 +1,38 @@ +% Author: Alexey B. Shipunov (plantago@herba.msu.ru) + +\ProvidesPackage{punct}% + [2008/02/06 v0.3 Straight punctuation with italic text] + +% Catcodes redefined! May be dangerous... + +\def\PUNactive{% +\let\Z@P=,% +\let\T@T=.% +\let\D@V=:% +\let\T@C=;% +\let\O@C=(% +\let\Z@C=)% +\let\V@L=!% +\let\V@P=?% +\catcode`,=\active% +\catcode`.=\active% +\catcode`;=\active% +\catcode`:=\active% +\catcode`(=\active% +\catcode`)=\active% +\catcode`!=\active% +\catcode`?=\active} + +{\PUNactive% +\gdef,{{\/\reset@font\Z@P}}% +\gdef.{{\/\reset@font\T@T}}% +\gdef:{{\/\reset@font\D@V}}% +\gdef;{{\/\reset@font\T@C}}% +\gdef({{\/\reset@font\O@C}}% +\gdef){{\/\reset@font\Z@C}}% +\gdef!{{\/\reset@font\V@L}}% +\gdef?{{\/\reset@font\V@P}}} + +\def\ITP{\PUNactive\itshape} + +\endinput |