diff options
Diffstat (limited to 'Master/texmf-dist/tex/context/third/letter/interface/default.nli')
-rw-r--r-- | Master/texmf-dist/tex/context/third/letter/interface/default.nli | 161 |
1 files changed, 48 insertions, 113 deletions
diff --git a/Master/texmf-dist/tex/context/third/letter/interface/default.nli b/Master/texmf-dist/tex/context/third/letter/interface/default.nli index 5018a29e99d..29ef703181d 100644 --- a/Master/texmf-dist/tex/context/third/letter/interface/default.nli +++ b/Master/texmf-dist/tex/context/third/letter/interface/default.nli @@ -1,6 +1,6 @@ %D \module %D [ file=default, -%D version=2008.10.27, +%D version=2008.11.29, %D title=\CONTEXT\ Letter Interface, %D subtitle=Default Interface, %D author=Wolfgang Schuster, @@ -9,7 +9,7 @@ %D email=schuster.wolfgang@googlemail.com, %D license=Public Domain] -%M \loadsetups[letter.xml] +%M \loadsetups[t-letter.xml] %D \subject{Constants and Variables} @@ -96,13 +96,13 @@ \setvalue{\v!letter:\v!reference:\v!a}% {\setbox\scratchbox\hbox\!!to\hsize - {\getcommacommandsize[\@@@@ldlist]% \@@@@ldreference? + {\getcommacommandsize[\@@@@lsreferencelist]% \@@@@ldreference? \ifnum\commalistsize<\plustwo\hfill\fi - \processcommacommand[\@@@@ldlist]\formatreferencelista\unskip}% + \processcommacommand[\@@@@lsreferencelist]\formatreferencelista\unskip}% \global\letter!height!reference\dimexpr\ht\scratchbox+\dp\scratchbox\relax \box\scratchbox} -\startsetups[letter:reference:\v!a] +\startsetups[\v!letter:\v!reference:\v!a] \setupletterstyle [\v!reference] @@ -133,9 +133,9 @@ \setvalue{\v!letter:\v!reference:\v!b}% {\vtop % why not \vbox? - {\processcommacommand[\@@@@ldlist]\formatreferencelistb}} + {\processcommacommand[\@@@@lsreferencelist]\formatreferencelistb}} -\startsetups[letter:reference:\v!b] +\startsetups[\v!letter:\v!reference:\v!b] \setupletterstyle [\v!reference] @@ -169,11 +169,11 @@ \setvalue{\v!letter:\v!reference:\v!c}% {\hbox\!!to\hsize - {\processcommacommand[\@@@@ldlist]\formatreferencelistc}} + {\processcommacommand[\@@@@lsreferencelist]\formatreferencelistc}} -\startsetups[letter:reference:\v!c] +\startsetups[\v!letter:\v!reference:\v!c] -\setups[letter:reference:\v!a] +\setups[\v!letter:\v!reference:\v!a] \stopsetups @@ -194,13 +194,13 @@ \setvalue{\v!letter:\v!reference:\v!d}% {\vtop % why not \vbox? {\scratchtoks\emptytoks - \processcommacommand[\@@@@ldlist]\formatreferencelistd + \processcommacommand[\@@@@lsreferencelist]\formatreferencelistd \setuptabulate[\c!before=,\c!after=]% \starttabulate[|l|l|] \the\scratchtoks \stoptabulate}} -\startsetups[letter:reference:\v!d] +\startsetups[\v!letter:\v!reference:\v!d] \setupletterstyle [\v!reference] @@ -238,11 +238,11 @@ \setvalue{\v!letter:\v!reference:\v!e}% {\hbox\!!to\hsize - {\processcommacommand[\@@@@ldlist]\formatreferenceliste\hss}} + {\processcommacommand[\@@@@lsreferencelist]\formatreferenceliste\hss}} -\startsetups[letter:reference:\v!e] +\startsetups[\v!letter:\v!reference:\v!e] -\setups[letter:reference:\v!a] +\setups[\v!letter:\v!reference:\v!a] \stopsetups @@ -254,77 +254,12 @@ \resetvalue{\v!letter:\v!reference:\v!none} -\startsetups[letter:reference:\v!none] +\startsetups[\v!letter:\v!reference:\v!none] % Use the topspace value from the style \stopsetups -%D \subject{Setup commands} -%D -%D \macros -%D {setupletter,setlettervalue} -%D -%D The values for the letter field is set eitheir either with \tex{setupletter} -%D or with \tex{setlettervalue}, the first commands allows you to input the data -%D in a key-val list while the second is only able to accept a single value. -%D -%D The first definition for \tex{setupletter} was defined in \filename{t-letter.tex} -%D and used till \date[d=20,m=4,y=2008] but I decided to replace it by a simpler -%D method to avoid a few lines of code in my letter and the letter versions from -%D \date[d=21,m=4,y=2008] will use the new user interface. The old definition from -%D \filename{t-letter.tex} is now oveloaded in will eventually disappear. -%D -%D The second command to set \tex{setlettervalue} was developed as a alternative -%D method to set values for the letter, I implemnted the command at the same time -%D as I changed the user interface. -%D -%D Untill the old definition for \tex{setupletter} remains in \filename{t-letter.tex} -%D I have to redefine also \tex{lettervalue}, \tex{doiflettervalue} and -%D \tex{doifelselettervalue} because the old and new definitions differe in the -%D number of arguments but the new definition will move to the core file as soon -%D as I replace \tex{setupletter} in the core. - -%D \starttyping -%D \def\setupletter -%D {\dodoubleempty\dosetupletter} -%D -%D \def\dosetupletter[#1][#2]% -%D {\ifsecondargument -%D \dodosetupletter[#1][#2]% -%D \else -%D \dodosetupletter[#1][]% -%D \fi} -%D -%D \def\dodosetupletter[#1][#2]% -%D {\doifelsenothing{#2} -%D {\getparameters[\????ld][#1]} -%D {\def\dododosetupletter##1% -%D {\getparameters[\????ld##1][#2]}% -%D \processcommalist[#1]\dododosetupletter}} -%D -%D \def\lettervalue#1% -%D {\csname\????ld#1\endcsname} -%D -%D \def\doiflettervalue#1% -%D {\doiftextelse{\lettervalue{#1}} -%D \firstofoneargument -%D \gobbleoneargument} -%D -%D \def\doifelselettervalue#1% -%D {\doiftextelse{\lettervalue{#1}} -%D \firstoftwoarguments -%D \secondoftwoarguments} -%D -%D \definecomplexorsimple\setlettervalue -%D -%D \def\complexsetlettervalue[#1]#2% -%D {\setvalue{\????ld#1}{#2}} -%D -%D \def\simplesetlettervalue#1#2% -%D {\setvalue{\????ld#1}{#2}} -%D \stoptyping - %D \subject{Letter environment} %D %D \macros @@ -343,19 +278,19 @@ \def\dostartletter[#1][#2]% {\ifsecondargument - \setupletter[#1]% + \getparameters[\????ld][#1]% \doifundefinedelse{\????ld\????ld#2} {\setvalue{\????ld\c!toaddress}{#2}} {\setvalue{\????ld\c!toaddress}{\getvalue{\????ld\????ld#2}}}% \else\iffirstargument \doifassignmentelse{#1} - {\setupletter[#1]} + {\getparameters[\????ld][#1]} {\doifundefinedelse{\????ld\????ld#1} {\setvalue{\????ld\c!toaddress}{#1}} {\setvalue{\????ld\c!toaddress}{\getvalue{\????ld\????ld#1}}}}% \fi\fi \def\stopletter - {\setups[letter:place]\egroup + {\directsetup{\v!letter:\v!place}\egroup \setupsubpagenumber[\c!state=\@@@@lsoptionstate]}% \dostartbuffer[lettercontent][startletter][stopletter]} @@ -404,20 +339,20 @@ \doiflettervalue\c!fromname\\ \lettervalue\c!fromaddress} -\startsetups[letter:head] +\startsetups[\v!letter:\v!head] \def\\{\letterstylevalue\v!head\c!separator}% \executeifdefined{\v!letter:\v!head:\@@@@lsheadalternative}{\getvalue{\v!letter:\v!head:\v!a}}% \stopsetups -\startsetups[letter:foot] +\startsetups[\v!letter:\v!foot] \executeifdefined{\v!letter:\v!foot:\@@@@lsfootalternative}\donothing \stopsetups -\startsetups[letter:nexthead] +\startsetups[\v!letter:\v!nexthead] \executeifdefined{\v!letter:\v!nexthead:\@@@@lsnextheadalternative}\donothing \stopsetups -\startsetups[letter:nextfoot] +\startsetups[\v!letter:\v!nextfoot] \executeifdefined{\v!letter:\v!nextfoot:\@@@@lsnextfootalternative}\donothing \stopsetups @@ -439,11 +374,11 @@ \copycsname\v!letter:\v!header:\v!modified\endcsname\csname\v!letter:\v!header:\v!hanging\endcsname -\startsetups[letter:header] +\startsetups[\v!letter:\v!header] \executeifdefined{\v!letter:\v!header:\@@@@lsheaderalternative}\donothing \stopsetups -\startsetups[letter:footer] +\startsetups[\v!letter:\v!footer] \executeifdefined{\v!letter:\v!footer:\@@@@lsfooteralternative}\donothing \stopsetups @@ -465,40 +400,40 @@ \presetlocalframed[\????ls\v!dispatch] \presetlocalframed[\????ls\v!addressee] -\startsetups[letter:place:dispatch] +\startsetups[\v!letter:\v!place:\v!dispatch] \localframed [\????ls\v!dispatch] {\doadaptleftskip {\letterstylevalue\v!dispatch\c!leftmargin}% \doadaptrightskip{\letterstylevalue\v!dispatch\c!rightmargin}% - \doattributes{\????ls\v!dispatch}\c!style\c!color{\setups[letter:address:dispatch]}} + \doattributes{\????ls\v!dispatch}\c!style\c!color{\directsetup{\v!letter:\v!address:\v!dispatch}}} \stopsetups -\startsetups[letter:place:addressee] +\startsetups[\v!letter:\v!place:\v!addressee] \localframed [\????ls\v!addressee] {\doadaptleftskip {\letterstylevalue\v!addressee\c!leftmargin}% \doadaptrightskip{\letterstylevalue\v!addressee\c!rightmargin}% - \doattributes{\????ls\v!addressee}\c!style\c!color{\setups[letter:address:content]}} + \doattributes{\????ls\v!addressee}\c!style\c!color{\directsetup{\v!letter:\v!address:\v!content}}} \stopsetups \setvalue{\v!letter:\v!address:\v!a}% - {\doif\@@@@lsoptiondispatch \v!yes{\setups[letter:place:dispatch]}% - \doif\@@@@lsoptionaddressee\v!yes{\setups[letter:place:addressee]}} + {\doif\@@@@lsoptiondispatch \v!yes{\directsetup{\v!letter:\v!place:\v!dispatch }}% + \doif\@@@@lsoptionaddressee\v!yes{\directsetup{\v!letter:\v!place:\v!addressee}}} -\startsetups[letter:address] +\startsetups[\v!letter:\v!address] \offinterlineskip\vskip-\lineheight \executeifdefined{\v!letter:\v!address:\@@@@lsaddressalternative}{\getvalue{\v!letter:\v!address:\v!a}}% \stopsetups -\startsetups[letter:address:dispatch] +\startsetups[\v!letter:\v!address:\v!dispatch] \lettervalue\c!dispatch \stopsetups -\startsetups[letter:address:content] +\startsetups[\v!letter:\v!address:\v!content] \def\\{\letterstylevalue\v!address\c!separator}% \lettervalue\c!toname \doiflettervalue\c!toname\\ @@ -511,7 +446,7 @@ %D The reference line is choosen with the alternative key or if you set %D a not defined alternative the definition a is choosen. -\startsetups[letter:reference] +\startsetups[\v!letter:\v!reference] \executeifdefined{\v!letter:\v!reference:\@@@@lsreferencealternative}{\getvalue{\v!letter:\v!reference:\v!a}} \stopsetups @@ -522,18 +457,18 @@ \doiflettervalue\c!place{\lettervalue{\c!place\c!separator}}% \lettervalue\c!date} -\startsetups[letter:location] +\startsetups[\v!letter:\v!location] \executeifdefined{\v!letter:\v!location:\@@@@lslocationalternative}{\getvalue{\v!letter:\v!location:\v!a}} \stopsetups -\startsetups[letter:title] +\startsetups[\v!letter:\v!title] \doifelselettervalue\c!title {\lettervalue\c!title} {\doiflettervalue\c!attention {\labeltext{\v!letter:\c!attention}\lettervalue\c!attention}} \stopsetups -\startsetups[letter:subject] +\startsetups[\v!letter:\v!subject] \def\\{\letterstylevalue\v!subject\c!separator}% \labeltext{\v!letter:\c!subject}\lettervalue\c!subject \stopsetups @@ -549,11 +484,11 @@ {\setupindenting[\@@@@lsoptionindenting]}% \getvalue{\v!letter:\v!opening:\v!a}} -\startsetups[letter:opening] +\startsetups[\v!letter:\v!opening] \executeifdefined{\v!letter:\v!opening:\@@@@lsopeningalternative}{\getvalue{\v!letter:\v!opening:\v!a}} \stopsetups -\startsetups[letter:content] +\startsetups[\v!letter:\v!content] \lettervalue\c!content \stopsetups @@ -582,19 +517,19 @@ {\doiflettervalue\c!signature{\letterstylevalue\v!closing\c!inbetween}% \lettervalue\c!signature} -\startsetups[letter:closing] +\startsetups[\v!letter:\v!closing] \def\\{\letterstylevalue\v!closing\c!separator}% \executeifdefined{\v!letter:\v!closing:\@@@@lsclosingalternative}{\getvalue{\v!letter:\v!closing:\v!a}}% \stopsetups -\startsetups[letter:appendices] +\startsetups[\v!letter:\v!appendices] \let\\\crlf \doflushletterdescription \stopsetups \dodefineletterdescription[\v!enclosure] -\startsetups[letter:enclosure] +\startsetups[\v!letter:\v!enclosure] \processaction [\lettervalue\c!enclosure] [ \v!empty=>\vrule\!!height\zeropoint\!!depth\zeropoint\!!width\hsize\relax\ifvmode\nowhitespace\fi, @@ -603,7 +538,7 @@ \dodefineletterdescription[\v!copy] -\startsetups[letter:copy] +\startsetups[\v!letter:\v!copy] \processaction [\lettervalue\c!copy] [ \v!empty=>\vrule\!!height\zeropoint\!!depth\zeropoint\!!width\hsize\relax\ifvmode\nowhitespace\fi, @@ -612,7 +547,7 @@ \dodefineletterdescription[\v!postscript] -\startsetups[letter:postscript] +\startsetups[\v!letter:\v!postscript] \processaction [\lettervalue\c!postscript] [ \v!empty=>\vrule\!!height\zeropoint\!!depth\zeropoint\!!width\hsize\relax\ifvmode\nowhitespace\fi, @@ -633,7 +568,7 @@ \doiflettervalue\c!fromaddress\\ \lettervalue\c!fromaddress}} -\startsetups[letter:backaddress] +\startsetups[\v!letter:\v!backaddress] \def\\{\letterstylevalue\c!backaddress\c!separator}% \executeifdefined{\v!letter:\v!backaddress:\@@@@lsbackaddressalternative}{\getvalue{\v!letter:\v!backaddress:\v!no}}% \stopsetups @@ -653,12 +588,12 @@ %D is the date with a label. f you dont want a label choose alternative c %D or change the label. -\startsetups[letter:optimize] +\startsetups[\v!letter:\v!optimize] \setbox\scratchbox\hbox % trial typesetting to get the heigth of the reference line {\executeifdefined{\v!letter:\v!reference:\@@@@lsreferencealternative}{\getvalue{\v!letter:\v!reference:\v!a}}} - %\setups[letter:reference:\@@@@lsreferencealternative] + %\setups[\v!letter:\v!reference:\@@@@lsreferencealternative] \stopsetups |