Re: Using defaults and indexes

[Wolfgang Schuster <schuster.wolfgang@googlemail.com>]

Am 21.01.2009 um 16:02 schrieb Cecil Westerhof:

> And in the main file I have:
>
>    \letterclosing{Hoogachtend}{Cecil Westerhof}
>
> But I would like to have this as the default, so I could use:
>
>    \letterclosing
>
> Beside that I would like to have the possibility to use:
>
>    \letterclosing{business}
> or
>    \letterclosing{family}
>
> This would then use defined values.
>
> When the first parameter is filled, but not with a recognized value,
> then the second parameter should be filled. If not, the compilation of
> the file should generate an error. Is this something that can be done?

\long\def\letterbody#1%
   {{\blank[line]\setupindenting[yes,medium]#1\par}}

\def\letterclosing
   {\dodoublegroupempty\doletterclosing}

\def\doletterclosing#1#2%
   {\ifsecondargument
      \dodoletterclosing{#1}{#2}%
    \else
      \doifelsenothing{#1}
        {\doletterclosing{Hoogachtend,}{Cecil Westerhof}}%
        {\processaction
           [#1]
           [  family=>{\dodoletterclosing{Informal closing,}{Cecil  
Westerhof}},
            business=>{\dodoletterclosing{Formal closing}{Cecil  
Westerhof}},
             unknown=>{\errorisfataltrue\waitonfatalerror}]}%
    \fi}

\def\dodoletterclosing#1#2%
   {\blank[line]#1\blank[3*line]#2}

\setupindenting[yes,none]

\starttext

\letterbody{\dorecurse{2}{\input knuth\par}}
\letterclosing{Hoogachtend,}{Cecil Westerhof}

\page

\letterbody{\dorecurse{2}{\input knuth\par}}
\letterclosing{family}

\page

\letterbody{\dorecurse{2}{\input knuth\par}}
\letterclosing{business}

\page

\letterbody{\dorecurse{2}{\input knuth\par}}
\letterclosing{unknown}

\stoptext

Wolfgang

___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the Wiki!

maillist : ntg-context@ntg.nl / http://www.ntg.nl/mailman/listinfo/ntg-context
webpage  : http://www.pragma-ade.nl / http://tex.aanhet.net
archive  : https://foundry.supelec.fr/projects/contextrev/
wiki     : http://contextgarden.net
___________________________________________________________________________________