summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/lambda/base/french.lay
blob: cc708a9b87276510d620750baee5801721a226f9 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
     \ocp\IdOCP=id
     \ocplist\NilOCP=
     \addbeforeocplist 500 \IdOCP
     \addbeforeocplist 1750 \IdOCP
     \addbeforeocplist 2000 \IdOCP
     \addbeforeocplist 3500 \IdOCP
     \nullocplist
     \ocp\BasicFrenchTexUni=french2uni
     \ocp\BasicLatinUniToFont=uni2lat
     \ocp\BasicLatinUniToFontNoFfi=uni2lat-noffi
     \ocplist\BasicFrenchOCP=
     \addbeforeocplist 500 \BasicFrenchTexUni
     \addbeforeocplist 1750 \IdOCP
     \addbeforeocplist 2000 \IdOCP
     \addbeforeocplist 3500 \BasicLatinUniToFont
     \nullocplist

\def\frenchpunctuation{%
\def\LeftPointingDoubleAngleQuotationMark{^^^^00ab\kern.1667em}%
\def\RightPointingDoubleAngleQuotationMark{\unskip\kern.1667em^^^^00bb}%
\def\LeftDoubleQuotationMark{^^^^201c}%
\def\RightDoubleQuotationMark{^^^^201d}%
\def\QuestionMark{\unskip\kern.1667em?}%
\def\ExclamationMark{\unskip\kern.1667em!}%
\def\Semicolon{\unskip\kern.1667em;}%
\def\Colon{\unskip~:\typeout{French colon!}}}

\makeatletter
\newenvironment{french}{\frenchpunctuation\language=\l@french\def\today{\number\day
    \ifnum1=\day \ier\fi
    \space \ifcase\month
    \or janvier\or f\'evrier\or mars\or avril\or mai\or juin\or
    juillet\or ao\^ut\or septembre\or octobre\or novembre\or
    d\'ecembre\fi
    \space \number\year}%
\def\addcontentsline##1##2##3{%
  \addtocontents{##1}{\protect\contentsline{##2}{\protect\pushocplist\BasicFrenchOCP##3}{\thepage}}}%
\pushocplist\BasicFrenchOCP}{}
\newcommand{\localfrench}[1]{{\frenchpunctuation\protect\pushocplist\BasicFrenchOCP#1}}
\makeatother

\endinput