diff options
Diffstat (limited to 'Master/texmf-dist/tex/latex/lettre/lettre.cls')
-rw-r--r-- | Master/texmf-dist/tex/latex/lettre/lettre.cls | 428 |
1 files changed, 119 insertions, 309 deletions
diff --git a/Master/texmf-dist/tex/latex/lettre/lettre.cls b/Master/texmf-dist/tex/latex/lettre/lettre.cls index a785eb70edf..bc77d73564f 100644 --- a/Master/texmf-dist/tex/latex/lettre/lettre.cls +++ b/Master/texmf-dist/tex/latex/lettre/lettre.cls @@ -1,51 +1,46 @@ -% %NAME% : Lettre -% maintenance: Vincent Belaïche (vincentb1@users.sourceforge.net) -% %AUTHOR% : Denis Mégevand - Observatoire de Genève -% %EMAIL% : Denis.Megevand@obs.unige.ch -% %VERSION% : v2.348 -%% -%% This is file `lettre.cls'. -%% -%% The original source files were: -%% -%% letter.cls - LaTeX 2e team -%% lettre.sty - D. Megevand -%% -%% -%% IMPORTANT NOTICE: -%% -%% This file is part of the "lettre" package. -%% This package is distributed under the terms of the LaTeX Project -%% Public License (LPPL) described in the file lppl.txt. -%% -%% Denis Mégevand - Observatoire de Genève. -%% -%% Ce fichier fait partie de la distribution du paquetage "lettre". -%% Ce paquetage est distribué sous les termes de la License Publique -%% du Projet LaTeX (LPPL) décrite dans le fichier lppl.txt. -%% +% file name : `lettre.cls'. +% package name: lettre +% maintenance : Vincent Belaïche (vincentb1@users.sourceforge.net) +% author : Denis Mégevand - Observatoire de Genève +% email : lettre_observatoire-aide@gna.org +% version : v2.353 +% date : 2014/09/09 +% +% This file is part of the "lettre" package. +% This work may be distributed and/or modified under the conditions of the +% LaTeX Project Public License, either version 1.3 of this license or (at your +% option) any later version. The latest version of this license is in +% http://www.latex-project.org/lppl.txt and version 1.3 or later is part of all +% distributions of LaTeX version 2005/12/01 or later. % -% **************************************** -% * PREAMBULE * -% **************************************** +% This work has the LPPL maintenance status `maintained'. +% +% The Current Maintainer of this work is Vincent Belaïche. +% +% This work consists of all files listed in file README % \NeedsTeXFormat{LaTeX2e} \RequirePackage{graphicx} -\ProvidesClass{lettre}[2013/10/07 v2.349] +\ProvidesClass{lettre}[2014/09/09 v2.353] \typeout{Copyleft Denis Megevand - Observatoire de Geneve}% %% -\newcommand\@ptsize{} \DeclareOption{10pt}{\renewcommand\@ptsize{0}} \DeclareOption{11pt}{\renewcommand\@ptsize{1}} \DeclareOption{12pt}{\renewcommand\@ptsize{2}} +\if@compatibility\else +\DeclareOption{a4paper} + {\setlength\paperheight {297mm}% + \setlength\paperwidth {210mm}} +\fi \if@compatibility - \DeclareOption{twoside}{\@latexerr{No `twoside' layout for letters}% - \@eha} + \DeclareOption{twoside}{\ClassError{lettre}{No `twoside' layout for letters}% + {LaTeX2e is running in compatibility mode, in this mode there is no `twoside' + layout for letters}} \else \DeclareOption{twoside}{\@twosidetrue} \fi \DeclareOption{oneside}{\@twosidefalse} -\DeclareOption{origdate}{\@origdatetrue\PackageWarningNoLine{lettre}{Mode `origdate'}} +\DeclareOption{origdate}{\@origdatetrue\l@@info{Mode `origdate'}} \DeclareOption{draft}{\setlength\overfullrule{5pt}} \DeclareOption{final}{\setlength\overfullrule{0pt}} \DeclareOption{leqno}{\input{leqno.clo}} @@ -55,20 +50,29 @@ \DeclareOption{allemand}{\def\defaultlanguage{allemand}} \DeclareOption{americain}{\def\defaultlanguage{americain}} \DeclareOption{anglais}{\def\defaultlanguage{anglais}} -\if@compatibility -\else -\DeclareOption*{\PackageWarningNoLine{lettre}{Option inconnue : `\CurrentOption'}} +\if@compatibility\else + \DeclareOption*{\l@@warning{Option inconnue : `\CurrentOption', assurez-vous que + c'est une option globale passee aux paquetages utilises dans votre document}} \fi +\def\infos{\c@infos=1\relax} +\def\noinfos{\c@infos=0\relax} +% +\def\l@@warning{% + \ClassWarning{lettre}% +} +\def\l@@info#1{\ifnum\c@infos=1 % + \GenericWarning{% + (lettre)\space\@spaces\@spaces\@spaces + }{Class lettre Message: #1\@gobble}% + \fi +}% +\newcommand\@ptsize{} +\newcount\c@infos\c@infos=1\relax \newif\if@origdate\@origdatefalse \newif\if@etiq\@etiqfalse \ExecuteOptions{10pt,oneside,final,francais} \ProcessOptions \input{size1\@ptsize.clo} -% -% **************************************** -% * POLICES * -% **************************************** -% \DeclareOldFontCommand{\rm}{\rmfamily}{\mathrm} \DeclareOldFontCommand{\sl}{\slshape}{\@nomath\sl} \DeclareOldFontCommand{\it}{\itshape}{\mathit} @@ -78,11 +82,6 @@ \DeclareOldFontCommand{\tt}{\ttfamily}{\mathtt} \DeclareRobustCommand*{\cal}{\@fontswitch{\relax}{\mathcal}} \DeclareRobustCommand*{\mit}{\@fontswitch{\relax}{\mathnormal}} -% -% **************************************** -% * PARAGRAPHES : parametres * -% **************************************** -% \lineskip 1pt% \normallineskip 1pt% \parskip .7em% @@ -98,56 +97,27 @@ \@beginparpenalty -\@lowpenalty \@endparpenalty -\@lowpenalty \@itempenalty -\@lowpenalty -% -% **************************************** -% * MISE-EN-PAGE : parametres * -% **************************************** - -% marge sup. 25mm \topmargin 25mm% -% suppression de l'offset vertical \advance\topmargin by -1in -% sep. d'entete 4mm \headheight 0pt% \headsep 4mm% -% hauteur texte 250mm \textheight 250mm% % sep d'embase 9mm \footskip 9mm% % -% total vertical 25+4+250+9=288 mm, reste 9 mm sur A4 = 297 mm. -% \footnotesep 5mm% \marginparpush 1mm% % % marge gauche 25mm \oddsidemargin 25mm% \evensidemargin 25mm% -% suppression de l'offset horizontal \advance\oddsidemargin by -1in \advance\evensidemargin by -1in -% largeur texte 160mm \textwidth 160mm% -% sep. note lat. 4mm \marginparsep 4mm% -% larg. note lat 15mm \marginparwidth 15mm% -% -% total horizontal 25+160+4+15=204 mm, reste 6 mm sur A4 = 210 mm. -% \skip\footins 4mm plus 2pt minus 4pt% -% -% ************************************************ -% * LE FORMAT LETTRE ET FAX DE * -% * L'OBSERVATOIRE DE GENEVE * -% ************************************************ -% -% ************************************************ -% * NEWCOUNTS, NEWDIMENS, NEWIFS, NEWWRITE * -% ************************************************ -% \newcount\auxcount -\newcount\c@infos\c@infos=1\relax \newcount\c@labelstart \newcount\c@lettre \newcount\c@telefax @@ -173,7 +143,6 @@ \newdimen\faxbox@width \newdimen\toaddress@fax@width \newdimen\fromname@fax@width -% \newif\if@letter\@lettertrue \newif\if@detail\@detailfalse % @@ -181,12 +150,8 @@ \newwrite\@dateaux \newwrite\@etiqaux \newwrite\@faxaux -% -% ************************************************ -% * MACROS INTERNES * -% ************************************************ -% -\@ifundefined{lettre@t}{}{\PackageError{lettre}{Definition en double}{Redefinition de la macro `lettre@t'}} +\@ifundefined{lettre@t}{}{\ClassError{lettre}{Definition en double}% + {Redefinition de la macro `lettre@t'}} \def\lettre@t#1#2{\begin{list}{#1}{\setlength{\labelsep}{10pt}% \setlength{\labelwidth}{\listmargin}% \setlength{\leftmargin}{\listmargin}% @@ -240,55 +205,18 @@ \def\@nobreakcr{\vadjust{\penalty\@M}\@ifstar{\@xnewline}{\@xnewline}}% \def\startbreaks{\let\\=\@normalcr \interlinepenalty 200\relax\def\par{\@@par\penalty -100\relax}}% -% -%************************************************************* -% MESSAGES ET AVERTISSSEMENTS * -%************************************************************* -% -% Envoyes a la console et dans le fichier de log -% -% On peut supprimer allumer ou eteindre en tout temps les -% messages d'informations par les commandes \infos et \noinfos. -% Les avertissements ne peuvent etre supprimes. -%************************************************************* -\def\infos{\c@infos=1\relax} -\def\noinfos{\c@infos=0\relax} -% -\def\ltypeout#1{{\let\protect\string\immediate\write16{#1}}}% -\def\l@@warning#1{\typeout{LETTRE WARNING: #1.}}% -\def\l@warning#1{\l@@warning{#1\on@line}}% -\def\l@@info#1{\ifnum\c@infos=1\typeout{LETTRE INFO: #1.}\fi}% -% -% ************************************************ -% * ETIQUETTES * -% ************************************************ -% -% La commande \startlabels suivante definit des pages -% A4 de 2 colonnes d'etiquettes avec 15 mm de marges -% gauche et droite sur chaque etiquette. -% Si l'on change le nombre d'etiquettes sur une page, -% il faut aussi modifier la routine \@startlabels -% \def\startlabels{% \baselineskip=0pt\lineskip=0pt% \pagestyle{empty}% \let\@texttop=\relax \topmargin=0pt\headsep=0pt% \oddsidemargin=15mm\evensidemargin=15mm% -% -% modifications des dimensions de la page a faire ici -% \textheight=297mm\textwidth=180mm\columnsep=30mm% \@colht=\textheight\@colroom=\textheight\vsize=\textheight \small \baselineskip=0pt\lineskip=0pt% \boxmaxdepth=0pt% \twocolumn\relax}% -% -% La commande \@startlabels suivante definit la position de la -% premiere etiquette sur la page, a partir de la valeur du -% compteur \c@labelstart. -% \def\@startlabels{% \l@@info{Position de la premiere etiquette: \the\c@labelstart}% \ifnum\c@labelstart>\z@ @@ -303,40 +231,18 @@ \l@@warning{Position de la premiere etiquette ignoree}% \fi }% -% -% La commande \mlabel fabrique une etiquette de 37 mm de hauteur, -% la largeur etant definie dans \startlabels (105mm-30mm de marges) -% chacune contenant 70 mm de texte au centre de l'etiquette. \def\mlabel#1{\setbox0\vbox{\parbox[b]{70mm}{\rm\strut\ignorespaces #1}}% \vbox to 37mm{\vskip5mmplus1fil \box0 \vskip5mmplus1fil}}% -% -% \makelabels demande a \begin{document} d'imprimer sur le fichier -% auxiliaire .etq l'ordre de preparer les etiquettes. -% Son argument optionnel definit quelle est la prochaine etiquette -% libre sur la page, de maniere a utiliser des feuilles deja -% partiellement utilisees. Dans ce cas, \begin{document} imprime -% autant d'etiquettes vides que necessaire. -% \def\makelabels{% \@etiqtrue \l@@info{On demande des etiquettes}% \@ifnextchar [{\i@makelabels}{\i@makelabels[1]}}% \def\i@makelabels[#1]{\c@labelstart=#1}% -% -% **************************************** -% * ADAPTATIONS DES DEFAUTS * -% **************************************** -% \def\institut#1{% \l@@info{Fichier de defaut: #1.ins}% \def\@institut{\makeatletter \input{#1.ins}% \makeatother}}% -% -% ************************************************ -% * ENVIRONNEMENTS LETTER ET FAX * -% ************************************************ -% \long\def\letter#1{% \rm \global\advance\c@lettre\@ne @@ -369,43 +275,43 @@ \immediate\write\@tensionaux{% \string\expandafter\string\def% \string\csname\space newletter\the\c@lettre\string\endcsname{-2}}% - \l@@warning{Longueur de la derniere page : \the\pagetotal < 50pt}% - \l@@warning{ tension de page modifiee a -2, veuillez recompiler}% + \l@@warning{Longueur de la derniere page : \the\pagetotal < 50pt\MessageBreak + tension de page modifiee a -2, veuillez recompiler}% \else \ifdim\pagetotal < 90pt \immediate\write\@tensionaux{% \string\expandafter\string\def% \string\csname\space newletter\the\c@lettre\string\endcsname{-4}}% - \l@@warning{Longueur de la derniere page : \the\pagetotal < 90pt}% - \l@@warning{ tension de page modifiee a -4, veuillez recompiler}% + \l@@warning{Longueur de la derniere page : \the\pagetotal < 90pt\MessageBreak + tension de page modifiee a -4, veuillez recompiler}% \else \ifdim\pagetotal < 130pt \immediate\write\@tensionaux{% \string\expandafter\string\def% \string\csname\space newletter\the\c@lettre\string\endcsname{-5}}% - \l@@warning{Longueur de la derniere page : \the\pagetotal < 130pt}% - \l@@warning{ tension de page modifiee a -5, veuillez recompiler}% + \l@@warning{Longueur de la derniere page : \the\pagetotal < 130pt\MessageBreak + tension de page modifiee a -5, veuillez recompiler}% \else \ifdim\pagetotal < 170pt \immediate\write\@tensionaux{% \string\expandafter\string\def% \string\csname\space newletter\the\c@lettre\string\endcsname{-6}}% - \l@@warning{Longueur de la derniere page : \the\pagetotal < 170pt}% - \l@@warning{ tension de page modifiee a -6, veuillez recompiler}% + \l@@warning{Longueur de la derniere page : \the\pagetotal < 170pt\MessageBreak + tension de page modifiee a -6, veuillez recompiler}% \else \ifdim\pagetotal < 210pt \immediate\write\@tensionaux{% \string\expandafter\string\def% \string\csname\space newletter\the\c@lettre\string\endcsname{4}}% - \l@@warning{Longueur de la derniere page : \the\pagetotal < 210pt}% - \l@@warning{ tension de page modifiee a 4, veuillez recompiler}% + \l@@warning{Longueur de la derniere page : \the\pagetotal < 210pt\MessageBreak + tension de page modifiee a 4, veuillez recompiler}% \else \ifdim\pagetotal < 250pt \immediate\write\@tensionaux{% \string\expandafter\string\def% \string\csname\space newletter\the\c@lettre\string\endcsname{6}}% - \l@@warning{Longueur de la derniere page : \the\pagetotal < 250pt}% - \l@@warning{ tension de page modifiee a 6, veuillez recompiler}% + \l@@warning{Longueur de la derniere page : \the\pagetotal < 250pt\MessageBreak + tension de page modifiee a 6, veuillez recompiler}% \else \immediate\write\@tensionaux{% \string\expandafter\string\def% @@ -437,15 +343,14 @@ \\\toaddress}}% \endgroup \fi}% -% \long\def\telefax#1#2{% \rm \global\advance\c@telefax\@ne \l@@info{Telefax \the\c@telefax}% \ifnum\c@telefax=\@ne \else - \l@@warning{Un seul telefax par fichier, s.v.p.,} - \l@@warning{ sinon le nombre de pages du fax est incorrect !} + \l@@warning{Un seul telefax par fichier, s.v.p.,\MessageBreak + sinon le nombre de pages du fax est incorrect !} \fi \ifodd\c@page% \else @@ -479,32 +384,41 @@ \immediate\openout\@faxaux=\jobname.fax% \immediate\write\@faxaux{\string\def\string\totalpages{\the\faxpage}}% \if\totalpages\the\faxpage\else - \l@@warning{Le nombre de pages du fax a change, }% - \l@@warning{(ancien=\totalpages, nouveau=\the\faxpage) }% - \l@@warning{ veuillez recompiler pour le corriger dans l'entete.}% + \l@@warning{Le nombre de pages du fax a change, \MessageBreak + (ancien=\totalpages, nouveau=\the\faxpage) \MessageBreak + veuillez recompiler pour le corriger dans l'entete}% \fi \endgroup \@@par\pagebreak\@@par }% -% -% ************************************************ -% * OPENING ET CLOSING * -% ************************************************ -% +\def\lettre@write@pdate@to@dateaux{% + \l@@info{`\pdate' ecrit dans \jobname.odt}% + {% + \let\protect\string + \immediate\write\@dateaux{% + \string\expandafter\string\def% + \string\csname\space origdate\the\c@lettre + \string\endcsname{\pdate}}}} +\def\lettre@get@date{% + \if@origdate + \expandafter\ifx\csname origdate\the\c@lettre + \endcsname\relax + \else + \l@@info{Date originale lue dans \jobname.odt}% + \def\pdate{\csname origdate\the\c@lettre\endcsname}% + \fi + \lettre@write@pdate@to@dateaux + \fi +} +\def\lettre@put@fromlieu@date{% + \ifx\@empty\fromlieu + \else + \fromlieu + \ifx\@empty\pdate\else, \fi + \fi + \ifx\@empty\pdate\else\pdate\fi} \def\letteropening#1{% - \if@origdate - \expandafter\ifx\csname origdate\the\c@lettre - \endcsname\relax - \else - \l@@info{Date originale lue dans \jobname.odt}% - \def\pdate{\csname origdate\the\c@lettre\endcsname}% - \fi - \l@@info{`\pdate' ecrit dans \jobname.odt}% - \immediate\write\@dateaux{% - \string\expandafter\string\def% - \string\csname\space origdate\the\c@lettre - \string\endcsname{\pdate}}% - \fi + \lettre@get@date \hbadness=10000\relax \thispagestyle{empty}% \setlength{\unitlength}{1mm}% @@ -529,12 +443,8 @@ \fi}}} \put(\fromlieu@let@hpos,\fromlieu@let@vpos){\makebox(0,0)[bl]{% \parbox[t]{\fromlieu@let@width}{% - \ifx\@empty\fromlieu - \else\fromlieu, % - \fi - \ifx\@empty\pdate ~% - \else \pdate - \fi}}}% + \lettre@put@fromlieu@date + }}}% \put(\toaddress@let@hpos,\toaddress@let@vpos){\makebox(0,0)[tl]{% \parbox{\toaddress@let@width}{% \toname\\\toaddress}}}% @@ -561,7 +471,6 @@ \let\raggedright=\letterraggedright \let\center=\lettercenter \let\centering=\lettercentering}% -% \def\faxopening#1{% \hbadness=10000\relax \thispagestyle{empty}% @@ -602,25 +511,10 @@ \end{tabular*}\par% \begin{tabular*}{\faxbox@width}[t]{@{}r@{}}% \vrule height 0pt depth 0pt width \faxbox@width\\ - \multicolumn{1}{r}{\ifx\@empty\fromlieu - \else\fromlieu, % - \fi - \if@origdate - \expandafter\ifx\csname origdate\the\c@lettre - \endcsname\relax - \else - \l@@info{Date originale lue dans \jobname.odt}% - \def\pdate{\csname origdate\the\c@lettre\endcsname}% - \fi - \l@@info{`\pdate' ecrit dans \jobname.odt}% - \immediate\write\@dateaux{% - \string\expandafter\string\def% - \string\csname\space origdate\the\c@lettre - \string\endcsname{\pdate}}% - \fi - \ifx\@empty\pdate ~% - \else \pdate - \fi}\\% + \multicolumn{1}{r}{% + \lettre@get@date + \lettre@put@fromlieu@date + }\\% \end{tabular*}% \par \vspace{\openingspace}% @@ -638,7 +532,6 @@ \let\raggedright=\letterraggedright \let\center=\lettercenter \let\centering=\lettercentering}% -% \long\def\closing#1{% \let\center=\normalcenter \let\centering=\normalcentering @@ -651,7 +544,7 @@ \par\vspace{2\parskip}% \nobreak \noindent - \l@@info{Signature \ifcase\signum manquante \or simple\or double\or triple\fi}% + \l@@info{Signature \ifcase\signum manquante\or simple\or double\or triple\fi}% \ifcase\sigflag \ifcase\signum \parbox[t]{\letterwidth}{#1}% @@ -731,11 +624,6 @@ \fi \par\vfill\startbreaks }% -% -% ************************************************ -% * COMMANDES UTILISATEURS * -% ************************************************ -% \def\marge#1{% \lettermargin=#1% \listmargin=#1% @@ -747,19 +635,15 @@ % \def\basdepage#1{% \def\bdp{#1}}% -% \def\tension#1{% \if@letter \expandafter\def\csname letter\the\c@lettre\endcsname{#1}% \fi }% -% \def\addpages#1{% \l@@info{Pages additionnelles: #1}% \advance\faxpage by #1}% -% \def\name#1{\def\fromname{#1}}% -% \def\signature#1{% \ifnum\signum=0\relax \def\fromsig{#1}\signum=1\relax @@ -781,23 +665,20 @@ \l@@warning{Troisieme signature illegale ou deja definie}% \fi }% -% -\def\vref#1{\l@@warning{La commande \string\Vref\ devrait etre utilisee.} +\def\vref#1{\l@@warning{La commande \protect\Vref\space devrait etre utilisee} \def\auxflag{.}% \def\toref{\parbox[t]{17mm}{#1}}}% \def\Vref#1{\def\auxflag{.}% \def\toref{\parbox[t]{17mm}{#1}}}% -\def\nref#1{\l@@warning{La commande \string\Nref~ devrait etre utilisee.} +\def\nref#1{\l@@warning{La commande \protect\Nref\space devrait etre utilisee} \def\auxflag{.}% \def\fromref{\parbox[t]{17mm}{#1}}}% \def\Nref#1{\def\auxflag{.}% \def\fromref{\parbox[t]{17mm}{#1}}}% -% \def\concline{% \noindent\parbox[t]{\letterwidth}% {\@hangfrom{\textrm{\concname}}\ignorespaces\concdecl\strut}% \par}% -% \def\auxline{% \l@@info{Ligne auxiliaire demandee}% {\scriptsize @@ -823,7 +704,6 @@ \else C.C.P.\ \ccpnum\hspace{5mm}% \fi}\par}% -% \def\emailine{% \l@@info{Ligne d'E-Mail demandee}% {\scriptsize @@ -851,7 +731,6 @@ \ifnum\emailcount<3\relax \hfill\mbox{}% \fi}}% -% \long\def\address#1{\l@@info{Adresse precisee}\def\fromaddress{#1}}% %\long\def\address*#1{\if@letter % \l@@info{Adresse avec nom precisee}% @@ -862,24 +741,16 @@ % \def\nodate{\l@@info{Date supprimee}\def\pdate{}}% \def\date#1{\l@@info{Date precisee}\def\pdate{#1}}% -% \def\nolieu{\l@@info{Lieu supprime}\def\fromlieu{}}% \def\lieu#1{\l@@info{Lieu precise}\def\fromlieu{#1}}% -% \def\conc#1{\l@@info{Champ d'objet defini}\def\concdecl{#1}}% -% \def\location#1{\l@@info{Precision d'adresse definie}\def\fromlocation{#1}}% -% \def\notelephone{\l@@info{Numero de telephone supprime}\def\telephonenum{}}% \def\telephone#1{\l@@info{Numero de telephone precise}\def\telephonenum{#1}}% -% \def\nofax{\l@@info{Numero de fax supprime}\def\faxnum{}}% \def\fax#1{\l@@info{Numero de fax precise}\def\faxnum{#1}}% -% \def\email#1{\l@@info{Numero d'E-Mail precise}\def\emailnum{#1}}% -% \def\username#1{\def\@username{#1}}% -% \def\ccitt#1{\ifnum\emailcount<3\relax \def\emailflag{.}% \advance\emailcount by 1\relax @@ -961,14 +832,12 @@ \fi \l@@info{Post-scriptum defini}% \noindent\lettre@t{#1}{#2\\}\vfill\penalty-100\relax}% -% \def\cc#1{\penalty100\relax \if@letter \vskip\csname letter\the\c@lettre\endcsname mm \fi \l@@info{Copies declarees}% \noindent\lettre@t{\ccname}{#1\\}\vfill\penalty-100\relax}% -% \def\encl#1{\penalty100\relax \if@letter \vskip\csname letter\the\c@lettre\endcsname mm @@ -981,26 +850,21 @@ \fi \l@@info{Annexes mentionnees}% \noindent\lettre@t{\mentionname\\}{~}\vfill\penalty-100\relax}% -% -% **************************************** -% * DEFINITIONS DEPENDANT DU LANGAGE * -% **************************************** -% \def\FAXSTR{\fontfamily{cmdh}\fontseries{m}\fontshape{n}\selectfont}% \def\FRANCAIS{francais} \def\francais{% - \ifx\defaultlanguage\FRANCAIS\else\l@@info{Langage modifie: francais}\fi% - \ifx\undefined\frenchname\else % style french loaded + \ifx\defaultlanguage\FRANCAIS\else\l@@info{Langage modifie: francais}\fi + \ifx\undefined\frenchname\else \french \fi - \ifx\undefined\extrasfrancais\else % style babel and French language loaded + \ifx\undefined\extrasfrancais\else \selectlanguage{francais} \reset@frenchitemize \fi \sigflag=0\relax \def\cejour{le - \ifx\ier\undefined\def\ier{er}\fi - \ifnum\day=1\relax 1\ier\else \number\day\fi + \ifnum\day=1\space 1\ifx\ier\undefined er\else\expandafter\ier\fi + \else\number\day\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 @@ -1027,11 +891,11 @@ }% \def\ROMAND{romand} \def\romand{% - \ifx\defaultlanguage\ROMAND\else\l@@info{Langage modifie: romand}\fi% - \ifx\undefined\frenchname\else % style french loaded + \ifx\defaultlanguage\ROMAND\else\l@@info{Langage modifie: romand}\fi + \ifx\undefined\frenchname\else \french \fi - \ifx\undefined\extrasfrancais\else % style babel and French language loaded + \ifx\undefined\extrasfrancais\else \selectlanguage{francais} \reset@frenchitemize \fi @@ -1065,11 +929,11 @@ }% \def\ANGLAIS{anglais} \def\anglais{% - \ifx\defaultlanguage\ANGLAIS\else\l@@info{Langage modifie: anglais}\fi% - \ifx\undefined\frenchname\else % style french loaded + \ifx\defaultlanguage\ANGLAIS\else\l@@info{Langage modifie: anglais}\fi + \ifx\undefined\frenchname\else \english \fi - \ifx\undefined\extrasenglish\else % style babel and English language loaded + \ifx\undefined\extrasenglish\else \selectlanguage{english} \fi \sigflag=1\relax @@ -1100,10 +964,10 @@ \def\AMERICAIN{americain} \def\americain{% \ifx\defaultlanguage\AMERICAIN\else\l@@info{Langage modifie: americain}\fi% - \ifx\undefined\frenchname\else % style french loaded + \ifx\undefined\frenchname\else \english \fi - \ifx\undefined\extrasenglish\else % style babel and English language loaded + \ifx\undefined\extrasenglish\else \selectlanguage{english} \fi \sigflag=1\relax @@ -1133,8 +997,8 @@ }% \def\ALLEMAND{allemand} \def\allemand{% - \ifx\defaultlanguage\ALLEMAND\else\l@@info{Langage modifie: allemand}\fi% - \ifx\undefined\extrasgerman\else % style babel and German language loaded + \ifx\defaultlanguage\ALLEMAND\else\l@@info{Langage modifie: allemand}\fi + \ifx\undefined\extrasgerman\else \selectlanguage{german} \fi \sigflag=1\relax @@ -1163,14 +1027,6 @@ \def\vrefname{Ihr Zeichen~} \def\nrefname{Unser Zeichen~} }% -% -%************************************************************************ -% -% \document redefini pour ecrire '\startlabels' sur le fichier .etq -% et executer \@startlabels. -% -%************************************************************************ -% \AtBeginDocument{% \makeatletter \@input{\jobname.tns}% @@ -1188,13 +1044,6 @@ \fi \makeatother }% -% -%************************************************************************ -% -% \enddocument redefini pour sortir la page d'etiquettes, si necessaire. -% -%************************************************************************ -% \AtEndDocument{% \l@@info{Nombre de lettres :\the\c@lettre}% \l@@info{Nombre de telefax :\the\c@telefax}% @@ -1216,12 +1065,6 @@ \fi \endgroup }% -% -% **************************************** -% * STYLES DE PAGE * -% **************************************** -% -% \def\@texttop{\ifnum\c@page=1\vskip 0pt plus .00001fil\relax\fi}% % \if@twoside @@ -1284,11 +1127,6 @@ \def\@oddfoot{\textrm{\hfill\thepage\hfill}}% \def\@evenhead{}% \def\@evenfoot{\textrm{\hfill\thepage\hfill}}}% -% -% **************************************** -% * CENTER et FLUSHLEFT * -% **************************************** -% \def\normalcenter{\trivlist \normalcentering\item[]}% \def\lettercenter{\trivlist \lettercentering\item[]}% \def\normalcentering{\let\\=\@centercr\rightskip\@flushglue @@ -1308,11 +1146,6 @@ \@rightskip\@flushglue\rightskip\@rightskip \parindent\z@}% \let\endflushleft=\endtrivlist -% -% **************************************** -% * LISTES * -% **************************************** -% \def\reset@frenchitemize{% \renewenvironment{itemize}% {\begin{list}{\textendash}% @@ -1377,17 +1210,14 @@ \def\labelenumiv{\Alph{enumiv}.}% \def\theenumiv{\Alph{enumiv}}% \def\p@enumiv{\p@enumiii\theenumiii}% -% \def\verse{\let\\=\@centercr \list{}{\itemsep\z@ \itemindent -15pt\listparindent \itemindent \rightmargin\leftmargin\advance\leftmargin 15pt}\item[]}% \let\endverse\endlist -% \def\quotation{\list{}{\listparindent 1.5em% \itemindent\listparindent \rightmargin\leftmargin}\item[]}% \let\endquotation=\endlist -% \def\quote{\list{}{\rightmargin\leftmargin}\item[]}% \let\endquote=\endlist % @@ -1396,11 +1226,6 @@ \labelwidth\listmargin \advance\labelwidth -\labelsep \let\makelabel\descriptionlabel}}% \let\enddescription\endlist -% -% **************************************** -% * DIVERS * -% **************************************** -% \def\@begintheorem#1#2{\itshape \trivlist \item[\hskip \labelsep{\bfseries #1\ #2}]}% \def\@endtheorem{\endtrivlist}% % @@ -1412,14 +1237,8 @@ \doublerulesep 2pt% \tabbingsep\labelsep \skip\@mpfootins=\skip\footins -% -\fboxsep = 3pt % Space left between box and text by \fbox and \framebox. -\fboxrule = .4pt % Width of rules in box made by \fbox and \framebox. -% -% **************************************** -% * FOOTNOTES * -% **************************************** -% +\fboxsep = 3pt +\fboxrule = .4pt \def\footnoterule{\kern-1\p@ \hrule width .4\columnwidth \kern .6\p@}% @@ -1427,11 +1246,6 @@ \long\def\@makefntext#1{\parindent 1em\noindent \hb@xt@1.8em{% \hss\@textsuperscript{\normalfont\@thefnmark}}#1}% -% -% **************************************** -% * INITIALISATIONS DES DEFAUTS * -% **************************************** -% \def\pict@let@width{185}% \def\pict@let@height{65}% \def\pict@let@hoffset{0}% @@ -1475,9 +1289,6 @@ \pagenumbering{arabic}% \raggedbottom \onecolumn -% -% Initialisations des variables de la lettre -% \def\pdate{\cejour}% % \def\emailnum{}% @@ -1524,5 +1335,4 @@ % \def\bdp{}% \endinput -%% -%% End of file `lettre.cls'. +% End of file `lettre.cls'. |