Re: finishing a module

[Hans Hagen <pragma@wxs.nl>]

Thomas A.Schmitz wrote:

> If anybody can spare five minutes, I append what I have got so far;  
> maybe I'm overlooking something obvious. Sorry for the lengthy post and  
> for taking your time!

hm, this is a ll i can do in five minutes:

- just use the fontname remapper instead of processaction and intermediate vars
- use getvariables instead of interface specific getparameters
- end the par inside the start/stopgreek
- no low level hacking needed


\starttext

\setvariables[Greek][scale=1,font=Kadmos]

\definefontsynonym[Oxonia]  [greeoxon]
\definefontsynonym[Ibycus]  [fibr]
\definefontsynonym[Bosporos][bosporos]
\definefontsynonym[Gentium] [gentiumgr]
\definefontsynonym[Kadmos]  [kadmo]
\definefontsynonym[Leipzig] [grbl]
\definefontsynonym[Teubner] [teubnerc]

% \definefont[Gf][\getvariable{Greek}{font} sa \getvariable{Greek}{scale}]

\definebodyfont
   [4pt,5pt,6pt,7pt,8pt,9pt,10pt,10.5pt,11pt,12pt,
    14pt,14.4pt,16pt,18pt,20pt,22pt]
   [rm]
   [Gf=\getvariable{Greek}{font} sa \getvariable{Greek}{scale}]

\def\enablegreek
   {\language[greek]%
    \catcode`~=\other
    \catcode`|=\other
    \catcode`'=\other}

\def\startgreek{\par\begingroup\Gf\enablegreek}
\def\stopgreek {\par\endgroup}

\def\localgreek{\groupedcommand{\Gf\enablegreek}\donothing}

\define\sampi  {{\Gf \char 34}}
\define\digamma{{\Gf \char 35}}
\define\stigma {{\Gf \char 36}}
\define\koppa  {{\Gf \char 37}}
\define\lunars {{\Gf \char  1}}
\define\lunarS {{\Gf \char 13}}
\define\brcl   {{\Gf \char  8}}
\define\brcr   {{\Gf \char  9}}
\define\hbrl   {{\Gf \char123}}
\define\hbrr   {{\Gf \char125}}
\define\crux   {{\Gf \char 43}}

I have no greek, so: \definefontsynonym[kadmo][cmvtt10] \crux

\stoptext



> Thanks everybody!
> 
> Thomas
> 
> %module t-greek providing method for Greek input in ConTeXt
> 
> \unprotect
> 
> \def\setupgreek#1[#2]{%
>   \getparameters[GG][Scale=,Font=,#2]%Font,Scale
> \xdef\MyScale{\GGScale}%
> \processaction[\GGFont]
>    [  Oxonia=>\gdef\MyFont{greeoxon },%this switches from the "logical"  
> name of the font to the actual tfm
>       Ibycus=>\gdef\MyFont{fibr },
>     Bosporos=>\gdef\MyFont{Bosporos },
>      Gentium=>\gdef\MyFont{gentiumgr },
>       Kadmos=>\gdef\MyFont{kadmo },
>      Leipzig=>\gdef\MyFont{grbl },
>      Teubner=>\gdef\MyFont{Teubnerc }]%
> }
> 
> \protect
> 
> %\definefont[Gf][kadmo ] %When given the name of the tfm in clear, this  
> works
> 
> %\definefont[Gf][\MyFont]%This does not work, and I have no clue why
> 
> \definebodyfont[4pt,5pt,6pt,7pt,8pt,9pt,10pt,10.5pt,11pt,12pt,14pt,14.4p 
> t,16pt,18pt,20pt,22pt][rm][Gf=\MyFont sa \MyScale] %This DOES work, and  
> I can't see what's the fundamental difference to the preceding line.
> 
> \def\enablegreek{\language[greek]\catcode`~=\other\catcode`|=\other\catc 
> ode`'=\other}%this was provided by Giuseppe
> 
> \def\startgreek{\par\begingroup\Gf\enablegreek}
> 
> \let\stopgreek\endgroup
> 
> \def\localgreek{\groupedcommand{\Gf\enablegreek}{}}
> 
> \define\sampi{{\Gf \char34}}%and this by Taco
> 
> \define\digamma{{\Gf \char35}}
> 
> \define\stigma{{\Gf \char36}}
> 
> \define\koppa{{\Gf \char37}}
> 
> \define\lunars{{\Gf \char1}}
> 
> \define\lunarS{{\Gf \char13}}
> 
> \define\brcl{{\Gf \char8}}
> 
> \define\brcr{{\Gf \char9}}
> 
> \define\hbrl{{\Gf \char123}}
> 
> \define\hbrr{{\Gf \char125}}
> 
> \define\crux{{\Gf \char43}}
> 
> On Jan 23, 2005, at 10:24 PM, h h extern wrote:
> 
>> Thomas A.Schmitz wrote:
>>
>>> I spent some (too much) time today improving my Greek module. For 
>>> the   time being, two questions remain; I'm confident that they're 
>>> not too   difficult for the experts; any help would be appreciated.
>>
>>
>> what exactly do you want to achieve, if it's only some font following  
>> the sizes and styyles ...
>>
>> \definefontsynonym [Funny]            [cmr10]
>> \definefontsynonym [FunnyBold]        [cmbx10]
>> \definefontsynonym [FunnyItalic]      [cmti10]
>> % \definefontsynonym [FunnySlanted]     [...]
>> % \definefontsynonym [FunnyBoldItalic]  [...]
>> % \definefontsynonym [FunnyBoldSlanted] [...]
>>
>> \def\MyFunnyFont{\symbolicfont{Funny}}
>>
>> test {\MyFunnyFont test} test
>> test {\it \MyFunnyFont test} test
>> test {\bf \MyFunnyFont test} test
>>
>>
>> -----------------------------------------------------------------
>>                                           Hans Hagen | PRAGMA ADE
>>               Ridderstraat 27 | 8061 GH Hasselt | The Netherlands
>>      tel: 038 477 53 69 | fax: 038 477 53 74 | www.pragma-ade.com
>>                                              | www.pragma-pod.nl
>> -----------------------------------------------------------------
>>
>> _______________________________________________
>> ntg-context mailing list
>> ntg-context@ntg.nl
>> http://www.ntg.nl/mailman/listinfo/ntg-context
>>
> 
> _______________________________________________
> ntg-context mailing list
> ntg-context@ntg.nl
> http://www.ntg.nl/mailman/listinfo/ntg-context
> 
> 
> 


-- 

-----------------------------------------------------------------
                                           Hans Hagen | PRAGMA ADE
               Ridderstraat 27 | 8061 GH Hasselt | The Netherlands
      tel: 038 477 53 69 | fax: 038 477 53 74 | www.pragma-ade.com
                                              | www.pragma-pod.nl
-----------------------------------------------------------------