% interface=en
%
% author: Hans Hagen - Pragma ADE - www.pragma-ade.com

\setupbodyfont
  [dejavu]

\setuppapersize
  [HD-]

\setuplayout
  [location=middle,
   header=0pt,
   footer=0pt,
   backspace=2.25cm,
   topspace=2.25cm,
   width=middle,
   height=middle]

\setupcolors
  [state=start]

\startreusableMPgraphic{page}
    StartPage ;
        picture p ; path s ;
        fill Page withcolor .5red ;
        draw Page withpen pensquare scaled 2cm withcolor .75[.5red,white] ;
        s := (Field[Text][Text] enlarged .5cm) squeezed (.1cm,.15cm) ;
        fill s withcolor .75[.5red,white] ;
        if false :
            p := image (graphictext "\ss TIP" withfillcolor .2white ;) ;
        else :
            p := textext.raw("\ss TIP") ;
            setbounds p to (boundingbox p rightenlarged  -0.025bbwidth(p)) ;
        fi ;
        p := p xysized(PaperWidth-1cm,PaperHeight-1cm) ;
        p := p shifted .5(bbwidth(Page)-bbwidth(p),bbheight(Page)-bbheight(p)) ;
        draw p withcolor .2white ;
        clip p to s ;
        draw p withcolor .875[.5red,white] ; ;
    StopPage ;
\stopreusableMPgraphic

\defineoverlay
  [page]
  [\reuseMPgraphic{page}]

\setupbackgrounds
  [page]
  [background=page,
   state=repeat]

\definecolor[red][r=.5]

\setuphead
  [chapter]
  [style=\tfb,
   before=,
   after={\blank[line]}]

\setupblank
  [halfline]

% xml interface

\startxmlsetups xml:tips
    \xmlflush{#1}
\stopxmlsetups

\startxmlsetups xml:tip
    \startstandardmakeup
        \startnamedsection[title][title=\xmlfirst{#1}{/title}]
            \xmlall{#1}{/(remark|command)}
            \vfill
        \stopnamedsection
    \stopstandardmakeup
\stopxmlsetups

\startxmlsetups xml:remark
    \blank
    \xmlflush{#1}
    \blank
\stopxmlsetups

\definehighlight
  [command]
  [style=mono,
   color=red,
   command=no]

\startxmlsetups xml:command
    \blank
    \starthighlight[command]
        \xmlflush{#1}
    \stophighlight
    \blank
\stopxmlsetups

\startxmlsetups xml:reference
    \vfill
    \hfill\strut see:\space
    \xmlflush{#1}
\stopxmlsetups

\startxmlsetups xml:initialize
    \xmlsetsetup {#1} {
        tips|tip|remark|command|reference
    } {xml:*}
\stopxmlsetups

\xmlregisterdocumentsetup{main}{xml:initialize}

\starttext

    \xmlprocessfile{main}{tiptrick.xml}{}

\stoptext
