diff options
author | Karl Berry <karl@freefriends.org> | 2008-02-19 17:05:28 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2008-02-19 17:05:28 +0000 |
commit | cf4d2164c6ed64dccbe7d8abdd8b0c95f8509a1c (patch) | |
tree | adbb0d174b4ab3c017b085367d946ad7ba3b417b /Master/texmf-dist/tex/latex/shipunov/punct.sty | |
parent | f95f16133feaac8dd66077e38d247937f819c815 (diff) |
new latex collection shipunov (18feb08)
git-svn-id: svn://tug.org/texlive/trunk@6680 c570f23f-e606-0410-a88d-b1316a301751
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 |