% % uvodzovky.sty - definovanie klucoveho sloava \uv{} % % Developed by Lubomir Host 'rajo' % 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