%%% suletter.sty - Stanford letterhead style (for letter class)
%%  1995/10/23 - Convert to LaTeX2e, add Stanford logo
%% 1999/11/29 - modified to make more general (Emma Pease)
%% 2000/03/18 - added black and white logo option bw-logo (Christoper Manning)
%% 2000/09/01 - put in no-logo and britdate options (Christopher Manning)

% What the user can define:
% \mailcode{mailcode}  
% \zipcode{zipcode}  only define if not in 94305
% \address{855 Serra Street\\ Stanford University\\ Stanford, CA 94305-4115}
%  \address supercedes \location, \department, and \telephone
% \location{Room 374}  acts as a modifier to the Standard Institutional address
% \department{Department of XXX}  department name
% \telephone{phone number}  default is Stanford Directory Infor
% \name{Sender's name}  required

% Class options:
% color-logo: print the logo in color
% bw-logo: print the logo in black and white, not color
% no-logo: include no logo nor ``Stanford University'' text -- for printing
%               on real letterhead
% addressright: Place your address indented to right with date, not on
%               the left margin
% britdate: format the address day month year, not month day, year

\NeedsTeXFormat{LaTeX2e}
\ProvidesPackage{suletter}[2000/09/01 Stanford letterhead]
\RequirePackage[dvips]{graphicx}

\def\logo{                      %create Logo and from address
\null\vspace{-120pt}\begingroup
\centerline{\sulogo}
\vspace{10pt}
\centerline{\large\bf STANFORD UNIVERSITY}
\centerline{\small\rm STANFORD, CALIFORNIA 
\ifx \mailcodenum\@empty \zipcodenum \else \zipcodenum--\mailcodenum\fi}
\endgroup\par}

\def\completeaddress{\hbox{\vtop{\hsize=.6\textwidth\small\rm%
                   \fromaddress}}\hfill
                   \hbox{\@date}}

% you might want to set this default depending on your printer
\def\sulogo{\includegraphics[width=0.75in, height=0.75in]{sulogobw.eps}}

%+cm
\DeclareOption{color-logo}{\def\sulogo
        {\includegraphics[width=0.75in, height=0.75in]{sulogo.eps}}}
\DeclareOption{bw-logo}{\def\sulogo
        {\includegraphics[width=0.75in, height=0.75in]{sulogobw.eps}}}
\DeclareOption{no-logo}{\def\logo{}}
\DeclareOption{addressright}{\def\completeaddress{\hspace*{\longindentation}
\parbox{\indentedwidth}{\raggedright {\small\rm%
                   \fromaddress}\\[2ex]
                   \mbox{\@date}}}}
\DeclareOption{britdate}{\renewcommand*{\today}{\number\day\space
   \ifcase\month\or
   January\or February\or March\or April\or May\or June\or
   July\or August\or September\or October\or November\or December\fi
   \space\number\year}}

\ProcessOptions

% increase the indent for right stuff a little to 55%
\longindentation=.55\textwidth
\indentedwidth=\textwidth
\advance\indentedwidth -\longindentation
%-cm

\newcommand*{\department}[1]{\def\deptname{#1}}
\newcommand*{\mailcode}[1]{\def\mailcodenum{#1}}
\newcommand*{\zipcode}[1]{\def\zipcodenum{#1}}

\mailcode{}
\zipcode{94305}
\department{Stanford University}
\telephone{650-723-2300}

%customization for letter format
\oddsidemargin   25pt      % Left margin on odd-numbered pages.
\evensidemargin  25pt      % Left margin on even-numbered pages.
\textwidth 417pt
\topmargin -6pt

\ifx\fromaddress\@empty         %create default address
                \def\fromaddress{\fromname \\
                  Stanford University
                  \ifx\deptname\@empty     \else \\ \deptname \fi
                  \ifx\fromlocation\@empty \else \\ \fromlocation \fi
                  \\ Stanford, CA \ifx \mailcodenum\@empty \zipcodenum \else \zipcodenum--\mailcodenum\fi
                  \ifx\telephonenum\@empty \else \\ \telephonenum \fi}
\fi




\def\ps@headings{\def\@oddhead{\rm To \ignorespaces\toname \hfil \today
    \hfil Page \thepage}\def\@oddfoot{}}

\def\@texttop{\vskip 0pt}

\def\opening#1{\logo            %Create all up to start of
                                        % text
   \vspace{12pt}
   \completeaddress\par
  \thispagestyle{empty} 
  \vspace{\parskip}
  {\raggedright \toname \\ \toaddress \par}%
  \vspace{1.25\parskip}%
  #1\par\nobreak}