%b. PAV specific macros for Hevea

\input{white.hva}

\let\TOPMAT\relax
\def\code{\tt}
\def\endcode{\rm}%

% my mailto tag
\renewcommand\mailto[1]{\@print{<A HREF="mailto:}#1\@print{">}\texttt{#1}\@print{</A>}}

%\pound macro
\def\pound{\@print{#}}

% \Tilde macro for use in url's only!
% NB: capital-T tilde: the lowercase one is the math accent
\def\Tilde{\@print{~}}

% macros for my letters and memos
% specials control for letterhead an envelopes
\newenvironment{envelope}{\begin{latexonly}}{\end{latexonly}}
\newenvironment{letthd}{\begin{latexonly}}{\end{latexonly}}
%
% memo macros
\newenvironment{memoto}{TO: \@nostyle{\@print{&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;}}}{}
\newenvironment{memosubj}{SUBJECT: }{\par\par}
\newenvironment{memodate}{DATE: \@nostyle{\@print{&nbsp;&nbsp;&nbsp;}}}{}
\newenvironment{memocc}{Cc: \@nostyle{\@print{&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;}}}{}
\newenvironment{memoencl}{Encl: \@nostyle{\@print{&nbsp;&nbsp;&nbsp;}}}{}
\newenvironment{memofrom}{From: \@nostyle{\@print{&nbsp;&nbsp;&nbsp;}}}{}
%
% letter macros
\newenvironment{letterdate}{}{}
\newenvironment{letterto}{}{}
\newenvironment{letterclosing}{}{}
\newenvironment{lettersign}{}{}
\newenvironment{letterps}{PS: }{}
\newenvironment{lettercc}{Cc: }{}
\newenvironment{letterencl}{Encl: }{}
\newenvironment{letteropening}{}{}

% this makes labels in the description environment come out bold
\renewenvironment{list}[3][!*!]
  {\ifthenelse{\equal{#1}{!*!}}{\@open{DL}{COMPACT=compact}}{\@open{DL}{}}%open
  \renewcommand{\item}[1][#2]{\@dt{##1}}%
  \@forcecommand{\makelabel}[1]{\bf ##1}%
  #3%exec
}{\@close{DL}}

