From cf4d2164c6ed64dccbe7d8abdd8b0c95f8509a1c Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Tue, 19 Feb 2008 17:05:28 +0000 Subject: new latex collection shipunov (18feb08) git-svn-id: svn://tug.org/texlive/trunk@6680 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/tex/latex/shipunov/punct.sty | 38 ++++++++++++++++++++++++++ 1 file changed, 38 insertions(+) create mode 100644 Master/texmf-dist/tex/latex/shipunov/punct.sty (limited to 'Master/texmf-dist/tex/latex/shipunov/punct.sty') 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 -- cgit v1.2.3