summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/shipunov/punct.sty
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2008-02-19 17:05:28 +0000
committerKarl Berry <karl@freefriends.org>2008-02-19 17:05:28 +0000
commitcf4d2164c6ed64dccbe7d8abdd8b0c95f8509a1c (patch)
treeadbb0d174b4ab3c017b085367d946ad7ba3b417b /Master/texmf-dist/tex/latex/shipunov/punct.sty
parentf95f16133feaac8dd66077e38d247937f819c815 (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.sty38
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