Letters in ConTeXt

Letters in ConTeXt

[Rolf Marvin Bøe Lindgren]

the one thing that stops my total conversion to ConTeXt is my lack of  
understanding of, er, context.  I've studied the manual  
"Corresponcence" which presupposes far better understanding of  
ConTeXt than I currently possess.  I imagine though that a useful  
short working example would help.

anyone?

-- 
Rolf Lindgren
roffe@extern.uio.no

Re: Letters in ConTeXt

[luigi scarso]

On 1/31/07, Rolf Marvin Bøe Lindgren <roffe@extern.uio.no> wrote:
> the one thing that stops my total conversion to ConTeXt is my lack of
> understanding of, er, context.  I've studied the manual
> "Corresponcence"
hmm, where is this manual ?

luigi

Re: Letters in ConTeXt

[Rolf Marvin Bøe Lindgren]

On 31. jan. 2007, at 5:39, luigi scarso wrote:

> On 1/31/07, Rolf Marvin Bøe Lindgren <roffe@extern.uio.no> wrote:
>> the one thing that stops my total conversion to ConTeXt is my lack of
>> understanding of, er, context.  I've studied the manual
>> "Corresponcence"
> hmm, where is this manual ?

http://www.pragma-ade.com/general/manuals/xcorresp.pdf

-- 
Rolf Lindgren
roffe@extern.uio.no

Re: Letters in ConTeXt

[Idris Samawi Hamid]

On Wed, 31 Jan 2007 11:16:21 -0700, Rolf Marvin Bøe Lindgren  
<roffe@extern.uio.no> wrote:

>
> On 31. jan. 2007, at 5:39, luigi scarso wrote:
>
>> On 1/31/07, Rolf Marvin Bøe Lindgren <roffe@extern.uio.no> wrote:
>>> the one thing that stops my total conversion to ConTeXt is my lack of
>>> understanding of, er, context.  I've studied the manual
>>> "Corresponcence"

Well, this is apparently an experimental module, as the 'x' signifies and  
the 'todo's at the end...

But the best thing to do is try the examples starting on page 12, look at  
chapters 3 and 4, and ignore the xml stuff.

Best
Idris

> http://www.pragma-ade.com/general/manuals/xcorresp.pdf

-- 
Professor Idris Samawi Hamid
Department of Philosophy
Colorado State University
Fort Collins, CO 80523

--
Using Opera's revolutionary e-mail client: http://www.opera.com/mail/
_______________________________________________
ntg-context mailing list
ntg-context@ntg.nl
http://www.ntg.nl/mailman/listinfo/ntg-context

Re: Letters in ConTeXt

[Idris Samawi Hamid]

On Wed, 31 Jan 2007 12:13:22 -0700, Idris Samawi Hamid  
<ishamid@colostate.edu> wrote:

>>> On 1/31/07, Rolf Marvin Bøe Lindgren <roffe@extern.uio.no> wrote:
>>>> the one thing that stops my total conversion to ConTeXt is my lack of
>>>> understanding of, er, context.  I've studied the manual
>>>> "Corresponcence"
>
> Well, this is apparently an experimental module, as the 'x' signifies and
> the 'todo's at the end...
>
> But the best thing to do is try the examples starting on page 12, look at
> chapters 3 and 4, and ignore the xml stuff.

Just tested: I think this module is not available, it presently calls  
\texmf\tex\plain\base\letter.tex which is wrong. m-letter.tex is nowhere  
to be found

Hans, is the actual module available?

Anyway,

http://wiki.contextgarden.net/Letter_style

may also be consulted.

Best
Idris

-- 
Professor Idris Samawi Hamid
Department of Philosophy
Colorado State University
Fort Collins, CO 80523

--
Using Opera's revolutionary e-mail client: http://www.opera.com/mail/
_______________________________________________
ntg-context mailing list
ntg-context@ntg.nl
http://www.ntg.nl/mailman/listinfo/ntg-context

Re: Letters in ConTeXt

[David Rogers]

The very simple example code given on Page 11 does not fail on my machine, though I don't know where to place my information.

David

Re: Letters in ConTeXt

[Rolf Marvin Bøe Lindgren]

On 31. jan. 2007, at 9:08, David Rogers wrote:

> The very simple example code given on Page 11 does not fail on my  
> machine, though I don't know where to place my information.

yes, that's one of the issues I have with the documentation :)
-- 
Rolf Lindgren
roffe@extern.uio.no

Re: Letters in ConTeXt

[David Rogers]

On Wed, 31 Jan 2007 22:30:27 +0100, Rolf Marvin Bøe Lindgren wrote:
> 
> On 31. jan. 2007, at 9:08, David Rogers wrote:
> 
>> The very simple example code given on Page 11 does not fail on my  
>> machine, though I don't know where to place my information.
> 
> yes, that's one of the issues I have with the documentation :)

I'm starting to think that if I make an XML contacts file as described, I might be able to get it to work. I promise to post anything useful I find, unless Hans or someone explains it first.

David

Re: Letters in ConTeXt

[Idris Samawi Hamid]

On Wed, 31 Jan 2007 14:50:07 -0700, David Rogers <davidrogers@telus.net>  
wrote:

> On Wed, 31 Jan 2007 22:30:27 +0100, Rolf Marvin Bøe Lindgren wrote:
>>
>> On 31. jan. 2007, at 9:08, David Rogers wrote:
>>
>>> The very simple example code given on Page 11 does not fail on my
>>> machine, though I don't know where to place my information.

check the log: it will probably say something about a missing module...

>> yes, that's one of the issues I have with the documentation :)
>
> I'm starting to think that if I make an XML contacts file as described,  
> I might be able to get it to work. I promise to post anything useful I  
> find, unless Hans or someone explains it first.

Well, m-letter is not in the distribution so...

This has been noted before eg

http://archive.contextgarden.net/message/20060115.191911.d354b86c.en.html

Idris

-- 
Professor Idris Samawi Hamid
Department of Philosophy
Colorado State University
Fort Collins, CO 80523

--
Using Opera's revolutionary e-mail client: http://www.opera.com/mail/
_______________________________________________
ntg-context mailing list
ntg-context@ntg.nl
http://www.ntg.nl/mailman/listinfo/ntg-context

Re: Letters in ConTeXt

[David Rogers]

On Wed, 31 Jan 2007 15:04:26 -0700, Idris Samawi Hamid wrote:
> On Wed, 31 Jan 2007 14:50:07 -0700, David Rogers <davidrogers@telus.net>  
> wrote:
> 
>> On Wed, 31 Jan 2007 22:30:27 +0100, Rolf Marvin Bøe Lindgren wrote:
>>> 
>>> On 31. jan. 2007, at 9:08, David Rogers wrote:
>>> 
>>>> The very simple example code given on Page 11 does not fail on my
>>>> machine, though I don't know where to place my information.
> 
> check the log: it will probably say something about a missing module...
> 
>>> yes, that's one of the issues I have with the documentation :)
>> 
>> I'm starting to think that if I make an XML contacts file as described,  
>> I might be able to get it to work. I promise to post anything useful I  
>> find, unless Hans or someone explains it first.
> 
> Well, m-letter is not in the distribution so...
> 
> This has been noted before eg
> 
> http://archive.contextgarden.net/message/20060115.191911.d354b86c.en.html

Thanks for the explanation.

But why does the code given in the right-hand margin of Page 11 in that little manual not fail? Where is it getting its place-holder data from?

David

Re: Letters in ConTeXt

[Idris Samawi Hamid]

On Wed, 31 Jan 2007 15:21:23 -0700, David Rogers <davidrogers@telus.net>  
wrote:

> On Wed, 31 Jan 2007 15:04:26 -0700, Idris Samawi Hamid wrote:

>> check the log: it will probably say something about a missing module...
>>
>>
>> Well, m-letter is not in the distribution so...
>>
>> This has been noted before eg
>>
>> http://archive.contextgarden.net/message/20060115.191911.d354b86c.en.html
>
> Thanks for the explanation.
>
> But why does the code given in the right-hand margin of Page 11 in that  
> little manual not fail? Where is it getting its place-holder data from?

It does fail but compilation does not; however ConTeXt is setup so that a  
missing module does not necessarily stop processing; it just complains in  
the log "module m-letter not found".

Idris

-- 
Professor Idris Samawi Hamid
Department of Philosophy
Colorado State University
Fort Collins, CO 80523

--
Using Opera's revolutionary e-mail client: http://www.opera.com/mail/

Re: Letters in ConTeXt

[Rolf Marvin Bøe Lindgren]

On 31. jan. 2007, at 8:13, Idris Samawi Hamid wrote:

> On Wed, 31 Jan 2007 11:16:21 -0700, Rolf Marvin Bøe Lindgren
> <roffe@extern.uio.no> wrote:
>
>>
>> On 31. jan. 2007, at 5:39, luigi scarso wrote:
>>
>>> On 1/31/07, Rolf Marvin Bøe Lindgren <roffe@extern.uio.no> wrote:
>>>> the one thing that stops my total conversion to ConTeXt is my  
>>>> lack of understanding of, er, context.  I've studied the manual
>>>> "Corresponcence"
>
> Well, this is apparently an experimental module, as the 'x'  
> signifies and the 'todo's at the end...
>
> But the best thing to do is try the examples starting on page 12,  
> look at chapters 3 and 4, and ignore the xml stuff.

certainly, and back in the days when I was a childless and carefree  
student I would have done just that, or I would have offered what I  
had to anyone who had asked.  I'm certainly not asking for anybody to  
do my homework, just hoping that somebody had something lying around  
that could be made instructive fairly quickly.

-- 
Rolf Lindgren
roffe@extern.uio.no

Re: Letters in ConTeXt

[Idris Samawi Hamid]

Looking through the archives it appears that the m-letter module has been  
withdrawn or was never released; it's not part of theConTeXt distro.

On Wed, 31 Jan 2007 13:14:32 -0700, Rolf Marvin Bøe Lindgren  
<roffe@extern.uio.no> wrote:

>

-- 
Professor Idris Samawi Hamid
Department of Philosophy
Colorado State University
Fort Collins, CO 80523

--
Using Opera's revolutionary e-mail client: http://www.opera.com/mail/
_______________________________________________
ntg-context mailing list
ntg-context@ntg.nl
http://www.ntg.nl/mailman/listinfo/ntg-context

Re: Letters in ConTeXt

[John R. Culleton]

On Wednesday 31 January 2007 15:34, Idris Samawi Hamid wrote:
> Looking through the archives it appears that the m-letter module has been
> withdrawn or was never released; it's not part of theConTeXt distro.
>
> On Wed, 31 Jan 2007 13:14:32 -0700, Rolf Marvin Bøe Lindgren
> <roffe@extern.uio.no> wrote:

Well, there is always Knuth's letterformat.tex. I still use it. :<)
-- 
John Culleton
Able Indexing and Typesetting
Precision typesetting (tm) at reasonable cost.
Satisfaction guaranteed. 
http://wexfordpress.com

_______________________________________________
ntg-context mailing list
ntg-context@ntg.nl
http://www.ntg.nl/mailman/listinfo/ntg-context

Re: Letters in ConTeXt

[luigi scarso]

> http://www.pragma-ade.com/general/manuals/xcorresp.pdf
ok, thanks.
(it's time to re-read all docs, i believe)
Perhaps it's better to make a folder with unfinished stuff, to  avoid
confusions.

John (john@wexfordpress.com) gave me a good hint when he said  to
download mailing list,
so I found
http://www.ntg.nl/pipermail/ntg-context/2004/008068.html
http://www.ntg.nl/pipermail/ntg-context/2004/008044.html

Re: Letters in ConTeXt

[Aditya Mahajan]

On Wed, 31 Jan 2007, Rolf Marvin Bøe Lindgren wrote:

> the one thing that stops my total conversion to ConTeXt is my lack of
> understanding of, er, context.  I've studied the manual
> "Corresponcence" which presupposes far better understanding of
> ConTeXt than I currently possess.  I imagine though that a useful
> short working example would help.
>
> anyone?

I do not use the m-letter module because it is too complicated for my 
needs. If you think about it, a letter is usually something fairly 
straight-forward. I have a personal p-letter.tex module which does 
something like

<setup layout>

<setup fonts>

<setup subject>

\setuppagenumbering[location={bottom,middle}]

\setupwhitespace[big]
\setupindenting[medium]
\setupblank[big]


Yes, that's it! In the letter, I manually write the typesetting 
commands in the letter

\starttext

\startlines
To,
Whoever ...
....
\stoplines

\blank[3*big]

\startlines
From,
Me ....
\stoplines

\blank[3*big]

Date: \currentdate

\blank[3*big]

\subject Whatever

Dear ...,

\setupindenting[yes,next]

My letter

in differnt paragraphs

\setupindeinting[no]

\blank[2*big]

\startlines
Your Sincerely
\blank[big]
Name...
\stoplines

\stoptext


This is fairly primitive, but I only need to write a formal letter 
once every blue moon, and this setup works for me. If you have more 
frequent need, then you may want more structure in the letters. If you 
can finalize how you want to input your letter, creating a personal 
module is not that hard with ConTeXt. I think that this is one of 
ConTeXt's strongest points. In LaTeX, you first find a package, then 
you see that the package does not do 100% of what you want, then you 
read the code of the package and try to figure out how to make it do 
what you want. With ConTeXt, once you know what you want, it is fairly 
straight forward to write your personal module to achieve that. But of 
course, ConTeXt needs more modules for things like journals and 
conferences which have specific layout requirements.

Aditya

Re: Letters in ConTeXt

[Rolf Marvin Bøe Lindgren]

On 1. feb. 2007, at 7:11, Aditya Mahajan wrote:

> I do not use the m-letter module because it is too complicated for my
> needs. If you think about it, a letter is usually something fairly
> straight-forward. I have a personal p-letter.tex module which does

Oh, it's no problem for me to set up a simple letter style. Indeed,  
the ConTeXt wiki offers several.

My question though is that I want to learn how to use the one  
documented, as it were, in the Correspondence manual, and a short  
working example would help understand the manual.

-- 
Rolf Lindgren
roffe@extern.uio.no

Re: Letters in ConTeXt

[John R. Culleton]

On Thursday 01 February 2007 01:11, Aditya Mahajan wrote:
> On Wed, 31 Jan 2007, Rolf Marvin Bøe Lindgren wrote:
> > the one thing that stops my total conversion to ConTeXt is my lack of
> > understanding of, er, context.  I've studied the manual
> > "Corresponcence" which presupposes far better understanding of
> > ConTeXt than I currently possess.  I imagine though that a useful
> > short working example would help.
> >
> > anyone?
>
> I do not use the m-letter module because it is too complicated for my
> needs. If you think about it, a letter is usually something fairly
> straight-forward. I have a personal p-letter.tex module which does
> something like
>
> <setup layout>
>
> <setup fonts>
>
> <setup subject>
>
> \setuppagenumbering[location={bottom,middle}]
>
> \setupwhitespace[big]
> \setupindenting[medium]
> \setupblank[big]
>
>
> Yes, that's it! In the letter, I manually write the typesetting
> commands in the letter
>
> \starttext
>
> \startlines
> To,
> Whoever ...
> ....
> \stoplines
>
> \blank[3*big]
>
> \startlines
> From,
> Me ....
> \stoplines
>
> \blank[3*big]
>
> Date: \currentdate
>
> \blank[3*big]
>
> \subject Whatever
>
> Dear ...,
>
> \setupindenting[yes,next]
>
> My letter
>
> in differnt paragraphs
>
> \setupindeinting[no]
>
> \blank[2*big]
>
> \startlines
> Your Sincerely
> \blank[big]
> Name...
> \stoplines
>
> \stoptext
>
>
> This is fairly primitive, but I only need to write a formal letter
> once every blue moon, and this setup works for me. If you have more
> frequent need, then you may want more structure in the letters. If you
> can finalize how you want to input your letter, creating a personal
> module is not that hard with ConTeXt. I think that this is one of
> ConTeXt's strongest points. In LaTeX, you first find a package, then
> you see that the package does not do 100% of what you want, then you
> read the code of the package and try to figure out how to make it do
> what you want. With ConTeXt, once you know what you want, it is fairly
> straight forward to write your personal module to achieve that. But of
> course, ConTeXt needs more modules for things like journals and
> conferences which have specific layout requirements.
>
> Aditya
> _______________________________________________
> ntg-context mailing list
> ntg-context@ntg.nl
> http://www.ntg.nl/mailman/listinfo/ntg-context

I use letterformat.tex from _The TeXBook_. . Why not? The tricky part is 
setting up the standard letterheads. Writing the letter then becomes very 
simple. Here is a live example with some hiding of the real identity:

\magnification=\magstep1
\input letterformat
\dogletterhead
\address
Mr.Nobody
17  Nowhere  Street
Winchester, VA 22601

\body
<put body text here>.
\closing
Best wishes,

John \& Peggy Culleton

\annotations
encl: Pedigree, two copies of contract. 
\endletter
%\makelabel
\bye
-----------------------------------

With very minor modifications, such as substituting \noheaderandfooterlines 
for  \nopagenumbers  and a similar replacement for \headline etc. in 
letterformat.tex it could be made to run under Context too. I just ran the 
above example in Context.  

I use whatever tool gets the job done. 
-- 
John Culleton
Able Indexing and Typesetting
Precision typesetting (tm) at reasonable cost.
Satisfaction guaranteed. 
http://wexfordpress.com

Re: Letters in ConTeXt

[Wolfgang Werners-Lucchini]

On 1 Feb 2007 at 12:00, ntg-context-request@ntg.nl wrote:

> John (john@wexfordpress.com) gave me a good hint when he said  to
> download mailing list,
> so I found
> http://www.ntg.nl/pipermail/ntg-context/2004/008068.html
> http://www.ntg.nl/pipermail/ntg-context/2004/008044.html

I found:

http://www.ntg.nl/pipermail/ntg-context/2006/015766.html
http://www.ntg.nl/pipermail/ntg-context/2006/015774.html

so, maybe Hraban can say something about the modules
m-letter and m-corresp?

Wolfgang

Re: Letters in ConTeXt

[Idris Samawi Hamid]

On Thu, 01 Feb 2007 10:25:20 -0700, Wolfgang Werners-Lucchini  
<wwl@musensturm.de> wrote:

> so, maybe Hraban can say something about the modules
> m-letter and m-corresp?

Or better yet, Hans himself ;-)

Idris

-- 
Professor Idris Samawi Hamid
Department of Philosophy
Colorado State University
Fort Collins, CO 80523

Using Opera's revolutionary e-mail client: http://www.opera.com/mail/

Re: Letters in ConTeXt

[Hans Hagen]

Idris Samawi Hamid wrote:
> On Thu, 01 Feb 2007 10:25:20 -0700, Wolfgang Werners-Lucchini  
> <wwl@musensturm.de> wrote:
>
>   
>> so, maybe Hraban can say something about the modules
>> m-letter and m-corresp?
>>     
>
> Or better yet, Hans himself ;-)
>   
we use the letter stuff is in combination with an xml database of adresses but i also use the thing standalone (address in file) 

maybe when i'm in the mood i'll make it better; actually it's rather configurable already by using setups 

(sorry for the short answer; a bit busy with writing font stuff for luatex, target: kick out all vf/tfm metric files from the minimal -)

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
-----------------------------------------------------------------

Re: Letters in ConTeXt

[Rolf Marvin Bøe Lindgren]

On 1. feb. 2007, at 10:40, Hans Hagen wrote:

> we use the letter stuff is in combination with an xml database of  
> adresses but i also use the thing standalone (address in file)
>
> maybe when i'm in the mood i'll make it better; actually it's  
> rather configurable already by using setups

then it's just a question of putting you in the mood. I can offer  
cigars, whisky, and ego-supporting psychotherapy.


-- 
Rolf Lindgren
roffe@extern.uio.no

Re: Letters in ConTeXt

[Wolfgang Schuster]

[-- Attachment #1.1: Type: text/plain, Size: 1097 bytes --]

2007/2/1, Rolf Marvin Bøe Lindgren <roffe@extern.uio.no>:
>
> On 1. feb. 2007, at 10:40, Hans Hagen wrote:
>
> > we use the letter stuff is in combination with an xml database of
> > adresses but i also use the thing standalone (address in file)
> >
> > maybe when i'm in the mood i'll make it better; actually it's
> > rather configurable already by using setups
>
> then it's just a question of putting you in the mood. I can offer
> cigars, whisky, and ego-supporting psychotherapy.
>
>
> --
> Rolf Lindgren
> roffe@extern.uio.no


where is the problem, the letter module can found by typing m-letter.tex in
google
or whatever you like and you get the following link

http://www.ntg.nl/pipermail/ntg-context/2004/008068.html

I think it is better to write a own letter module or to midify the existing
than let Hans
do the whole work. TeX development is driven by demand and not by the way to
say
I need this and who can do it.

The m-letter module is a good place to start for a own module and it is also
the perfect
manual for the use of setups.

Wolfgang

[-- Attachment #1.2: Type: text/html, Size: 1670 bytes --]

[-- Attachment #2: Type: text/plain, Size: 139 bytes --]

_______________________________________________
ntg-context mailing list
ntg-context@ntg.nl
http://www.ntg.nl/mailman/listinfo/ntg-context

Re: Letters in ConTeXt

[Rolf Marvin Bøe Lindgren]

[-- Attachment #1.1: Type: text/plain, Size: 573 bytes --]

On 2. feb. 2007, at 4:10, Wolfgang Schuster wrote:

> where is the problem, the letter module can found by typing m- 
> letter.tex in google
> or whatever you like and you get the following link
>
> http://www.ntg.nl/pipermail/ntg-context/2004/008068.html

the problem is stated in various messages sent to the list during the  
last few days and should be rather accurately assessed by reading  
them.  your messages added absolutely nothing to further a solution,  
but I appreciate the effort and expressed willingness to share.

-- 
Rolf Lindgren
roffe@extern.uio.no



[-- Attachment #1.2: Type: text/html, Size: 2889 bytes --]

[-- Attachment #2: Type: text/plain, Size: 139 bytes --]

_______________________________________________
ntg-context mailing list
ntg-context@ntg.nl
http://www.ntg.nl/mailman/listinfo/ntg-context

Re: Letters in ConTeXt

[luigi scarso]

> the problem is stated in various messages sent to the list during the last
> few days
well ,
'chi la dura la vince'

luigi

Re: Letters in ConTeXt

[Rolf Marvin Bøe Lindgren]

[-- Attachment #1.1: Type: text/plain, Size: 947 bytes --]


On 3. feb. 2007, at 3:10, Rolf Marvin Bøe Lindgren wrote:

> On 2. feb. 2007, at 4:10, Wolfgang Schuster wrote:
>
>> where is the problem, the letter module can found by typing m- 
>> letter.tex in google
>> or whatever you like and you get the following link
>>
>> http://www.ntg.nl/pipermail/ntg-context/2004/008068.html
>
> the problem is stated in various messages sent to the list during  
> the last few days and should be rather accurately assessed by  
> reading them.  your messages added absolutely nothing to further a  
> solution, but I appreciate the effort and expressed willingness to  
> share.

sorry about the quip here – I just noticed you were the one I  
received a much appreciated and very helpful private message from.   
I'll dig into the matter now and quit bothering the list until I've  
figured this out or my confusion has reached a higher level.

-- 
Rolf Lindgren
roffe@extern.uio.no



[-- Attachment #1.2: Type: text/html, Size: 3320 bytes --]

[-- Attachment #2: Type: text/plain, Size: 139 bytes --]

_______________________________________________
ntg-context mailing list
ntg-context@ntg.nl
http://www.ntg.nl/mailman/listinfo/ntg-context

Re: Letters in ConTeXt

[Henning Hraban Ramm]

[-- Attachment #1: Type: text/plain, Size: 616 bytes --]

Am 2007-02-01 um 18:25 schrieb Wolfgang Werners-Lucchini:

> I found:
> http://www.ntg.nl/pipermail/ntg-context/2006/015766.html
> http://www.ntg.nl/pipermail/ntg-context/2006/015774.html
>
> so, maybe Hraban can say something about the modules
> m-letter and m-corresp?

Indeed I found the files in my context-test folder ;-)

Additionally Holger Schöner's dinbrief, modified by me as an  
environment.
I used it with success for my applications ;-)


Greetlings from Lake Constance!
Hraban
---
http://www.fiee.net/texnique/
http://wiki.contextgarden.net
https://www.cacert.org (I'm an assurer)

[-- Attachment #2: m-corres.tex --]
[-- Type: application/octet-stream, Size: 3283 bytes --]

% \starttext \setups [letter:place] \stoptext \endinput
%D \module
%D   [       file=x-corres,
%D        version=2003.12.15, % replaces keep-02a cum suis
%D          title=\CONTEXT\ XML Modules,
%D       subtitle=Handling Correspondence Base,
%D         author=Hans Hagen,
%D           date=\currentdate,
%D      copyright={PRAGMA ADE / Hans Hagen \& Ton Otten}]
%C
%C This module is part of the \CONTEXT\ macro||package and is
%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
%C details.

%D The selection spec:

\setvariables
  [contacts]
  [selection=,
   file=x-corres.xml] % fall back

%D First we define the group expansion pass:

\startsetups[contacts:collect]

  \defineXMLprocess  [contacts]

  \defineXMLignore   [contact]

  \defineXMLargument [contactfile]
    \processfile

  \defineXMLenvironmentsave [contactgroup] [label=]
    {\startXMLmappinggroup[contacts]}
    {\XMLaddcontactgrouptoselection
     \stopXMLmappinggroup}

\stopsetups

%D Next we define the main processing pass:

\startsetups[contacts:process]

  \defineXMLprocess[contacts]

  \defineXMLignore [contactgroup]

  \defineXMLargument [contactfile]
    \processfile

  \defineXMLenvironmentsave[contact] [label=]
    {\startXMLmappinggroup[contacts]}
    {\XMLselectcontact
     \stopXMLmappinggroup}

\stopsetups

\startXMLmapping[contacts]

  \defineXMLsave [initials]
  \defineXMLsave [formalname]
  \defineXMLsave [informalname]
  \defineXMLsave [title]
  \defineXMLsave [prefix]
  \defineXMLsave [suffix]
  \defineXMLsave [telephone]
  \defineXMLsave [mobiletelephone]
  \defineXMLsave [telefax]
  \defineXMLsave [email]
  \defineXMLsave [address]
  \defineXMLsave [information]

  \defineXMLenvironment [p] \endgraf \endgraf

  \defineXMLargument [member] \XMLaddcontacttoselection

\stopXMLmapping

%D The selection macros: we expand groups and replace them
%D by contact labels in the selection spec.

\def\XMLaddcontactgrouptoselection
  {\edef\XMLcontactlist{\getvariable{contacts}{selection}}%
   \edef\XMLgrouplabel {\XMLop{label}}%
   \expanded{\doifinset{\XMLgrouplabel}{\XMLcontactlist}}
     {\let\XMLgrouplist\empty
      \XMLflush{contactgroup}%
      \substituteincommalist\XMLgrouplabel\XMLgrouplist\XMLcontactlist
      \expanded
        {\globalsetvariables
           [contacts]
           [selection={\XMLcontactlist}]}}}

\def\XMLaddcontacttoselection#1%
  {\addtocommalist{#1}\XMLgrouplist}

%D The main selector:

\def\XMLselectcontact
  {\edef\XMLcontactlist {\getvariable{contacts}{selection}}%
   \edef\XMLcontactlabel{\XMLop{label}}%
   \doifelsenothing{\XMLcontactlist}
     {\donetrue}
     {\expanded{\doifinsetelse{\XMLcontactlabel}{\XMLcontactlist}}
        {\donetrue}
        {\donefalse}}%
   \ifdone
     \XMLflush{contact}%
     \setups[contact:handle]%
   \fi}

%D The default:

\startsetups[contact:handle]

  \XMLflush{address}

\stopsetups

\setups[contacts:process]

%D Handy:

\def\XMLprocesscontacts
  {\dosingleempty\XMLprocesscontacts}

\def\XMLprocesscontacts[#1]%
  {\bgroup
   \doifelsenothing{#1}
     {\XMLprocesscontacts[\getvariable{contacts}{file}]}
     {\setups[contacts:collect]%
      \processcommacommand[#1]\processXMLfile
      \setups[contacts:process]%
      \processcommacommand[#1]\processXMLfile}%
   \egroup}

\endinput
 

[-- Attachment #3: m-letter.tex --]
[-- Type: application/octet-stream, Size: 10555 bytes --]

[-- Attachment #4: env_dinbrief.tex --]
[-- Type: application/octet-stream, Size: 16232 bytes --]

%
% Style (environment) for german business letters
%
% original (c) 2004 by Holger Schöner with contributions from Stefan Bunzel
% this version 2006 by Henning Hraban Ramm
% 
% Feel free to use as you like. If modified, please remove the above
% copyright notice.
%

%=============================================================================
% Usage:
%
% \environment env_dinbrief
% \starttext
% \letter{<string>}
% \setdate{<string>}
% \place{<string>}
% \shortsender{<one-line address of sender>}
% \disposal{<orders>}
% \addressee{<address of receiver; use \\ and \| for new lines>}
% % Block with information about sender on the right hand side (name, phone,
% % fax, email, etc.). <key> is set flush right in a very small font (by
% % default, see \keystyle) and specifies the type of information, and <value>
% % is the actual information.
% \senderone{<key>}{<value>}
% \sendertwo{<key>}{<value>}
% ...
% \sendernine{<key>}{<value>}
% \addfirstheaderlayer[corner={top,left},location={bottom,right}]{\framed[width=\overlaywidth,height=\logoboxheight,frame=off]{}}
% \headercontent{<text>}		% Text placed in the header of every page except the first
% \addheaderlayer[corner={top,left},location={bottom,right}]{}
% \footercontent{<text>}		% Text placed in the footer of every page
% \addfooterlayer[corner={bottom,right},location={top,left}]{}
% \subject{<subject>}
% \greeting{<greetings formulation>}
% \signature{<name>}
% \attachments{<text>}
%
% ----------------------------------------------------------------------------
% Modes:
% demo:		Set an example letter specified at the end of this file for
% 		test/demo purposes.
% nofold:	Determines whether folding marks are set or not. By default,
% 		they are printed; using this mode they are left out.
%
% Set modes by using
% 	texexec -pdf --mode=<mode1,mode2,...> <file>
% 	or specify \enablemode[<mode>] in your input (before including the style)
%
% ----------------------------------------------------------------------------
% There are some nasty tricks involved here; e.g. I could not find a cleaner
% way to specify a header which is to be used for only one page and has a
% different height than that of the following ...
%
% I'd be glad about any hints for improvement of this style!
%

\startenvironment env_dinbrief

%=============================================================================
% Default values

% Standard Dimensions
\def\firstpageheaderheight{9.5cm}
%\def\firstpagetextheight{8.0cm}
\def\normalheaderheight{1.0cm}
\def\logoboxheight{2cm}
\def\normaltextheight{27.4cm}
\def\normalfooterheight{1.0cm}
\def\sendervalwidth{4cm}
\def\senderkeywidth{2cm}

%% Standard Styles
\def\keystyle{\tfxx}
\def\valstyle{}

%=============================================================================
% Initializations

\def\\{\vskip0mm}
\def\|{\vskip1.5ex}

\def\letterdate{}
\def\letterplace{}
\def\lettershortsender{}
\def\letterdisposal{}
\def\letteraddressee{}

\def\lettersenderkeyone{}
\def\lettersendervalone{}
\def\lettersenderkeytwo{}
\def\lettersendervaltwo{}
\def\lettersenderkeythree{}
\def\lettersendervalthree{}
\def\lettersenderkeyfour{}
\def\lettersendervalfour{}
\def\lettersenderkeyfive{}
\def\lettersendervalfive{}
\def\lettersenderkeysix{}
\def\lettersendervalsix{}
\def\lettersenderkeyseven{}
\def\lettersendervalseven{}
\def\lettersenderkeyeight{}
\def\lettersendervaleight{}
\def\lettersenderkeynine{}
\def\lettersendervalnine{}

\def\letterheadertext{}
\def\letterfootertext{}

%=============================================================================

\setuppapersize[A4][A4]
\setuplayout[location=doublesided]
%\setuppagenumbering[alternative=doublesided]
%\setuppagenumbering[alternative={singlesided,doublesided}]
%\setuppagenumbering[alternative=singlesided}]
\setuppagenumbering[location=]

%=============================================================================
%% Header and footer initializations

%% Start of a new letter; heading text is used only in an optional table of contents
\def\letter#1{%
  \setuplayer[normalheaderlayer][state=reset]%
  \setuplayer[allpagefooterlayer][state=reset]%
  \letterhead{#1}%
  \setuplayer[firstheaderlayer][state=reset]%
  }
\definehead[letterhead][title]
\setuphead [letterhead][
  placehead=empty,
  before={%
    \setups{firstpagelayoutsetup}%
    },
  after=,
  header=firstpageheader,
  page=firstpagebreak,
  coupling=title]

%% Making empty pages completely empty (no page numbers):
\definepagebreak
  [firstpagebreak]
  [yes,header,footer,right] % yes instead of emtpy taken from the sources page-ini.tex line 1611

%% Layout of first page
\startsetups firstpagelayoutsetup
  \setuplayout[
    backspace=2.46cm,topspace=1.2cm,
    top=0cm,bottom=0cm,topdistance=0cm,bottomdistance=0cm,
    header=\firstpageheaderheight,footer=\normalfooterheight,headerdistance=0cm,footerdistance=0cm,
    leftedge=0cm,rightedge=0cm,leftedgedistance=0cm,rightedgedistance=0cm,
    leftmargin=1.5cm,rightmargin=1.5cm,leftmargindistance=0.42cm,rightmargindistance=0.42cm,
    width=16.5cm,height=\normaltextheight,
    ]
\stopsetups
% Layout of other pages
\startsetups normalpagelayoutsetup
  \setuplayout[
    backspace=2.46cm,topspace=1.2cm,
    top=0cm,bottom=0cm,topdistance=0cm,bottomdistance=0cm,
    header=\normalheaderheight,footer=\normalfooterheight,headerdistance=0cm,footerdistance=0cm,
    leftedge=0cm,rightedge=0cm,leftedgedistance=0cm,rightedgedistance=0cm,
    leftmargin=1.5cm,rightmargin=1.5cm,leftmargindistance=0.42cm,rightmargindistance=0.42cm,
    width=16.5cm,
    height=\normaltextheight,textheight=\normaltextheight,
    ]
\stopsetups

%% Header for first pages
\definetext[firstpageheader][header][\setups{firstpagesetup}]
\startsetups firstpagesetup
  \setups{firstpageintrosetup}
  \setups{foldingmarkslayersetup}
  \framed[width=\makeupwidth,height=\headerheight,
    background={firstpagelayer,firstheaderlayer},frame=off]
    {}
\stopsetups

%% Header for other pages
\setups{normalpagelayoutsetup}
\appendtoks\setups{normalpagelayoutsetup}\to\everyaftershipout
\startsetups normalheadersetups
  \setups{normalheaderlayersetup}
  \framed[width=\makeupwidth,height=\headerheight,
    background=normalheaderlayer,frame=off]
    {}
\stopsetups
\setupheadertexts[\setups{normalheadersetups}]

%% Footer for all pages
\startsetups allpagefootersetup
  \setups{allpagefooterlayersetup}
  \framed[width=\makeupwidth,height=\footerheight,
    background=allpagefooterlayer,frame=off]
    {}
\stopsetups
\setupfootertexts[\setups{allpagefootersetup}]

%=============================================================================
%% First page header setups

\definelayer[firstpagelayer][width=\makeupwidth,height=\firstpageheaderheight]

\startsetups firstpageintrosetup
  %% Logo frame
  \setlayerframed[firstpagelayer]
    [y=-12mm, corner={left,top}, location={right,bottom}]
    [height=\logoboxheight, width=\overlaywidth, frame=off, offset=0mm,align=left]
    {\externalfigure[fiee-kopf-144][width=60mm]}
  %% Short sender frame
  \doiftextelse{\lettershortsender}{
    \setlayerframed[firstpagelayer]
      [y=3.8cm,location={right,bottom}]
      [height=0.3cm,width=8cm,frame=off,bottomframe=on,offset=none,align={right,lohi}]
      {\tfxx \lettershortsender}}{
    \setlayerframed[firstpagelayer]
      [y=3.8cm,location={right,bottom}]
      [height=0.3cm,width=8cm,frame=off,bottomframe=off,offset=none,align={right,lohi}]
      {\tfxx \lettershortsender}}
  %% Addressee frame
  \setlayerframed[firstpagelayer]
    [y=4.1cm,location={right,bottom}]
    [height=3.6cm,width=8cm,frame=off,offset=none,align={right,top}]
    {
      \doiftextelse{\letterdisposal}{\vskip1.0ex\letterdisposal}{}
      \vskip1.5ex
      \letteraddressee
    }
  %% Sender frame
  \setlayerframed[firstpagelayer]
    [corner={right},y=4.1cm,location={left,bottom}]
    [height=4.6cm,width=\dimexpr(\senderkeywidth+\sendervalwidth),frame=off,offset=none,align={left,top}]	% [height=4.6cm,width=6.4cm,frame=off,offset=none,align={left,top}]
    {\setups{sendertablesetup}}
  %% Date field
  \setlayerframed[firstpagelayer]
    [corner={right},y=8.7cm,location={left,bottom}]
    [height=0.5cm,width=\dimexpr(\senderkeywidth+\sendervalwidth),align={left,top},frame=off,offset=none]	% [height=0.5cm,width=6.4cm,align={left,top},frame=off,offset=none]
    {
      \bTABLE
      \setupTABLE[frame=off]
      \setupTABLE[x][1][width=\senderkeywidth,align=left]	% width: std 1.85cm
      \setupTABLE[x][2][width=\sendervalwidth,align=right]	% width: std 4.55cm
      %\setupTABLE[y][maxheight=1ex]
      \bTR \bTD
        {\keystyle\translate[en=date,de=Datum]:}
      \eTD \bTD
        \valstyle
        \doiftextelse{\letterplace}
          {\letterplace,\translate[en=, de=]\ }{}
        \doiftextelse{\letterdate}{\letterdate}{\currentdate}	% \currentdate[weekday,month,day,{, },year]
      \eTD \eTR
      \eTABLE
    }
\stopsetups

%% Table with sender information
\startsetups sendertablesetup
  \bTABLE
  \setupTABLE[frame=off]
  \setupTABLE[x][1][width=\senderkeywidth,align=left]
  \setupTABLE[x][2][width=\sendervalwidth,align=right]
  \bTR \bTD \strut\doiftextelse{\lettersenderkeyone}  {\keystyle\lettersenderkeyone:}  {} \eTD \bTD \valstyle\lettersendervalone   \eTD \eTR
  \bTR \bTD \strut\doiftextelse{\lettersenderkeytwo}  {\keystyle\lettersenderkeytwo:}  {} \eTD \bTD \valstyle\lettersendervaltwo   \eTD \eTR
  \bTR \bTD \strut\doiftextelse{\lettersenderkeythree}{\keystyle\lettersenderkeythree:}{} \eTD \bTD \valstyle\lettersendervalthree \eTD \eTR
  \bTR \bTD \strut\doiftextelse{\lettersenderkeyfour} {\keystyle\lettersenderkeyfour:} {} \eTD \bTD \valstyle\lettersendervalfour  \eTD \eTR
  \bTR \bTD \strut\doiftextelse{\lettersenderkeyfive} {\keystyle\lettersenderkeyfive:} {} \eTD \bTD \valstyle\lettersendervalfive  \eTD \eTR
  \bTR \bTD \strut\doiftextelse{\lettersenderkeysix}  {\keystyle\lettersenderkeysix:}  {} \eTD \bTD \valstyle\lettersendervalsix   \eTD \eTR
  \bTR \bTD \strut\doiftextelse{\lettersenderkeyseven}{\keystyle\lettersenderkeyseven:}{} \eTD \bTD \valstyle\lettersendervalseven \eTD \eTR
  \bTR \bTD \strut\doiftextelse{\lettersenderkeyeight}{\keystyle\lettersenderkeyeight:}{} \eTD \bTD \valstyle\lettersendervaleight \eTD \eTR
  \bTR \bTD \strut\doiftextelse{\lettersenderkeynine} {\keystyle\lettersenderkeynine:} {} \eTD \bTD \valstyle\lettersendervalnine  \eTD \eTR
  \eTABLE
\stopsetups

%=============================================================================
%% First page header setups

\definelayer[firstheaderlayer][width=\makeupwidth,height=\logoboxheight,width=\overlaywidth]

%=============================================================================
%% Normal page header setups

\definelayer[normalheaderlayer][width=\makeupwidth,height=\normalheaderheight]

\startsetups normalheaderlayersetup
  \setlayerframed[normalheaderlayer]
    [corner={top,left},location={bottom,right}]
    [height=\normalheaderheight,width=\makeupwidth,frame=off,offset=none,align={high,middle}]
    {\letterheadertext}
\stopsetups

%=============================================================================
%% Footer setups

\definelayer[allpagefooterlayer][width=\makeupwidth,height=\footerheight]

\startsetups allpagefooterlayersetup
  \setlayerframed[allpagefooterlayer]
    [corner={right,bottom},location={left,top}]
    [height=\footerheight,width=\makeupwidth,frame=off,offset=none,align={low,middle}]
    {\letterfootertext}
\stopsetups

%=============================================================================
%% Folding marks on left

\startnotmode[nofold]
  \setupbackgrounds[rightpage][page][state=start,background=foldingmarkslayer]
\stopnotmode

\definelayer[foldingmarkslayer][state=repeat]

\startsetups foldingmarkslayersetup
  \setlayer[foldingmarkslayer][y=10.7cm, x=0.5cm,align={lohi,right}]{---}
  \setlayer[foldingmarkslayer][y=14.85cm,x=0.5cm,align={lohi,right}]{--}
  \setlayer[foldingmarkslayer][y=20.2cm, x=0.5cm,align={lohi,right}]{---}
\stopsetups

%=============================================================================
%% Commonly used letter parts

% Date; if not used, current date is inserted
\def\setdate#1{\def\letterdate{#1}}
% Place, for the date line
\def\place#1{\def\letterplace{#1}}
% Short sender information for address window in envelope
\def\shortsender#1{\def\lettershortsender{#1}}
% Order
\def\disposal#1{\def\letterdisposal{#1}}
% Address of receiver of the letter
\def\addressee#1{\def\letteraddressee{{#1}}}	% \let\crlf=\\ 
% Information about sender
\def\senderone#1#2{\def\lettersenderkeyone{#1}\def\lettersendervalone{#2}}
\def\sendertwo#1#2{\def\lettersenderkeytwo{#1}\def\lettersendervaltwo{#2}}
\def\senderthree#1#2{\def\lettersenderkeythree{#1}\def\lettersendervalthree{#2}}
\def\senderfour#1#2{\def\lettersenderkeyfour{#1}\def\lettersendervalfour{#2}}
\def\senderfive#1#2{\def\lettersenderkeyfive{#1}\def\lettersendervalfive{#2}}
\def\sendersix#1#2{\def\lettersenderkeysix{#1}\def\lettersendervalsix{#2}}
\def\senderseven#1#2{\def\lettersenderkeyseven{#1}\def\lettersendervalseven{#2}}
\def\sendereight#1#2{\def\lettersenderkeyeight{#1}\def\lettersendervaleight{#2}}
\def\sendernine#1#2{\def\lettersenderkeynine{#1}\def\lettersendervalnine{#2}}
% Subject line
\def\subjectline#1{{\bf #1}\vskip2ex}
% Signature: Name, Position
\def\greeting#1{\testpage[8]\vskip1ex{#1}}
% Signature: Name, Position
\def\signature#1{{\let\\=\crlf \vskip8ex\vtop{#1}}}
% Attachments included
\def\attachments#1{{\let\\=\crlf \vskip3ex{{\bf\translate[en=Attachments, de=Anlagen]:}\\ #1}}}

%% First header
%\def\resetfirstheaderlayer{\setuplayer[firstheaderlayer][state=reset]}
\def\addfirstheaderlayer[#1]#2{%
%  \setuplayer[firstheaderlayer][state=repeat]%
  \setlayer[firstheaderlayer][#1]{#2}%
  }

%% Header
\def\letterheadertext{}
\def\headercontent#1{\def\letterheadertext{#1}}
\def\resetheaderlayer{\setuplayer[normalheaderlayer][state=reset]}
\def\addheaderlayer[#1]#2{%
  \def\letterheadertext{}%
  \setuplayer[normalheaderlayer][state=repeat]%
  \setlayer[normalheaderlayer][#1]{#2}%
  }

%% Footer
\def\letterfootertext{\translate[en=page, de=Seite]~\pagenumber/\totalnumberofpages}
\def\footercontent#1{\def\letterfootertext{#1}}
\def\resetfooterlayer{\setuplayer[allpagefooterlayer][state=reset]}
\def\addfooterlayer[#1]#2{%
  \def\letterfootertext{}%
  \setuplayer[allpagefooterlayer][state=repeat]%
  \setlayer[allpagefooterlayer][#1]{#2}%
  }

%=============================================================================
\stopenvironment

%=============================================================================
\startmode[demo]

% Necessary, if you want to print folding marks only on odd pages
\setuppagenumbering[alternative={singlesided,doublesided}]

% \input letterstyle

\starttext
\letter{Example Letter}
%\setdate{<string>}
\place{Berlin}

\shortsender{My Name $\cdot$ My Street 123 $\cdot$ 12345 My Town}
\disposal{confidential}
\addressee{Mr. Example\\ Test Drive 99\| 98765 Other Town}

\senderone{tel.}{+49 30 12345678}
\sendertwo{email}{xyz@abc.com}

%\addfirstheaderlayer[corner={top,left},location={bottom,right}]{\framed[width=\overlaywidth,height=\logoboxheight,frame=off]{}}
\headercontent{\hfill test letter, page \pagenumber}
%\addheaderlayer[corner={top,left},location={bottom,right}]{}
\footercontent{From MyName\hfill To Mr. Example}
%\addfooterlayer[corner={bottom,right},location={top,left}]{}

\subjectline{What do you think about the Letterstyle?}

Dear Reader,

\dorecurse{11}{\input tufte\par}

\greeting{Best regards,}
\signature{My Name}

\attachments{The Letterstyle}

%-----------------------------------------------------------------------------
% Necessary to suppress emtpy last page in doublesided pagenumbering mode
\installpagebreakhandler{last}{}

\stoptext

\stopmode

[-- Attachment #5: Type: text/plain, Size: 1 bytes --]



[-- Attachment #6: Type: text/plain, Size: 139 bytes --]

_______________________________________________
ntg-context mailing list
ntg-context@ntg.nl
http://www.ntg.nl/mailman/listinfo/ntg-context