Re: LaTeX emulation

["Peter Münster" <pmlists@free.fr>]

On Wed, 18 May 2005, Maurice Diamantini wrote:

> What kind of stuff do we need for, say, an "article" LaTeX class?

Hello,
I like the LaTeX-KOMA-classes. Here some setups, that I used for my
brother's thesis:

\doifmodeelse{A4}{%
  \setuppapersize[A4]\setupbodyfont[12pt]}{%
  \setuppapersize[A5]\setupbodyfont[9pt]}
\setupheader[style=\it]
\setuphead[chapter,title][header=nomarking]
\setupindenting[small]
\define[1]\LeftAligned{\startalignment[right,broad]#1\stopalignment}
\setuphead[title,chapter,section,subsection,subsubsection][%
  textcommand=\LeftAligned,textstyle=bold,numberstyle=bold]
\setuplist[chapter][style=bold,before=\blank]
\setupcombinedlist[content][alternative=c]
\setuppagenumbering[location=footer]
\definemakeup[title][standard,align=middle]
\setupbodyfontenvironment[default][em=italic]
\doifmodeelse{oneside}{\setupheadertexts[chapter]}{%
  \setupheadertexts[][section][chapter][]
  \setuppagenumbering[alternative=doublesided]}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% This is an emulation of \usepackage[DIVcalc]{typearea} in LaTeX.
\def\BCOR{3mm}% eventual binding correction
 newdimen\PageWidth \PageWidth=\paperwidth
\doifmode{BCOR}{\PageWidth=\dimexpr(\PageWidth-\BCOR)}
\edef\Ratio{\withoutpt{\the\dimexpr(2\paperheight/(\PageWidth/32768))}}
\setbox\scratchbox\hbox{\dorecurse{26}{\character\recurselevel}}
\newdimen\Width \newdimen\Height \newdimen\Back
\Width=\dimexpr(2.6\wd\scratchbox) \Height=\dimexpr(\Ratio\Width)
\doifmodeelse{oneside}{\Back=\dimexpr((\PageWidth - \Width) / 2)}%
  {\Back=\dimexpr((\PageWidth - \Width) / 3)}
\doifmode{BCOR}{\Back=\dimexpr(\Back + \BCOR)}
\edef\Top{\the\dimexpr((\paperheight - \Height) / 3 - 3\lineheight)}
\Height=\dimexpr(\Height + 8\lineheight)
\setuplayout[backspace=\the\Back,height=\the\Height,width=\the\Width,
  header=2\lineheight,headerdistance=\lineheight,
  footer=2\lineheight,footerdistance=3\lineheight,topspace=\Top]
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\setupalign[line]
\def\upperrightdoublesixquote{\kern-.125em``}% german quotes
\def\emph#1{{\em#1}}
\def\texttwosuperior{$^2$}
\setupcaptions[width=\makeupwidth,
  style={\switchtobodyfont[small]\setupinterlinespace}]

Cheers, Peter

-- 
http://pmrb.free.fr/contact/