%D \module
%D   [       file=lang-sla,
%D        version=1999.09.13, % 1997.09.03
%D          title=\CONTEXT\ Language Macros,
%D       subtitle=Slavic Languages,
%D         author=Hans Hagen / Tobias Burnus,
%D           date=\currentdate,
%D      copyright={PRAGMA / Hans Hagen \& Ton Otten}]
%C
%C This module is part of the \CONTEXT\ macro||package and is
%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
%C details.

% Todo: replace \'.. by \namedglyph

%D The framework of this module is set up by Hans Hagen while
%D many of the first translations were done by Tobias. Later
%D on, corrections were made by users. If you have suggestions,
%D or feel that your name missing here, don't hesitate to send
%D us an email.
%D
%D \starttabulate[|lB|l|]
%D \NC Czech     \NC Tom Hidec, Petr Sojka \NC \NR
%D \NC Polish    \NC Grzegorz Sapijaszko   \NC \NR
%D \NC Croatian  \NC \Zcaron eljko Vrba    \NC \NR
%D \NC Slovenian \NC Mojca Miklavec        \NC \NR
%D \NC Cz and Sk \NC Richard Gabriel       \NC \NR
%D \stoptabulate

%  Belarussian, Russian, Ukrainian, Bulgarian, Macedonian,
%  Serbo-Croatian, Slovenian, Czech, Kushubian,
%  Lusatian/Sorbian/Wendish, Polish, Slovak, Albanian,
%  Illyrian, Armenian

\writestatus{loading}{Slavic Languages}

\unprotect

% \unexpanded\def\textormathglue#1#2#3% submitted original
%   {\begingroup
%    \scratchdimen=#1\hspaceamount\empty{#3}%
%    \scratchskip=\zeropoint\!!plus.5\scratchdimen\!!minus.3\scratchdimen\relax
%    \ifmmode
%      \mskip#1#2%
%    \else
%      \kern#1\hspaceamount\empty{#3}%
%      \hskip\scratchskip
%    \fi
%    \endgroup}

% actually we could use the new pdftex features

\unexpanded\def\textormathglue#1#2#3% cleaned up one
  {\begingroup
   \ifmmode
     \mskip#1#2%
   \else
     \scratchdimen#1\hspaceamount\empty{#3}%
     \scratchskip\scratchdimen\!!plus.5\scratchdimen\!!minus.3\scratchdimen
     \hskip\scratchskip
   \fi
   \endgroup}

\def\thinglue {\textormathglue+\thinmuskip 1}
\def\medglue  {\textormathglue+\medmuskip  2}
\def\thickglue{\textormathglue+\thickmuskip3}

\installlanguage
  [\s!pl]
  [\c!spacing=\v!packed,
   \c!leftsentence=---,
   \c!rightsentence=---,
   \c!leftsubsentence=---,
   \c!rightsubsentence=---,
   \c!leftquote=\lowerleftsingleninequote,
   \c!rightquote=\upperrightsingleninequote,
   \c!leftquotation=\lowerleftdoubleninequote,
   \c!rightquotation=\upperrightdoubleninequote,
   \c!date={\v!day,{.},\ ,\v!month,\ ,\v!year},
   \c!state=\v!stop]

\installlanguage
  [\s!cz]
  [\c!spacing=\v!packed,
   \c!leftsentence=\thickglue--\thickglue\penalty-20\relax, % hh, \relax added
   \c!rightsentence=\thickglue--\thickglue\penalty-20\relax,
   \c!leftsubsentence=~---~\penalty-20\relax,
   \c!rightsubsentence=~---~\penalty-20\relax,
   \c!leftquote=\lowerleftsingleninequote,
   \c!rightquote=\upperrightsinglesixquote,
   \c!leftquotation=\lowerleftdoubleninequote,
   \c!rightquotation=\upperrightdoublesixquote,
   \c!date={\v!day,{.\,},\v!month,\ ,\v!year},
   \c!state=\v!stop]

\installlanguage
  [\s!sk]
  [\c!spacing=\v!packed,
   \c!leftsentence=---,
   \c!rightsentence=---,
   \c!leftsubsentence=---,
   \c!rightsubsentence=---,
   \c!leftquote=\upperleftsinglesixquote,
   \c!rightquote=\upperrightsingleninequote,
   \c!leftquotation=\upperleftdoublesixquote,
   \c!rightquotation=\upperrightdoubleninequote,
   \c!date={\v!day,{.\,},\v!month,\ ,\v!year},
   \c!state=\v!stop]

\installlanguage
  [\s!hr]
  [\c!spacing=\v!packed,
   \c!leftsentence=---,
   \c!rightsentence=---,
   \c!leftsubsentence=---,
   \c!rightsubsentence=---,
   \c!leftquote=\upperleftsinglesixquote,
   \c!rightquote=\upperrightsingleninequote,
   \c!leftquotation=\upperleftdoublesixquote,
   \c!rightquotation=\upperrightdoubleninequote,
   \c!date={\v!day,\ ,\v!month,\ ,\v!year},
   \c!state=\v!stop]

\installlanguage
  [\s!sl]
  [\c!spacing=\v!packed,
   \c!leftsentence={\hbox{--~}},
   \c!rightsentence={\hbox{~--}},
   \c!leftsubsentence={--},
   \c!rightsubsentence={--},
   \c!leftquote=\lowerleftsingleninequote,
   \c!rightquote=\upperrightsinglesixquote,
   \c!leftquotation=\lowerleftdoubleninequote,
   \c!rightquotation=\upperrightdoublesixquote,
   \c!date={\v!day,{.},\ ,\v!month,\ ,\v!year},
   \c!state=\v!stop]

\installlanguage [polish]    [\s!pl]
\installlanguage [czech]     [\s!cz]
\installlanguage [slovak]    [\s!sk]
\installlanguage [croatian]  [\s!hr]
\installlanguage [slovenian] [\s!sl]
\installlanguage [slovene]   [\s!sl] % both possible

% If this is really needed we should make an enco-fhr.
%
% \startlanguagespecifics[\s!hr]
%
%   %\installcompoundcharacter /, {\handlequotation\c!leftquotation}
%   %\installcompoundcharacter /' {\handlequotation\c!rightquotation}
%
%   \def\setupHRlanguage%
%     {\setuplanguage
%        [\s!hr]
%        [\c!leftsentence=\leftguillemot,
%         \c!rightsentence=\rightguillemot,
%         \c!leftsubsentence=\leftsubguillemot,
%         \c!rightsubsentence=\rightsubguillemot]}
%
%   \installcompoundcharacter /< {{\setupHRlanguage|<|}}
%   \installcompoundcharacter /> {{\setupHRlanguage|>|}}
%
%   \installcompoundcharacter /- {|-|}
%
% \stoplanguagespecifics

% labels

\setupheadtext [\s!pl] [\v!content=Spis tre\sacute ci]
\setupheadtext [\s!cz] [\v!content=Obsah]
\setupheadtext [\s!sk] [\v!content=Obsah]
\setupheadtext [\s!hr] [\v!content=Sadr\zcaron aj]
\setupheadtext [\s!sl] [\v!content=Vsebina]

\setupheadtext [\s!pl] [\v!tables=Tabele]
\setupheadtext [\s!cz] [\v!tables=Tabulek]
\setupheadtext [\s!sk] [\v!tables=Tabuliek]
\setupheadtext [\s!hr] [\v!tables=Tablice]
\setupheadtext [\s!sl] [\v!tables=Tabele]

\setupheadtext [\s!pl] [\v!figures=Ilustracje]
\setupheadtext [\s!cz] [\v!figures=Obr\aacute zk\uring]
\setupheadtext [\s!sk] [\v!figures=Obr\aacute zkov]
\setupheadtext [\s!hr] [\v!figures=Slike]
\setupheadtext [\s!sl] [\v!figures=Slike]

\setupheadtext [\s!pl] [\v!graphics=Grafika]
\setupheadtext [\s!cz] [\v!graphics=Graf]
\setupheadtext [\s!sk] [\v!graphics=Graf]
\setupheadtext [\s!hr] [\v!graphics=Slike]
\setupheadtext [\s!sl] [\v!graphics=Slike]

\setupheadtext [\s!pl] [\v!intermezzi=Intermezza]
\setupheadtext [\s!cz] [\v!intermezzi=Intermezza]
\setupheadtext [\s!sk] [\v!intermezzi=Intermezz\aacute]
\setupheadtext [\s!hr] [\v!intermezzi=Intermezza]
\setupheadtext [\s!sl] [\v!intermezzi=Intermezzi]

\setupheadtext [\s!pl] [\v!index=Indeks]
\setupheadtext [\s!cz] [\v!index=Rejst\rcaron\iacute k]
\setupheadtext [\s!sk] [\v!index=Zoznam]
\setupheadtext [\s!hr] [\v!index=Indeks]
\setupheadtext [\s!sl] [\v!index=Kazalo]

\setupheadtext [\s!pl] [\v!abbreviations=Skr\oacute cenie]
\setupheadtext [\s!cz] [\v!abbreviations=Zkratky]
\setupheadtext [\s!sk] [\v!abbreviations=Skratky]
\setupheadtext [\s!hr] [\v!abbreviations=Kratice]
\setupheadtext [\s!sl] [\v!abbreviations=Kratice]

\setupheadtext [\s!pl] [\v!logos=Znaki]
\setupheadtext [\s!cz] [\v!logos=Loga]
\setupheadtext [\s!sk] [\v!logos=Log\aacute]
\setupheadtext [\s!hr] [\v!logos=Znakovi]
\setupheadtext [\s!sl] [\v!logos=Logotipi]

\setupheadtext [\s!pl] [\v!units=Jednostki]
\setupheadtext [\s!cz] [\v!units=Jednotky]
\setupheadtext [\s!sk] [\v!units=Jednotky]
\setupheadtext [\s!hr] [\v!units=Jednostki]
\setupheadtext [\s!sl] [\v!units=Enote]

\setuplabeltext [\s!pl] [\v!table=Tabela ]
\setuplabeltext [\s!cz] [\v!table=Tabulka ]
\setuplabeltext [\s!sk] [\v!table=Tabu\lcaron ka ]
\setuplabeltext [\s!hr] [\v!table=T\aacute bl\aacute zat ] % [\v!table=Tablica ]
\setuplabeltext [\s!sl] [\v!table=Tabela ]

\setuplabeltext [\s!pl] [\v!figure=Ilustracja ]
\setuplabeltext [\s!cz] [\v!figure=Obr\aacute zek ]
\setuplabeltext [\s!sk] [\v!figure=Obr\aacute zok ]
\setuplabeltext [\s!hr] [\v!figure=Slika ]
\setuplabeltext [\s!sl] [\v!figure=Slika ]

\setuplabeltext [\s!pl] [\v!intermezzo=Intermezzo ]
\setuplabeltext [\s!cz] [\v!intermezzo=Intermezzo ]
\setuplabeltext [\s!sk] [\v!intermezzo=Intermezzo ]
\setuplabeltext [\s!hr] [\v!intermezzo=Intermezzo ]
\setuplabeltext [\s!sl] [\v!intermezzo=Intermezzo ]

\setuplabeltext [\s!pl] [\v!graphic=Grafika ]
\setuplabeltext [\s!cz] [\v!graphic=Graf ]
\setuplabeltext [\s!sk] [\v!graphic=Graf ]
\setuplabeltext [\s!hr] [\v!graphic=Slika ]
\setuplabeltext [\s!sl] [\v!graphic=Slika ]

\setuplabeltext [\s!pl] [\v!chapter=] % Rozdzia\l
\setuplabeltext [\s!cz] [\v!chapter=] % Kapitola
\setuplabeltext [\s!sk] [\v!chapter=] % Kapitola
\setuplabeltext [\s!hr] [\v!chapter=] % Rozdzia\l
\setuplabeltext [\s!sl] [\v!chapter=] % Poglavje

\setuplabeltext [\s!pl] [\v!section=] % Podrozdzia\l
\setuplabeltext [\s!cz] [\v!section=] % Sekce
\setuplabeltext [\s!sk] [\v!section=] % Sekcia
\setuplabeltext [\s!hr] [\v!section=] % Podrozdzia\l
\setuplabeltext [\s!sl] [\v!section=]

\setuplabeltext [\s!pl] [\v!subsection=]
\setuplabeltext [\s!cz] [\v!subsection=] % Podsekce
\setuplabeltext [\s!sk] [\v!subsection=] % Podsekcia
\setuplabeltext [\s!hr] [\v!subsection=]
\setuplabeltext [\s!sl] [\v!subsection=]

\setuplabeltext [\s!pl] [\v!subsubsection=]
\setuplabeltext [\s!cz] [\v!subsubsection=] % Podpodsekce
\setuplabeltext [\s!sk] [\v!subsubsection=] % Podpodsekcia
\setuplabeltext [\s!hr] [\v!subsubsection=]
\setuplabeltext [\s!sl] [\v!subsubsection=]

\setuplabeltext [\s!pl] [\v!subsubsubsection=]
\setuplabeltext [\s!cz] [\v!subsubsubsection=] % Podpodpodsekce
\setuplabeltext [\s!sk] [\v!subsubsubsection=] % Podpodpodsekcia
\setuplabeltext [\s!hr] [\v!subsubsubsection=]
\setuplabeltext [\s!sl] [\v!subsubsubsection=]

\setuplabeltext [\s!pl] [\v!appendix=] % Dodatek
\setuplabeltext [\s!cz] [\v!appendix=P\rcaron\iacute loha ]
\setuplabeltext [\s!sk] [\v!appendix=Pr\iacute loha ]
\setuplabeltext [\s!hr] [\v!appendix=Dodatak ]
\setuplabeltext [\s!sl] [\v!appendix=Dodatek ]

\setuplabeltext [\s!pl] [\v!part=Ust\eogonek p ]
\setuplabeltext [\s!cz] [\v!part=\Ccaron \aacute st ]
\setuplabeltext [\s!sk] [\v!part=\Ccaron as\tcaron{} ]
\setuplabeltext [\s!hr] [\v!part=Dio ]
\setuplabeltext [\s!sl] [\v!part=Del ]

\setuplabeltext [\s!pl] [\v!line=wiersz ]
\setuplabeltext [\s!cz] [\v!line=\rcaron\aacute dek ]
\setuplabeltext [\s!sk] [\v!line=riadok ]
\setuplabeltext [\s!hr] [\v!line=red ]
\setuplabeltext [\s!sl] [\v!line=vrstica ]

\setuplabeltext [\s!pl] [\v!lines=wiersze ]
\setuplabeltext [\s!cz] [\v!lines=\rcaron\aacute dky ]
\setuplabeltext [\s!sk] [\v!lines=riadky ]
\setuplabeltext [\s!hr] [\v!lines=redovi ]
\setuplabeltext [\s!sl] [\v!lines=vrstice ]

\setuplabeltext [\s!pl]   [\v!january=stycznia]
\setuplabeltext [\s!pl]  [\v!february=lutego]
\setuplabeltext [\s!pl]     [\v!march=marca]
\setuplabeltext [\s!pl]     [\v!april=kwietnia]
\setuplabeltext [\s!pl]       [\v!may=maja]
\setuplabeltext [\s!pl]      [\v!june=czerwca]
\setuplabeltext [\s!pl]      [\v!july=lipca]
\setuplabeltext [\s!pl]    [\v!august=sierpnia]
\setuplabeltext [\s!pl] [\v!september=wrze\sacute nia]
\setuplabeltext [\s!pl]   [\v!october=pa\zacute dziernika]
\setuplabeltext [\s!pl]  [\v!november=listopada]
\setuplabeltext [\s!pl]  [\v!december=grudnia]

\setuplabeltext [\s!cz]   [\v!january=ledna]
\setuplabeltext [\s!cz]  [\v!february=\uacute nora]
\setuplabeltext [\s!cz]     [\v!march=b\rcaron ezna]
\setuplabeltext [\s!cz]     [\v!april=dubna]
\setuplabeltext [\s!cz]       [\v!may=kv\ecaron tna]
\setuplabeltext [\s!cz]      [\v!june=\ccaron ervna]
\setuplabeltext [\s!cz]      [\v!july=\ccaron ervence]
\setuplabeltext [\s!cz]    [\v!august=srpna]
\setuplabeltext [\s!cz] [\v!september=z\aacute\rcaron\iacute{}]
\setuplabeltext [\s!cz]   [\v!october=\rcaron\iacute jna]
\setuplabeltext [\s!cz]  [\v!november=listopadu]
\setuplabeltext [\s!cz]  [\v!december=prosince]

\setuplabeltext [\s!sk]   [\v!january=janu\aacute ra]
\setuplabeltext [\s!sk]  [\v!february=febru\aacute ra]
\setuplabeltext [\s!sk]     [\v!march=marca]
\setuplabeltext [\s!sk]     [\v!april=apr\iacute la]
\setuplabeltext [\s!sk]       [\v!may=m\aacute ja]
\setuplabeltext [\s!sk]      [\v!june=j\uacute na]
\setuplabeltext [\s!sk]      [\v!july=j\uacute la]
\setuplabeltext [\s!sk]    [\v!august=augusta]
\setuplabeltext [\s!sk] [\v!september=septembra]
\setuplabeltext [\s!sk]   [\v!october=okt\oacute bra]
\setuplabeltext [\s!sk]  [\v!november=novembra]
\setuplabeltext [\s!sk]  [\v!december=decembra]

\setuplabeltext [\s!hr]   [\v!january=sije\ccaron anj]
\setuplabeltext [\s!hr]  [\v!february=velja\ccaron a]
\setuplabeltext [\s!hr]     [\v!march=o\zcaron ujak]
\setuplabeltext [\s!hr]     [\v!april=travanj]
\setuplabeltext [\s!hr]       [\v!may=svibanj]
\setuplabeltext [\s!hr]      [\v!june=lipanj]
\setuplabeltext [\s!hr]      [\v!july=srpanj]
\setuplabeltext [\s!hr]    [\v!august=kolovoz]
\setuplabeltext [\s!hr] [\v!september=rujan]
\setuplabeltext [\s!hr]   [\v!october=listopad]
\setuplabeltext [\s!hr]  [\v!november=studeni]
\setuplabeltext [\s!hr]  [\v!december=prosinac]

\setuplabeltext [\s!sl]   [\v!january=januar]
\setuplabeltext [\s!sl]  [\v!february=februar]
\setuplabeltext [\s!sl]     [\v!march=marec]
\setuplabeltext [\s!sl]     [\v!april=april]
\setuplabeltext [\s!sl]       [\v!may=maj]
\setuplabeltext [\s!sl]      [\v!june=junij]
\setuplabeltext [\s!sl]      [\v!july=julij]
\setuplabeltext [\s!sl]    [\v!august=avgust]
\setuplabeltext [\s!sl] [\v!september=september]
\setuplabeltext [\s!sl]   [\v!october=oktober]
\setuplabeltext [\s!sl]  [\v!november=november]
\setuplabeltext [\s!sl]  [\v!december=december]

\setuplabeltext [\s!pl]    [\v!sunday=niedziela]
\setuplabeltext [\s!pl]    [\v!monday=poniedzia\lstroke ek]
\setuplabeltext [\s!pl]   [\v!tuesday=wtorek]
\setuplabeltext [\s!pl] [\v!wednesday=\sacute roda]
\setuplabeltext [\s!pl]  [\v!thursday=czwartek]
\setuplabeltext [\s!pl]    [\v!friday=pi\aogonek tek]
\setuplabeltext [\s!pl]  [\v!saturday=sobota]

% new
\setuplabeltext [\s!cz]    [\v!sunday=ned\ecaron le]
\setuplabeltext [\s!cz]    [\v!monday=pond\ecaron l\iacute]
\setuplabeltext [\s!cz]   [\v!tuesday=\uacute ter\yacute]
\setuplabeltext [\s!cz] [\v!wednesday=st\rcaron eda]
\setuplabeltext [\s!cz]  [\v!thursday=\ccaron tvrtek]
\setuplabeltext [\s!cz]    [\v!friday=p\aacute tek]
\setuplabeltext [\s!cz]  [\v!saturday=sobota]

\setuplabeltext [\s!hr]    [\v!sunday=nedjelja]
\setuplabeltext [\s!hr]    [\v!monday=ponedjeljak]
\setuplabeltext [\s!hr]   [\v!tuesday=utorak]
\setuplabeltext [\s!hr] [\v!wednesday=srijeda]
\setuplabeltext [\s!hr]  [\v!thursday=\ccaron etvrtak]
\setuplabeltext [\s!hr]    [\v!friday=petak]
\setuplabeltext [\s!hr]  [\v!saturday=subota]

\setuplabeltext [\s!sl]    [\v!sunday=nedelja]
\setuplabeltext [\s!sl]    [\v!monday=ponedeljek]
\setuplabeltext [\s!sl]   [\v!tuesday=torek]
\setuplabeltext [\s!sl] [\v!wednesday=sreda]
\setuplabeltext [\s!sl]  [\v!thursday=\ccaron etrtek]
\setuplabeltext [\s!sl]    [\v!friday=petek]
\setuplabeltext [\s!sl]  [\v!saturday=sobota]

%D Rather new ...
%\installlanguage
%  [\s!cz]
%  [\c!spacing=\v!packed,
%   \c!leftsentence=---,
%   \c!rightsentence=---,
%   \c!leftsubsentence=---,
%   \c!rightsubsentence=---,
%   \c!leftquote=\lowerleftsingleninequote,
%   \c!rightquote=\upperrightsinglesixquote,
%   \c!leftquotation=\lowerleftdoubleninequote,
%   \c!rightquotation=\upperrightdoublesixquote,
%   \c!date={\v!day,\ ,\v!month,\ ,\v!year},
%   \c!state=\v!stop]


\setuplabeltext [\s!sl]    [\v!page=stran ]
\setuplabeltext [\s!sl]  [\v!atpage=na strani ]
\setuplabeltext [\s!sl] [\v!hencefore=glej zgoraj]
\setuplabeltext [\s!sl] [\v!hereafter=glej spodaj]
\setuplabeltext [\s!sl]       [\v!see=glej ]

% new
\setuplabeltext [\s!cz]    [\v!page=strana ]
\setuplabeltext [\s!cz]  [\v!atpage=na stran\ecaron\ ]
\setuplabeltext [\s!cz] [\v!hencefore=viz v\yacute\scaron e ]
\setuplabeltext [\s!cz] [\v!hereafter=viz n\iacute\zcaron e ]
\setuplabeltext [\s!cz]       [\v!see=viz ]

%D \ShowAllLanguageValues [\s!pl] [polish]    {Polish}    {furniture}
%D \ShowAllLanguageValues [\s!cz] [czech]     {Czech}     {mate}
%D \ShowAllLanguageValues [\s!sk] [slovak]    {Slovakian} {face}
%D \ShowAllLanguageValues [\s!hr] [croatian]  {Croatian}  {heartthrob}
%D \ShowAllLanguageValues [\s!sl] [slovenian] {Slovenian} {mountains}

%D A present from Brooks Moses and Hans Hagen for Mojca Miklavec:

\def\doconvertsloveniancharacters{\dodoconvertcharacters{25}}

\def\sloveniancharacters{\doconvertsloveniancharacters\sloveniancharacter}
\def\slovenianCharacters{\doconvertsloveniancharacters\slovenianCharacter}

%D Define general-purpose macros for Slovenian character enumerations:

\defineconversion [sloveniancharacter]  [\sloveniancharacter]
\defineconversion [slovenianCharacter]  [\slovenianCharacter]

\defineconversion [sloveniancharacters] [\sloveniancharacters]
\defineconversion [slovenianCharacters] [\slovenianCharacters]

%D Define these as the general character enumeration when
%D language is Slovenian. If you feel uncomfortable with this,
%D mail Mojca, since she promised to to take the heat.

\defineconversion [sl] [character]  [\sloveniancharacter]
\defineconversion [sl] [Character]  [\slovenianCharacter]

\defineconversion [sl] [characters] [\sloveniancharacters]
\defineconversion [sl] [Characters] [\slovenianCharacters]

\defineconversion [sl] [a]          [\sloveniancharacters]
\defineconversion [sl] [A]          [\slovenianCharacters]
\defineconversion [sl] [AK]         [\smallcapped\sloveniancharacters]
\defineconversion [sl] [KA]         [\smallcapped\sloveniancharacters]

% this will become more generic : \languagecharacters{sl}{..}

\let\sloveniancharacter\gobbleoneargument
\let\slovenianCharacter\gobbleoneargument

%D Plugins:

\loadmarkfile{lang-sla}

\protect \endinput
