%
% uvodzovky.sty - definovanie klucoveho sloava \uv{}
%
% Developed by Lubomir Host 'rajo' <rajo AT platon.sk>
% Copyright (c) 2004 Platon SDG, http://platon.sk/
% Licensed under terms of GNU General Public License.
% All rights reserved.
%
% Changelog:
% 14/03/2004 - created
%
% $Platon: $
%% Slovenske/ceske uvodzovky:
%%
%% Pouzitie: \uv{slovo}
%% zdroj: texmf/tex/csplain/czech.sty
%% /*
%% KOREKCIA: v definicii \clqq bolo povodne \kern 0.1em, co davalo
%% malu medzeru medzi zaciatok uvodzoviek a 1. pismenko
%% Povodna definicia sa dostane zamenou 0.05 --> 0.1
\newif\iflte
\DeclareTextCommandDefault\clqq{\leavevmode
\set@low@box{''}%
\setbox1=\hbox{l\/}\dimen1=\wd1
\setbox1=\hbox{l}\advance\dimen1 by -\wd1
\ifdim\dimen1>0pt\kern-.05em\box0\kern.05em
\else\kern.05em\box0\kern-.05em\fi\nobreak\hskip0pt}
\DeclareTextCommandDefault\crqq{\edef\@SF{\spacefactor\the\spacefactor}%
\nobreak\kern-.07em\hbox{``}\kern.07em\@SF\relax}
\def\set@low@box#1{\setbox2=\hbox{,}\setbox0=\hbox{#1}%
\dimen0=\ht0 \advance\dimen0 by -\ht2
\setbox0=\hbox{\lower\dimen0 \box0}\ht0=\ht2\dp0=\dp2}
\DeclareRobustCommand\clq{\leavevmode\set@low@box{\char'047 }%
\box0 \kern.04em\nobreak\hskip0pt\relax}
\DeclareRobustCommand\crq{{\edef\@SF{\spacefactor\the\spacefactor}%
\nobreak\char'140 \kern.17em\@SF\relax}}
\iflte
\DeclareTextCommand{\clqq}{T1}{\leavevmode\kern.05em
\char18 \kern-.0158em\nobreak\hskip0pt}
\DeclareTextCommand{\crqq}{T1}
{{\edef\@SF{\spacefactor\the\spacefactor}%
\nobreak\kern.06em \char16 \kern.024em \@SF\relax}}
\fi
\iflte\else\let\if@compatibility=\iffalse{\let\fi=\fi}\fi
\ifx\cs@olduv\undefined
\iflte
\if@compatibility
\DeclareRobustCommand\uv{\bgroup\aftergroup\closequotes
\leavevmode\clqq\let\next=}
\else
\DeclareRobustCommand\uv[1]{{\leavevmode\clqq#1\crqq}}
\fi
\else
\ifx\uv\undefined
\def\uv{\bgroup\aftergroup\closequotes
\leavevmode\clqq\let\next=}
\fi
\fi
\else
\DeclareRobustCommand\uv{\bgroup\aftergroup\closequotes
\leavevmode\clqq\let\next=}
\fi
\def\closequotes{\unskip\crqq\relax}
%% */
%
% vim: ts=4
% vim600: fdl=0 fdm=marker fdc=3 fmr=/*,*/ tw=78
Platon Group <platon@platon.sk> http://platon.sk/
|