Platon Technologies
neprihlásený Prihlásiť Registrácia
SlovakEnglish
open source software development oslavujeme 10 rokov vývoja otvoreného softvéru! Pondelok, 16. jún 2025

Súbor: [Platon] / platos / prednasky / Lugcon / uvodzovky.sty (stiahnutie)

Revízia 1.1, Sun Mar 14 15:10:02 2004 UTC (21 years, 3 months ago) by rajo

Slovak/Czech \\uv{} command.

%
% 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/
Copyright © 2002-2006 Platon Group
Stránka používa redakčný systém Metafox
Na začiatok