Simple letter macros
utzoo!decvax!duke!harpo!ihps3!stolaf!knight
utzoo!decvax!duke!harpo!ihps3!stolaf!knight
Thu Aug 12 14:58:38 AEST 1982
Since I haven't seen any so far, here are my letter-writing macros as
requested about a week ago. They're rather simple but serve my
purposes well. First page is not numbered. Futher explanation for
the uninitiated:
.ra -- Prints return address with current date if no
arguments, otherwise address with first three
argumetns, e.g.:
.ra August 12, 1982
.a3 -- Three-line address, first three arguments are the
first three lines, optional fourth argument is
printed after "Dear ". Automatically paragraphs
next line. ".a4" is the same, but for four lines.
.dt -- Print date; handles arguments like ".ra" above;
useful if writing a letter is often a multi-day
task, as it is for me.
.bq -- Begin quote, i.e. a section indented +5 on both
sides.
.of -- Print name after enough space for a signature.
.tg -- Tag; i.e., "Sincerely,"
.p1, .p2, .p3 -- Postscript, post-post, etc.
Argument is number of spaces
.pp -- Paragraph; space and indent 5.
.qp -- As above, but no space.
.sk -- A sample of how I include frequently-written to
addresses.
.~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
.de a3 \"THREE-LINE ADDRESS ~~~~~~~~~~~~~~~~~
.nf
\\$1
\\$2
\\$3
.if !'\\$4'' Dear \\$4,
.fi
.pp
..
.de a4 \"FOUR-LINE ADDRESS ~~~~~~~~~~~~~~~~~~
.nf
\\$1
\\$2
\\$3
\\$4
.if !'\\$5'' Dear \\$5,
.fi
.pp
..
.de bq \"BEGIN QUOTE ~~~~~~~~~~~~~~~~~~~~~~~~
.sp
.in 5
.ll 60
.ti +5
..
.de dt \"DATE ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
.sp 2
.ti +35
.ie '\\$1'' .TD
.el \\$1 \\$2 \\$3
.pp
..
.de eq \"END QUOTE ~~~~~~~~~~~~~~~~~~~~~~~~~~
.in 0
.ll 65
.sp
..
.de FO \"FOOTER ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'bp
..
.de HC \"HEADER CHECK ~~~~~~~~~~~~~~~~~~~~~~~
.if !\\n%-1 'sp 6
.if \\n%-1 .HD
..
.de HD \"HEADER ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'sp 3
.tl ''%''
'sp 2
..
.de of \"SIGN-OFF ~~~~~~~~~~~~~~~~~~~~~~~~~~~
.sp 4
.ti 35
Steve Knight
..
.de pp \"PARAGRAPH ~~~~~~~~~~~~~~~~~~~~~~~~~~
.ne 3
.sp
.ti +5
..
.de p1 \"POSTSCRIPT ~~~~~~~~~~~~~~~~~~~~~~~~~
.sp \\$1
P.S.:
.pp
.ns
..
.de p2 \"POST-POSTSCRIPT ~~~~~~~~~~~~~~~~~~~~
.sp
P.P.S.:
.pp
.ns
..
.de p3 \"POST-POST-POSTSCRIPT ~~~~~~~~~~~~~~~
.sp
P.P.P.S.:
.pp
.ns
..
.de ra \"RETURN ADDRESS ~~~~~~~~~~~~~~~~~~~~~
.in 35
.nf
Steve Knight
St. Olaf College
Northfield, MN 55057
.ie '\\$1'' .TD
.el \\$1 \\$2 \\$3
.fi
..
.de TD \"TODAY'S DATE ~~~~~~~~~~~~~~~~~~~~~~~
.if !\\n(mo-12 .ds MN December
.if !\\n(mo-11 .ds MN November
.if !\\n(mo-10 .ds MN October
.if !\\n(mo-9 .ds MN September
.if !\\n(mo-8 .ds MN August
.if !\\n(mo-7 .ds MN July
.if !\\n(mo-6 .ds MN June
.if !\\n(mo-5 .ds MN May
.if !\\n(mo-4 .ds MN April
.if !\\n(mo-3 .ds MN March
.if !\\n(mo-2 .ds MN February
.if !\\n(mo-1 .ds MN January
\\*(MN \\n(dy, 19\\n(yr
..
.de tg \"TAG ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
.sp
.ti 35
Sincerely,
..
.de qp \"PARAGRAPH WITHIN QUOTE (no space)~~~
.ne 3
.ti +5
..
.~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
.de sk \"STEVE KNIGHT
.nf
Steve Knight
St. Olaf College
Northfield, MN 55057
Dear Steve,
.fi
.pp
..
.~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
.po 5
.wh 0 HC
.wh -7 FO
.~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
More information about the Comp.sources.unix
mailing list