From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.comp.tex.context/17539 Path: main.gmane.org!not-for-mail From: Hans Hagen Newsgroups: gmane.comp.tex.context Subject: Re: m-letter.tex Date: Wed, 15 Dec 2004 23:42:11 +0100 Message-ID: <41C0BDC3.5070002@wxs.nl> References: <41BEE699.8090101@hoki.ibp.fhg.de> Reply-To: mailing list for ConTeXt users NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="------------090703050102060403040200" X-Trace: sea.gmane.org 1103189129 13969 80.91.229.6 (16 Dec 2004 09:25:29 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Thu, 16 Dec 2004 09:25:29 +0000 (UTC) Original-X-From: ntg-context-bounces@ntg.nl Thu Dec 16 10:25:20 2004 Return-path: Original-Received: from ronja.vet.uu.nl ([131.211.172.88] helo=ronja.ntg.nl) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1Cersu-0000JQ-00 for ; Thu, 16 Dec 2004 10:25:20 +0100 Original-Received: from localhost (localhost.localdomain [127.0.0.1]) by ronja.ntg.nl (Postfix) with ESMTP id B84D9127AE; Thu, 16 Dec 2004 10:25:19 +0100 (CET) Original-Received: from ronja.ntg.nl ([127.0.0.1]) by localhost (ronja.vet.uu.nl [127.0.0.1]) (amavisd-new, port 10024) with LMTP id 07395-02; Thu, 16 Dec 2004 10:25:19 +0100 (CET) Original-Received: from ronja.vet.uu.nl (localhost.localdomain [127.0.0.1]) by ronja.ntg.nl (Postfix) with ESMTP id C7306127B1; Thu, 16 Dec 2004 09:52:42 +0100 (CET) Original-Received: from localhost (localhost.localdomain [127.0.0.1]) by ronja.ntg.nl (Postfix) with ESMTP id 4A10812799 for ; Thu, 16 Dec 2004 09:52:39 +0100 (CET) Original-Received: from ronja.ntg.nl ([127.0.0.1]) by localhost (ronja.vet.uu.nl [127.0.0.1]) (amavisd-new, port 10024) with LMTP id 06805-01 for ; Thu, 16 Dec 2004 09:52:33 +0100 (CET) Original-Received: from mailrelay01.solcon.nl (unknown [212.45.32.200]) by ronja.ntg.nl (Postfix) with ESMTP id 72E921279D for ; Thu, 16 Dec 2004 09:52:32 +0100 (CET) Original-Received: from server-1.pragma-net.nl (dsl-212-84-128-085.solcon.nl [212.84.128.85]) by mailrelay01.solcon.nl (8.12.11/SQL-8.12.11-5/8.12.11) with ESMTP id iBG8qUNM020221 for ; Thu, 16 Dec 2004 09:52:30 +0100 Original-Received: by server-1.pragma-net.nl (Postfix, from userid 65534) id 3224217D12; Thu, 16 Dec 2004 09:52:10 +0100 (CET) Original-Received: from [10.100.1.191] (unknown [10.100.1.191]) by server-1.pragma-net.nl (Postfix) with ESMTP id 06C2717C19 for ; Thu, 16 Dec 2004 08:52:09 +0000 (UTC) User-Agent: Mozilla Thunderbird 0.8 (Windows/20040913) X-Accept-Language: en-us, en Original-To: mailing list for ConTeXt users In-Reply-To: <41BEE699.8090101@hoki.ibp.fhg.de> X-Virus-Scanned: ClamAV 0.80/540/Tue Oct 19 14:59:23 2004 clamav-milter version 0.80j on mailrelay01 X-Virus-Status: Clean X-Virus-Scanned: by amavisd-new at ntg.nl X-BeenThere: ntg-context@ntg.nl X-Mailman-Version: 2.1.5 Precedence: list List-Id: mailing list for ConTeXt users List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: ntg-context-bounces@ntg.nl Errors-To: ntg-context-bounces@ntg.nl X-Virus-Scanned: by amavisd-new at ntg.nl Xref: main.gmane.org gmane.comp.tex.context:17539 X-Report-Spam: http://spam.gmane.org/gmane.comp.tex.context:17539 This is a multi-part message in MIME format. --------------090703050102060403040200 Content-Type: text/plain; charset=ISO-8859-1; format=flowed Content-Transfer-Encoding: quoted-printable Wolfgang Zillig wrote: | > is someone using the letter module as mentioned in xcorresp.pdf (the=20 > correspondence manual)? still kin dof work in progress > There is written that the layout is defined in a file "m-letter.tex". I= =20 > can=B4t find this file and the examples from the manual are not working= too. >=20 > Is there an example file for the use of this module? starttext \setups [letter:place] \stoptext \endinput Hans ----------------------------------------------------------------- Hans Hagen | PRAGMA ADE Ridderstraat 27 | 8061 GH Hasselt | The Netherlands tel: 038 477 53 69 | fax: 038 477 53 74 | www.pragma-ade.com | www.pragma-pod.nl ----------------------------------------------------------------- --------------090703050102060403040200 Content-Type: application/x-tex; name="m-letter.tex" Content-Disposition: inline; filename="m-letter.tex" Content-Transfer-Encoding: quoted-printable %D \module %D [ file=3Dm-letter, %D version=3D2002.01.05, % was docs-bri: 1995.10.10, %D title=3D\CONTEXT\ Extra Modules, %D subtitle=3DFramework for Letters, %D author=3DJ. Hagen, %D date=3D\currentdate, %D copyright=3D{PRAGMA / Hans Hagen \& Ton Otten}] %C %C This module is part of the \CONTEXT\ macro||package and %C is therefore copyrighted by \PRAGMA. See mreadme.pdf for %C details. %D This is a preliminary module. \usemodule[b][letter] %D Layout: \setuplayout [grid=3Dyes, topspace=3D2cm, bottomspace=3D2cm, backspace=3D2cm, header=3D0pt, footer=3D1cm, width=3Dmiddle, height=3Dmiddle] \startmode[*letter] \setuplayout [topspace=3D1in, bottomspace=3D1in, backspace=3D1in, footer=3D1in] \stopmode \setupwhitespace [big] %D Color \setupcolors [state=3Dstart] %D Components - Address \setvariables [letter:address] [line=3D3, hoffset=3D0pt, width=3D25em, noflines=3D10] \definelayer [address] [method=3Dtext, location=3Dgrid, width=3D\textwidth, height=3D\getvariable{letter:address}{noflines}\lineheight] \startsetups [letter:place:address] \setlayer [address] [line=3D\getvariable{letter:address}{line}, hoffset=3D\getvariable{letter:address}{hoffset}] {\vtop {\hsize\getvariable{letter:address}{width} \setups[letter:address]}} % we need to use the [page] directive because layers % (in grid mode) compensate for the topskip, as does % the page key in the snapper \snaptogrid[page]\vbox{\placelayer[address]} \stopsetups %D Components - Reference % todo: noflines=3D3 when no reference \setvariables [letter:reference] [line=3D1, noflines-min=3D2, noflines-max=3D5, noflines=3D\getvariable{letter:reference}{noflines-max}] \definelayer [reference] [method=3Dtext, location=3Dgrid, width=3D\textwidth, height=3D\getvariable{letter:reference}{noflines}\lineheight] \startsetups [letter:place:reference] \doifelsenothing{\getvariable{letter:data}{concerns} \getvariable{letter:data}{subject}} {\setvariables[letter:reference][noflines=3D\getvariable{letter:refer= ence}{noflines-min}]} {\setvariables[letter:reference][noflines=3D\getvariable{letter:refer= ence}{noflines-max}]} \setlayer [reference] [line=3D\getvariable{letter:reference}{line}] {\vtop {\hsize\textwidth \setups[letter:reference]}} % we need to use the [page] directive because layers % (in grid mode) compensate for the topskip, as does % the page key in the snapper \snaptogrid[page]\vbox{\placelayer[reference]} \stopsetups %D Components - Opening \startsetups [letter:place:opening] \endgraf \setups[letter:opening] \endgraf \stopsetups %D Components - Content \startsetups[letter:place:content] \endgraf \setups[letter:content] \endgraf \stopsetups %D Components - Closing \startsetups [letter:place:closing] \endgraf \setups[letter:closing] \endgraf \stopsetups %D Components - Appendices \startsetups[letter:place:appendices] \endgraf \setups[letter:appendices] \endgraf \stopsetups %D Components - Head \setvariables [letter:head] [graphic=3D] % [graphic=3Dkoe.pdf] \setupbackgrounds [page] [background=3D{graphic,letternext,lettermain}] % next before main, perm= its common ornaments \definelayer [lettermain] [width=3D\paperwidth, height=3D\paperheight] \definelayer [letternext] [state=3Dnext, width=3D\paperwidth, height=3D\paperheight] \defineoverlay [graphic] [\doifsomething{\getvariable{letter:head}{graphic}} {\overlayfigure{\getvariable{letter:head}{graphic}}}] %D Dummies \startsetups[letter:test] \startlocalsetups [letter:head] % nothing \stoplocalsetups \startlocalsetups[letter:address] A Fancy Name \endgraf A Nice Address \endgraf The Place To Go \stoplocalsetups \startlocalsetups[letter:reference] \rightaligned{\currentdate} \stoplocalsetups \startlocalsetups[letter:opening] Hi There, \stoplocalsetups \startlocalsetups[letter:content] \dorecurse{2}{\input tufte \blank} \stoplocalsetups \startlocalsetups[letter:closing] That Was Me \stoplocalsetups \startlocalsetups[letter:appendices] % nothing \stoplocalsetups \stopsetups %D Initialization \startsetups [letter:initialize] \noheaderandfooterlines \setuppagenumber[number=3D1] \stopsetups \startsetups [letter:finish] \page \stopsetups %D Plug in \setvariables [letter:style] [opening=3Dinformal, % formal unknown (ls) closing=3Dinformal, % formal alternative=3D] % just a key %D The Letter \startsetups [letter:place] \resetlayer[lettermain] \resetlayer[letternext] \setuplayer[letternext]= [state=3Dnext] \setups [letter:initialize] \setups [letter:alternative:\getvariable{letter:style}{alternative}] \setups [letter:sequence] \setups [letter:finish] \stopsetups \startsetups [letter:sequence] \dontcomplain \blank[synchronize] \setups [letter:place:head] \endgraf \setups [letter:place:address] \endgraf \setups [letter:place:reference] \endgraf \setups [letter:place:opening] \endgraf \setups [letter:place:content] \page[no] \setups [letter:place:closing] \endgraf \setups [letter:place:appendices] \endgraf \stopsetups %D Test % \starttext \setups [letter:place] \stoptext \endinput %D Interface \startsetups [letter:head] % nothing \stopsetups \setvariables [letter:data] [address=3D] \startsetups[letter:address] \def\\{\endgraf}\getvariable{letter:data}{address} \stopsetups \setvariables [letter:data] [subject=3D, date=3D, concerns=3D, residence=3D, reference=3D] \def\SomeTableEntry#1% {\doiftext{\labeltext{letter:table:#1}} {\NC\labeltext{letter:table:#1}\EQ\getvariable{letter:data}{#1}\NC\N= R}} \startsetups[letter:reference:table] \setuptabulate[before=3D,after=3D] \blank[synchronize] \starttabulate[|l|p|] \SomeTableEntry {concerns} \SomeTableEntry {date} \SomeTableEntry {subject} \SomeTableEntry {reference} \stoptabulate \stopsetups \startsetups[letter:reference] \doifsomething{\getvariable{letter:data}{concerns} \getvariable{letter:data}{subject}} {\setups[letter:reference:table] \blank} \doifsomething{\getvariable{letter:data}{residence}} {\noindent \hbox to \hsize {\hss \getvariable{letter:data}{residence},\space \getvariable{letter:data}{date}}} \stopsetups \setvariables [letter:data] [opening=3D, initials=3D, prefix=3D, suffix=3D, informalname=3D, formalname=3D] \startsetups[letter:opening:unknown] \labeltext{letter:opening:unknown}, \stopsetups \startsetups [letter:opening:informal] \doifelsenothing{\getvariable{letter:data}{informalname}} {\labeltext{letter:opening:unknown}} {\labeltext{letter:opening:informal}\space \getvariable{letter:data}{informalname}}, \stopsetups \startsetups [letter:opening:formal] \doifelsenothing{\getvariable{letter:data}{formalname}} {\labeltext{letter:opening:unknown}} {\labeltext{letter:opening:formal}\space \doifsomething{\getvariable{letter:data}{prefix}} {\getvariable{letter:data}{prefix}\space}% \getvariable{letter:data}{formalname}}, \stopsetups \startsetups[letter:opening] \setups[letter:opening:\getvariable{letter:style}{opening}] \stopsetups \setvariables [letter:data] [content=3D{\getbuffer[texletter]}] \def\startlettercontent {\startbuffer[texletter][startlettercontent][stoplettercontent]} \startsetups[letter:content] \getvariable{letter:data}{content} \stopsetups \setvariables [letter:data] [author=3D, greeting=3D] \startsetups[letter:closing:informal] \blank \doifelsenothing{\getvariable{letter:data}{greeting}} {\noindent\labeltext{letter:greeting:informal}} {\noindent\getvariable{letter:data}{greeting}}, \blank \noindent\getvariable{letter:data}{author} \stopsetups \startsetups[letter:closing:formal] \blank \doifelsenothing{\getvariable{letter:data}{greeting}} {\noindent\labeltext{letter:greeting:formal}} {\noindent\getvariable{letter:data}{greeting}}, \blank \noindent\getvariable{letter:data}{author} \stopsetups \startsetups[letter:closing] \setups[letter:closing:\getvariable{letter:style}{closing}] \stopsetups \setvariables [letter:data] [appendices=3D] \startsetups[letter:appendices] \getvariable{letter:data}{appendices} \stopsetups %D Labels \setuplabeltext [nl] [%letter:appendices=3Dbijlage(n) : , letter:subject=3Dhet onderwerp, letter:opening:formal=3DGeachte, letter:opening:informal=3DBeste, letter:opening:unknown=3DLS, letter:name:unknown=3Dlezer, letter:greeting:informal=3DEen vriendelijke groet, letter:greeting:formal=3DHoogachtend] \setuplabeltext [en] [%letter:appendices=3Dappendices : , letter:subject=3Dthe topic, letter:opening:formal=3DDear, letter:opening:informal=3DDear, letter:opening:unknown=3DLS, letter:name:unknown=3Dreader, letter:greeting:informal=3DRegards, letter:greeting:formal=3DSincerely yours] \setuplabeltext [de] [%letter:appendices=3DBeilagen : , letter:subject=3Ddas Kennzeichen, letter:opening:formal=3DSehr Geehrte, letter:opening:informal=3DHallo, letter:opening:unknown=3DLS, letter:name:unknown=3DLeser, letter:greeting:informal=3DMit freundlichen Gr=81{\SS}en, letter:greeting:formal=3DHochachtungsvoll] %D A few more: \setuplabeltext [nl] [letter:table:concerns=3Dbetreft, letter:table:date=3Ddatum, letter:table:subject=3Dkenmerk, letter:table:reference=3Dreferentie] \setuplabeltext [en] [letter:table:concerns=3Dconcerns, letter:table:date=3Ddate, letter:table:subject=3Dsubject, letter:table:reference=3Dreference] %D Test \usemodule[a][letter] \endinput % \starttext \setups [letter:place] \stoptext \endinput --------------090703050102060403040200 Content-Type: text/plain; charset="us-ascii" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Disposition: inline _______________________________________________ ntg-context mailing list ntg-context@ntg.nl http://www.ntg.nl/mailman/listinfo/ntg-context --------------090703050102060403040200--