Solution. Only one problem left ($ in file name)

[Gerben Wierda <Gerben.Wierda@rna.nl>]

The solution to my search (thanks Wolfgang for your help) is below. I  
have two overlays, one for the PDF and one for the rotated heading. I  
reset the heading's setups at every \typeSQLfile so the name gets  
changed. I just add both backgrounds (this is why I like ConTeXt,  
stuff like that (background=header becomes  
background={header,ifsqoverlay} just works.

What is left now is that the \expanded, \detokenize and stuff is still  
not able to typefile files with $ in their name. For files with _ in  
their name, it works  now. WIthout the expanded stuff in

\expanded{\typeSQLfile{\detokenize{Library-procedures/hlx$requery.pls}}}

the TeX job crashes because of the $ in the file name. WIth it it does  
not crash but I get

[fileLibrary-procedures/hlx$requery.pls does not exist]

WIth

\typeSQLfile{Library-procedures/hlx\$requery.pls}

it also does not crash, but I get

[fileLibrary-procedures/hlx\$requery.pls does not exist]

G

Solution so far:


\def\IfSQprojectname{Foo}
\definetyping[SQL][option=color,numbering=line,bodyfont=9pt]
\setuppapersize[A4,landscape][a4,landscape]
\setuptyping[SQL][palet=colorpretty]

\setuplayout
  [leftmargin=20mm,
   leftmargindistance=5mm,
   footer=0mm,
   header=0mm,
   rightmargin=0mm]

\definelayer[header][width=\paperwidth,height=\paperheight]
\defineoverlay[ifsqoverlay][\overlayfigure{IfSQ-overlay.pdf}]
\setupbackgrounds[page] 
[setups={header:margin},background={header,ifsqoverlay}]

\def\typeSQLfile#1{%
\startsetups header:margin
  \setlayerframed
    [header]
    [hoffset=\dimexpr\backspace-\leftmarginwidth-\leftmargindistance 
\relax,
     voffset=\dimexpr\topspace+\headerheight+\headerdistance\relax]
    [frame=off,
     orientation=90,
     width=\leftmarginwidth,
     height=\textheight,
     align={top,middle}]
    {\detokenize{#1}\hfil\pagenumber\hfil \IfSQprojectname, \date}
\stopsetups
\pagebreak\expanded{\typefile[SQL]{\detokenize{#1}}}}

\starttext
\typeSQLfile{Library-procedures/aanroep_kgcpros20.pls}
\typeSQLfile{Library-procedures/details.pls}
\expanded{\typeSQLfile{\detokenize{Library-procedures/hlx$requery.pls}}}
\stoptext

On 26 Jun 2009, at 10:47, Gerben Wierda wrote:

> On 26 Jun 2009, at 10:05, Wolfgang Schuster wrote:
>
>>> And while I'm at it, if I want a heading in the left margin as  
>>> well, but I want it 90 degrees rotated, how do I do that?
>>
>> \setuplayout
>> [leftmargin=1cm,
>>  leftmargindistance=5mm]
>>
>> \startsetups header:margin
>>
>> \framed
>>   [frame=off,
>>    orientation=90,
>>    width=\leftmarginwidth,
>>    height=\textheight,
>>    align={middle,middle}]
>>   {My document\hfil\pagenumber\hfil My name}
>>
>> \stopsetups
>>
>> \defineoverlay[header:margin][\setups{header:margin}]
>>
>> \setupbackgrounds[text][leftmargin][background={header:margin}]
>>
>> \starttext
>>
>> ...
>>
>> \stoptext
>
> Thanks. Almost there. I now have:
>
> \definetyping[SQL][option=color,numbering=line,bodyfont=9pt]
> \defineoverlay[ifsqoverlay][\overlayfigure{IfSQ-overlay.pdf}]
> \setuppapersize[A4,landscape][a4,landscape]
> \setupbackgrounds[page][background=ifsqoverlay]
> \setuptyping[SQL][palet=colorpretty]
> \def\typeSQLfile{\typefile[SQL]}
>
> \setuplayout
> [leftmargin=1cm,
>  leftmargindistance=5mm,
>  footer=0mm,
>  header=0mm,
>  rightmargin=0mm]
>
> \startsetups header:margin
> \framed
>   [frame=off,
>    orientation=90,
>    width=2\leftmarginwidth,
>    height=\textheight,
>    align={top,middle}]
>   {My document\hfil\pagenumber\hfil My name}
> \stopsetups
>
> \defineoverlay[header:margin][\setups{header:margin}]
>
> \setupbackgrounds[text][leftmargin][background={header:margin}]
> \starttext
> \typeSQLfile{Library-procedures/details.pls}
> %\typeSQLfile{Library-procedures/aanroep_kgcpros20.pls}
> %\typeSQLfile{Library-procedures/details.pls}
> %\typeSQLfile{Library-procedures/foo_print.pls}
> %\typeSQLfile{Library-procedures/hlx$requery.pls}
> %\typeSQLfile{Library-procedures/kgc$adm_meerling.pls}
> %\typeSQLfile{Library-procedures/kgc$bereken.pls}
> %\typeSQLfile{Library-procedures/kgc$datum.pls}
> %\typeSQLfile{Library-procedures/kgc$item.pls}
> %\typeSQLfile{Library-procedures/kgc$tab.pls}
> %\typeSQLfile{Library-procedures/kgc$toon.pls}
> %\typeSQLfile{Library-procedures/print_uitslagbrief.pls}
> %\typeSQLfile{Library-procedures/qms$record.pls}
> %\typeSQLfile{Library-procedures/voeruit_idef.pls}
> %\typeSQLfile{Library-procedures/vul_onwy_list.pls}
> %\typeSQLfile{Library-procedures/zoek_item.pls}
> \stoptext
>
> I do now have a rotated 'header' on the left side. And thanks to the  
> larger width and the top aligment, the rotated 'heading' does not  
> conflict with the line numbers.
>
> But ... the page number is '1' on every page
>
> And the I'd like to change the definition of the \typeSQLfile  
> command such that it changes the document name in the rotated header  
> too.
>
> G
>
> ___________________________________________________________________________________
> 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
> ___________________________________________________________________________________
>

___________________________________________________________________________________
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
___________________________________________________________________________________