%D \module
%D   [       file=symb-glm,
%D        version=2002.05.07,
%D          title=\CONTEXT\ Symbol Libraries,
%D       subtitle=Guillemots,
%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 Watch the \type {met} instead of \type {mot}!

\loadmapfile [pl0-ams-cmr]
 
\definefontsynonym [GuilSerif]            [plr10]    [encoding=pl0]
\definefontsynonym [GuilSerifBold]        [plbx10]   [encoding=pl0]
\definefontsynonym [GuilSerifItalic]      [plti10]   [encoding=pl0]
\definefontsynonym [GuilSerifSlanted]     [plsl10]   [encoding=pl0]
\definefontsynonym [GuilSerifBoldItalic]  [plbxti10] [encoding=pl0]
\definefontsynonym [GuilSerifBoldSlanted] [plbxsl10] [encoding=pl0]

\definefontsynonym [GuilSans]             [plss10]   [encoding=pl0]
\definefontsynonym [GuilSansBold]         [plssbx10] [encoding=pl0]
\definefontsynonym [GuilSansItalic]       [plssi10]  [encoding=pl0]
\definefontsynonym [GuilSansSlanted]      [plssi10]  [encoding=pl0]
\definefontsynonym [GuilSansBoldItalic]   [plssbi10] [encoding=pl0]
\definefontsynonym [GuilSansBoldSlanted]  [plssbi10] [encoding=pl0]

\definefontsynonym [GuilMono]             [pltt10]   [encoding=pl0]
%definefontsynonym [GuilMonoBold]         [pltt10]   [encoding=pl0]
%definefontsynonym [GuilMonoSlanted]      [pltt10]   [encoding=pl0]
%definefontsynonym [GuilMonoItalic]       [pltt10]   [encoding=pl0]
%definefontsynonym [GuilMonoBoldItalic]   [pltt10]   [encoding=pl0]
%definefontsynonym [GuilMonoBoldSlanted]  [pltt10]   [encoding=pl0]

\definesymbol [leftguillemet]  [\getglyph{Guil}{\char174}]
\definesymbol [rightguillemet] [\getglyph{Guil}{\char175}]

%D A strange place, but okay: 

\startencoding [default]

  \definecharacter leftguillemot     {\symbol[leftguillemet]}
  \definecharacter rightguillemot    {\symbol[rightguillemet]}

  \definecharacter guilsingleleft    {\symbol[leftguillemet]}
  \definecharacter guilsingleright   {\symbol[rightguillemet]}

\stopencoding

\endinput 
