\startcomponent correspondence-pragma

\environment correspondence-environment

\chapter{Pragma ADE Interface}

\start

\useletterinterface[pragma]

\setups[letter:test]

\setups[letter:place]

\stop

\section{Example 1}

\starttyping
\usemodule[letter][interface=pragma]

\setups[letter:test]

\starttext
\setups[letter:place]
\stoptext
\stoptyping

\start

\useletterinterface[pragma]

\setups[letter:test]

\setvariables
  [letter:head]
  [graphic=corrlogo]

\setups[letter:place]

\stop

\section{Example 2}

\starttyping
\usemodule[letter][interface=pragma]

\setups[letter:test]

\setvariables
  [letter:head]
  [graphic=corrlogo]

\starttext
\setups[letter:place]
\stoptext
\stoptyping

\start

\useletterinterface[pragma]

\setups[letter:test]

\setlayer
  [letter:lettermain]
  [preset=righttop]
  {\externalfigure[corrlogo][width=.2\paperwidth]}

\setlayerframed
  [letter:lettermain]
  [preset=rightbottom]
  [height=1cm]
  {Here you can find some additional data about me.}

\setups[letter:place]

\stop

\section{Example 3}

\starttyping
\usemodule[letter][interface=pragma]

\setups[letter:test]

\setlayer
  [letter:lettermain]
  [preset=righttop]
  {\externalfigure[corrlogo][width=.2\paperwidth]}

\setlayerframed
  [letter:lettermain]
  [preset=rightbottom]
  [height=1cm]
  {Here you can find some additional data about me.}

\starttext
\setups[letter:place]
\stoptext
\stoptyping

\start

\useletterinterface[pragma]

\setups[letter:test]

\setlayer 
  [letter:lettermain] 
  [preset=righttop, 
   offset=\backspace] 
  {\externalfigure[corrlogo][width=.2\paperwidth]}

\setlayerframed
  [letter:lettermain]
  [preset=rightbottom,
   hoffset=\backspace,
   voffset=.5\backspace]
  [height=1cm,
   offset=overlay,
   frame=off,
   strut=yes]
  {Here you can find some additional data about me.}

\setups[letter:place]

\stop

\section{Example 4}

\starttyping
\usemodule[letter][interface=pragma]

\setups[letter:test]

\setlayer 
  [letter:lettermain] 
  [preset=righttop, 
   offset=\backspace] 
  {\externalfigure[corrlogo][width=.2\paperwidth]}

\setlayerframed
  [letter:lettermain]
  [preset=rightbottom,
   hoffset=\backspace,
   voffset=.5\backspace]
  [height=1cm,
   offset=overlay,
   frame=off,
   strut=yes]
  {Here you can find some additional data about me.}

\starttext
\setups[letter:place]
\stoptext
\stoptyping

\start

\useletterinterface[pragma]

\setups[letter:test]

\setlayer
  [letter:lettermain]
  [preset=rightbottom,
   offset=\backspace]
  {\externalfigure[corrlogo][width=.2\paperwidth]}

\setvariables
  [letter:address]
  [line=1,
   hoffset=1cm,
   width=10cm,
   noflines=7]

\setups[letter:place]

\stop

\section{Example 5}

\starttyping
\usemodule[letter][interface=pragma]

\setups[letter:test]

\setlayer
  [letter:lettermain]
  [preset=rightbottom,
   offset=\backspace]
  {\externalfigure[corrlogo][width=.2\paperwidth]}

\setvariables
  [letter:address]
  [line=1,
   hoffset=1cm,
   width=10cm,
   noflines=7]

\starttext
\setups[letter:place]
\stoptext
\stoptyping

\start

\useletterinterface[pragma]

\setups[letter:test]

\setlayer
  [letter:lettermain]
  [preset=rightbottom,
   offset=\backspace]
  {\externalfigure[corrlogo][width=.2\paperwidth]}

\setvariables
  [letter:address]
  [line=1,
   hoffset=1cm,
   width=10cm,
   noflines=7]

\setvariables
  [letter:reference]
  [line=1,
   noflines=3]

\setups[letter:place]

\stop

\section{Example 6}

\starttyping
\usemodule[letter][interface=pragma]

\setups[letter:test]

\setlayer
  [letter:lettermain]
  [preset=rightbottom,
   offset=\backspace]
  {\externalfigure[corrlogo][width=.2\paperwidth]}

\setvariables
  [letter:address]
  [line=1,
   hoffset=1cm,
   width=10cm,
   noflines=7]

\setvariables
  [letter:reference]
  [line=1,
   noflines=3]

\starttext
\setups[letter:place]
\stoptext
\stoptyping

\start

\useletterinterface[pragma]

\setvariables
  [letter:data]
  [address={Name\\Street\\Place\\Country}]

\setvariables
  [letter:data]
  [subject=Some Topic,
   data=\currentdate,
   concerns=Whatever,
   residence=Here Here,
   reference=YourOrMine]

\startbuffer[texletter]
\input ward
\stopbuffer

\setvariables
  [letter:data]
  [author=Me,
   greeting=See You]

\setvariables
  [letter:data]
  [appendices=No Goddies]

\setups[letter:place]

\stop

\section{Example 7}

\starttyping
\usemodule[letter][interface=pragma]

\setvariables
  [letter:data]
  [address={Name\\Street\\Place\\Country}]

\setvariables
  [letter:data]
  [subject=Some Topic,
   data=\currentdate,
   concerns=Whatever,
   residence=Here Here,
   reference=YourOrMine]

\startbuffer[texletter]
\input ward
\stopbuffer

\setvariables
  [letter:data]
  [author=Me,
   greeting=See You]

\setvariables
  [letter:data]
  [appendices=No Goddies]

\starttext
\setups[letter:place]
\stoptext
\stoptyping

\stoptext

\stopcomponent
