Adding font commands

[Michel Bovani <michel.bovani@wanadoo.fr>]

I have added some fonts commands because I want to be able to use semi-bold,
extra-bold and a variant of the text font with old style digits.

Is there a standard way for that in context ?

I used

\definebodyfont
[17.3pt,14.4pt,12pt,11pt,10pt,9pt,8pt,7pt,6pt,5pt,4pt]
[rm] [ tf=Serif sa 1,
...
db=SerifSemiBold sa 1,
dba=SerifSemiBold sa a,dbb=SerifSemiBold sa b,
dbc=SerifSemiBold sa c,dbd=SerifSemiBold sa d,
dbx=SerifSemiBold sa x,dbxx=SerifSemiBold sa xx,
di=SerifSemiItalic sa 1,
dia=SerifSemiItalic sa a,dib=SerifSemiItalic sa b,
dic=SerifSemiItalic sa c,did=SerifSemiItalic sa d,
dix=SerifSemiItalic sa x,dixx=SerifSemiItalic sa xx,
ds=SerifSemiSlanted sa 1,
dsa=SerifSemiSlanted sa a,dsb=SerifSemiSlanted sa b,
dsc=SerifSemiSlanted sa c,dsd=SerifSemiSlanted sa d,
dsx=SerifSemiSlanted sa x,dsxx=SerifSemiSlanted sa xx,
dc=SerifSemiCaps sa 1,
dca=SerifSemiCaps sa a,dcb=SerifSemiCaps sa b,
dcc=SerifSemiCaps sa c,dcd=SerifSemiCaps sa d,
dcx=SerifSemiCaps sa x,dcxx=SerifSemiCaps sa xx,
...
ebf=SerifBlack sa 1,
ebfa=SerifBlack sa a,ebfb=SerifBlack sa b,
ebfc=SerifBlack sa c,ebfd=SerifBlack sa d,
ebfx=SerifBlack sa x,ebfxx=SerifBlack sa xx,
ebs=SerifBlackSlanted sa 1,
ebsa=SerifBlackSlanted sa a,ebsb=SerifBlackSlanted sa b,
ebsc=SerifBlackSlanted sa c,ebsd=SerifBlackSlanted sa d,
ebsx=SerifBlackSlanted sa x,ebsxx=SerifBlackSlanted sa xx
]

and for the old-style variant

\definebodyfont
[17.3pt,14.4pt,12pt,11pt,10pt,9pt,8pt,7pt,6pt,5pt,4pt]
[ro] [ tf=Serif-OldStyle sa 1,
it=SerifItalic-OldStyle sa 1,
sl=SerifSlanted-OldStyle sa 1,
sc=SerifCaps-OldStyle sa 1,
db=SerifSemiBold-OldStyle sa 1,
...
]

are commands like \db \di \ds \ebf \ebs and \ro convenient in terms of
ConTeXt interface ?

Of course I use \definefontsynonym to map things like SerifItalic-OldStyle
to a real tfm font.

-- 
Michel Bovani