%D \module
%D   [      file=x-e-0100,
%D        version=2002.12.21,
%D          title=\EXAMPLE\ Base Files, 
%D       subtitle=Status Reports, 
%D         author=Hans Hagen,
%D           date=\currentdate,
%D      copyright={PRAGMA / 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 This is experimental code. Don't change it, don't rely on
%D this interface remaining the same, don't use tricks used
%D here but not described in manuals, so: assume that this
%D file does not exists. 

\usemodule[e-0000]

\loadEXAmodes{examodes.tex}

\setuppapersize
  [S6][S6]

\setupcolors
  [state=start]

\setuplayout
  [topspace=12pt,
   backspace=177pt,
   cutspace=12pt,
   header=0pt,
   footer=0pt,
   margin=150pt,
   margindistance=15pt,
   width=middle,
   height=middle]

\usetypescript
  [palatino]
  [\defaultencoding]

\setupbodyfont
  [palatino,10pt]

\definecolor
  [MainColor]  
  [r=.5]

\definecolor
  [TextColor]  
  [s=.5]

\definecolor
  [PageColor]
  [s=.25]

\setupbackgrounds
  [page]
  [backgroundoffset=3pt]

\setupbackgrounds
  [page]
  [background=color,
   backgroundcolor=PageColor]

\setupbackgrounds
  [text]
  [background=color,
   backgroundcolor=TextColor]

\setupbackgrounds
  [text][leftmargin]
  [background=banner]

\setupinteractionscreen
  [option=max]

\setupinteraction
  [state=start,
   style=bold,
   color=MainColor,
   contrastcolor=MainColor]

\startnotmode[error]
  \useexternalfigure[banner][ex-logo.mps][width=\dimexpr(\hsize+6pt)] 
  \setvariables[banner][text=status]
\stopnotmode

\startmode[error]
  \useexternalfigure[banner][ex-error.mps][width=\dimexpr(\hsize+6pt)] 
  \setvariables[banner][text=error]
\stopmode

\setuptexttexts
  [margin]
  [\tightvbox to \vsize{\setups[banner]}]
  []
  
\startsetups [banner]

  \setupinteraction[color=TextColor,contrastcolor=TextColor]

  \vskip-3pt \hskip-3pt \externalfigure[banner] \vskip6pt 

  \midaligned{\bf \TextColor \getvariable{banner}{text} report} \vfill

  \midaligned{\goto {go back} [PreviousJump]} 

  \vskip-\strutdepth

\stopsetups 

\setupblank
  [line]

\setupwhitespace
  [line]

\setuphead
  [section]
  [style=\bfb,
   before=\blank,
   after={\blank[halfline]}]

\setuphead
  [subsection]
  [style=\bf,
   before={\blank[halfline]},
   after=]

\setuptabulate
  [before=,
   after=]

\defineXMLprocess [exa:reply]
\defineXMLprocess [exa:request]

\defineXMLignore  [exa:result]    
\defineXMLignore  [exa:status]    
\defineXMLignore  [exa:comment]   
\defineXMLignore  [exa:producer]  
\defineXMLignore  [exa:forwarded]
\defineXMLignore  [exa:computer]
\defineXMLignore  [exa:username]
\defineXMLignore  [exa:timestamp]        

\defineXMLprocess [exa:report]

\defineXMLignore  [exa:time]        
\defineXMLignore  [exa:address]     
\defineXMLignore  [exa:port]        
\defineXMLignore  [exa:resultfile] 
\defineXMLignore  [exa:resulturl] 
\defineXMLignore  [exa:resultsize] 
\defineXMLignore  [exa:requestfile] 
\defineXMLignore  [exa:replyfile]   

\defineXMLignore  [exa:whatever] [label=]   
