Changes

Jump to navigation Jump to search
7,205 bytes added ,  04:13, 19 November 2008
no edit summary
Any feedback welcome. I'm not sure if the \long\defs for the several parts of the letters are very elegant and would be grateful if some of the moew knowledgeable folks could suggest something better. But overall, I like the simplicity of this style.
 
 
== Another Simple Style ==
 
<texcode>
%Context Environment for a basic Full Block Letter with Letterhead
\enableregime [utf]
\mainlanguage [en]
 
%==============Setup Page Layout======================
\def\MyPageNumber#1%
{{--~Page #1 / \lastpage~--}}%use lastpage for total page count
\setuppagenumbering[location={footer,middle},command=\MyPageNumber]
\setuppapersize[letter][letter]
\usetypescript[palatino]
\setupbodyfont[palatino,10pt,rm]
\setuplayout[
topspace=1.7in,
backspace=1.5in,
header=0mm,
footer=.25in,
width=5.5in,
height=8.55in]
\useexternalfigure[logo][letterheadLG][width=\makeupwidth,height=.7in]
\setupbackgrounds
[page]
[background={Letterhead,NextPgHead},state=repeat]
\definelayer[Letterhead]
[x=1.5in,y=1in,width=\makeupwidth,height=.7in,state=start]
\setlayerframed[Letterhead]
[corner={top,left},location={bottom,right},frame=off]
[offset=none,frame=off]
{\externalfigure[logo]}
\definelayer[NextPgHead]
[x=1.5in,y=1in,width=\makeupwidth,height=.7in,state=continue]
 
 
%==============Setup Paragraph Formatting==============
\setupwhitespace[big]
\setupindenting[no,medium,next]
 
%=================Define Letter Elements==================
 
\defineblank[FourLines][4*line,flexible]
\defineblank[OneLine][1*line,flexible]
 
\def\Regarding#1{\setgvariables[Letter][val={Re: #1}]Re: #1}
\def\RecNameVal{}
\def\RecName#1{
\def\RecNameVal{#1}
\setlayerframed[NextPgHead]
[corner={top,left},location={bottom,right},frame=off]
[offset=none,frame=off]
{\framed[frame=off,width=\makeupwidth,height=.7in,align={right,high}]%
{{\setupinterlinespace \RecNameVal\par
\setupinterlinespace\date\par
\setupinterlinespace\getvariable{Letter}{val}\par}}}
#1}
 
\long\def\MailingNote#1{\WORD{#1}\par}%
\long\def\Disposition#1{\WORD{#1}}%
\define[1]\Opening{#1:\blank[OneLine]}%
\define[1]\Closing{#1,\blank[FourLines]}%
\define[1]\Signature{#1\blank[OneLine]}%
\define[1]\Enclosures{\doifelse{#1}{1}{Enclosure}{Enclosures: #1}\blank[OneLine]}%
\definedescription[CC][location=left,distance=-.75in]
 
\definestartstop[Sender][before={\startlines},after={\stoplines\blank[FourLines]}]
\definestartstop[Notes][before={\startlines},after={\stoplines\blank[OneLine]}]
\definestartstop[Recipient][before={\startlines},after={\stoplines\blank[OneLine]}]
\definestartstop[Body][before={\startlines},after={\stoplines\blank[OneLine]}]
 
 
%=============Define Quotes====================
%just use \Qt{} and all nesting should be taken care of
\definedelimitedtext[Qt][quotation]
\setupdelimitedtext
[Qt]
[1]
[left={\symbol[leftquotation]},
right={\symbol[rightquotation]}]
 
\setupdelimitedtext
[Qt]
[2]
[left={\symbol[leftquote]},
right={\symbol[rightquote]}]
 
\setupdelimitedtext
[Qt]
[3]
[left={\symbol[leftquotation]},
right={\symbol[rightquotation]}]
 
%To create blockquotes use \startextract \stopextract
\defineblank[ExtractDistance][3pt]
\definestartstop[Extract][
style=italic,
before={\blank[ExtractDistance]
\setupnarrower[left=1.5pc,right=1.5pc]
\startnarrower[left,right]
\noindent},
after={\stopnarrower
\blank[ExtractDistance]
\indenting[next]}]%Don't indent the immediately following paragraph, but do indent later ones.
 
%==================Define Enumerations===========================
\defineitemgroup[Outline][5]%Use with \startOutline ... \item ... \stopOutline
\setupitemgroup[Outline][1][R]%First level, Roman Numerals
\setupitemgroup[Outline][2][A]%Second Level, A,B,C etc.
\setupitemgroup[Outline][3][n]%Third level, Numberd
\setupitemgroup[Outline][4][r][left=(,right=),stopper=]%Fourth level, lowercase roman
\setupitemgroup[Outline][5][m][left=(,right=),stopper=]%Fifth level, lowercase numbered
 
\defineitemgroup[Bullet][5]%Use with \startBullet ... \item ... \stopBullet
\setupitemgroup[Bullet][1][1]%First level
\setupitemgroup[Bullet][2][2]%Second Level
\setupitemgroup[Bullet][3][5]%Third level
\setupitemgroup[Bullet][4][1]%Fourth level
\setupitemgroup[Bullet][5][2]%Fifth level
</texcode>
 
And how to use it:
 
<texcode>
\environment basicLetterEnv
\starttext
\startSender
Company Name
Your Name, Your Title
1234 AnyStreet
City, ST 75098
Phone: 123-456-7890
Email: asdf@asdf.com
Web: www.asdf.com
\date
\Regarding{The subject of this letter}
\stopSender
 
\startNotes
\MailingNote{Certified Mail}%Mailing Notations:Certified,AirMail, Priority...
\Disposition{Confidential}%Disposition: Confidential, personal ...
\stopNotes
 
\startRecipient
\RecName{First Last Name}
Company Name
4567 ThisStreet
City, US 12345
\stopRecipient
 
\Opening{Dear First Name}
 
\startBody
Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Cras tellus. Proin fringilla euismod elit. Donec eleifend purus sed eros. Fusce quis diam. Donec euismod nisl non dui. Donec eu odio. Nam congue risus in eros commodo elementum. Duis dolor. Etiam luctus mauris ut mi. Vivamus vitae sem eu justo pretium ullamcorper. Aliquam ac mauris posuere justo molestie interdum. Nullam eleifend leo quis justo. Suspendisse tortor risus, porta a, hendrerit in, facilisis at, lectus.
 
Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Cras tellus. Proin fringilla euismod elit. Donec eleifend purus sed eros. Fusce quis diam. Donec euismod nisl non dui. Donec eu odio. Nam congue risus in eros commodo elementum. Duis dolor. Etiam luctus mauris ut mi. Vivamus vitae sem eu justo pretium ullamcorper. Aliquam ac mauris posuere justo molestie interdum. Nullam eleifend leo quis justo. Suspendisse tortor risus, porta a, hendrerit in, facilisis at, lectus.
 
Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Cras tellus. Proin fringilla euismod elit. Donec eleifend purus sed eros. Fusce quis diam. Donec euismod nisl non dui. Donec eu odio. Nam congue risus in eros commodo elementum. Duis dolor. Etiam luctus mauris ut mi. Vivamus vitae sem eu justo pretium ullamcorper. Aliquam ac mauris posuere justo molestie interdum. Nullam eleifend leo quis justo. Suspendisse tortor risus, porta a, hendrerit in, facilisis at, lectus.
 
Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Cras tellus. Proin fringilla euismod elit. Donec eleifend purus sed eros. Fusce quis diam. Donec euismod nisl non dui. Donec eu odio. Nam congue risus in eros commodo elementum. Duis dolor. Etiam luctus mauris ut mi. Vivamus vitae sem eu justo pretium ullamcorper. Aliquam ac mauris posuere justo molestie interdum. Nullam eleifend leo quis justo. Suspendisse tortor risus, porta a, hendrerit in, facilisis at, lectus.
 
Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Cras tellus. Proin fringilla euismod elit. Donec eleifend purus sed eros. Fusce quis diam. Donec euismod nisl non dui. Donec eu odio. Nam congue risus in eros commodo elementum. Duis dolor. Etiam luctus mauris ut mi. Vivamus vitae sem eu justo pretium ullamcorper. Aliquam ac mauris posuere justo molestie interdum. Nullam eleifend leo quis justo. Suspendisse tortor risus, porta a, hendrerit in, facilisis at, lectus.
\stopBody
 
\Closing{Sincerely}
 
 
\Signature{Your Name, General Counsel}
 
\Enclosures{1}
\startCC{CC:}
A Name\par
Another Name\par
File
\stopCC
 
\stoptext
</texcode>
Thanks to all those who contributed the original suggestions, they have been a great inspiration!
Anonymous user

Navigation menu