1 files changed, 145 insertions, 272 deletions
diff --git a/tex/context/base/enco-grk.tex b/tex/context/base/enco-grk.tex
index dbab21302..039b44f11 100644
--- a/tex/context/base/enco-grk.tex
+++ b/tex/context/base/enco-grk.tex
@@ -11,307 +11,180 @@
 %C therefore copyrighted by \PRAGMA. See mreadme.pdf for
 %C details.
 
-
-\startencoding[default]
-
-%
-% Uppercase Greek letters
-%
-
-\definecharacter GreekAlpha        {A}
-\definecharacter GreekBeta         {B}
-\definecharacter GreekGamma        {G}
-\definecharacter GreekDelta        {D}
-\definecharacter GreekEpsilon      {E}
-\definecharacter GreekZeta         {Z}
-\definecharacter GreekEta          {H}
-\definecharacter GreekTheta        {J}
-\definecharacter GreekIota         {I}
-\definecharacter GreekKappa        {K}
-\definecharacter GreekLamda        {L}
-\definecharacter GreekMu           {M}
-\definecharacter GreekNu           {N}
-\definecharacter GreekXi           {X}
-\definecharacter GreekOmicron      {O}
-\definecharacter GreekPi           {P}
-\definecharacter GreekRho          {R}
-\definecharacter GreekSigma        {S}
-\definecharacter GreekTau          {T}
-\definecharacter GreekUpsilon      {U}
-\definecharacter GreekPhi          {F}
-\definecharacter GreekChi          {Q}
-\definecharacter GreekPsi          {Y}
-\definecharacter GreekOmega        {W}
-
-%
-% Lowercase Greek letters
-%
-
-\definecharacter Greekalpha        {a}
-\definecharacter Greekbeta         {b}
-\definecharacter Greekgamma        {g}
-\definecharacter Greekdelta        {d}
-\definecharacter Greekepsilon      {e}
-\definecharacter Greekzeta         {z}
-\definecharacter Greeketa          {h}
-\definecharacter Greektheta        {j}
-\definecharacter Greekiota         {i}
-\definecharacter Greekkappa        {k}
-\definecharacter Greeklamda        {l}
-\definecharacter Greekmu           {m}
-\definecharacter Greeknu           {n}
-\definecharacter Greekxi           {x}
-\definecharacter Greekomicron      {o}
-\definecharacter Greekpi           {p}
-\definecharacter Greekrho          {r}
-\definecharacter Greekfinalsigma   {c}
-\definecharacter Greeksigma        {s}
-\definecharacter Greektau          {t}
-\definecharacter Greekupsilon      {u}
-\definecharacter Greekphi          {f}
-\definecharacter Greekchi          {q}
-\definecharacter Greekpsi          {y}
-\definecharacter Greekomega        {w}
-
-%
-% Accented Uppercase Greek letters
-%
-
-\definecharacter GreekAlphatonos        {'A}
-\definecharacter GreekEpsilontonos      {'E}
-\definecharacter GreekEtatonos          {'H}
-\definecharacter GreekIotatonos         {'I}
-\definecharacter GreekOmicrontonos      {'O}
-\definecharacter GreekUpsilontonos      {'U}
-\definecharacter GreekOmegatonos        {'W}
-\definecharacter GreekIotadialytika     {"I}
-\definecharacter GreekUpsilondialytika  {"U}
-
-%
-% Accented Lowercase Greek letters
-%
-
-\definecharacter Greekalphatonos             {'a}
-\definecharacter Greekepsilontonos           {'e}
-\definecharacter Greeketatonos               {'h}
-\definecharacter Greekiotatonos              {'i}
-\definecharacter Greekomicrontonos           {'o}
-\definecharacter Greekupsilontonos           {'u}
-\definecharacter Greekomegatonos             {'w}
-\definecharacter Greekiotadialytika          {"i}
-\definecharacter Greekupsilondialytika       {"u}
-\definecharacter Greekiotadialytikatonos     {'"i}
-\definecharacter Greekupsilondialytikatonos  {'"u}
-
-%
-% Miscellaneous Greek symbols
-%
-
-\definecharacter Greekleftquot               {((}
-\definecharacter Greekrightquot              {))}
-\definecharacter Greektonos                  {'}
-\definecharacter Greekdialytikatonos         {'"}
-\definecharacter Greekapostrophos            {''}
-
-\stopencoding 
-
-%%% Note that with the command 
-%%% \definecasemap 165 181 165
-%%% character 165 becomes 181 in uppercase and 165 in lowercase
-
 \startmapping[iso-8859-7]
 
-%
 % Uppercase Greek letters
-% 
 
-\definecasemap 193 193 225 % GreekAlpha  
-\definecasemap 194 194 226 % GreekBeta   
-\definecasemap 195 195 227 % GreekGamma  
-\definecasemap 196 196 228 % GreekDelta  
-\definecasemap 197 197 229 % GreekEpsilon
-\definecasemap 198 198 230 % GreekZeta   
-\definecasemap 199 199 213 % GreekEta    
-\definecasemap 200 200 232 % GreekTheta  
-\definecasemap 201 201 233 % GreekIota   
-\definecasemap 202 202 234 % GreekKappa  
-\definecasemap 203 203 235 % GreekLamda  
-\definecasemap 204 204 236 % GreekMu     
-\definecasemap 205 205 237 % GreekNu     
-\definecasemap 206 206 238 % GreekXi     
-\definecasemap 207 207 239 % GreekOmicron
-\definecasemap 208 208 240 % GreekPi     
-\definecasemap 209 209 241 % GreekRho    
-\definecasemap 211 211 243 % GreekSigma  
-\definecasemap 212 212 244 % GreekTau    
-\definecasemap 213 213 245 % GreekUpsilon
-\definecasemap 214 214 246 % GreekPhi    
-\definecasemap 215 215 247 % GreekChi    
-\definecasemap 216 216 248 % GreekPsi    
-\definecasemap 217 217 249 % GreekOmega  
+\definecasemap 193 193 225 % greekAlpha
+\definecasemap 194 194 226 % greekBeta
+\definecasemap 195 195 227 % greekGamma
+\definecasemap 196 196 228 % greekDelta
+\definecasemap 197 197 229 % greekEpsilon
+\definecasemap 198 198 230 % greekZeta
+\definecasemap 199 199 213 % greekEta
+\definecasemap 200 200 232 % greekTheta
+\definecasemap 201 201 233 % greekIota
+\definecasemap 202 202 234 % greekKappa
+\definecasemap 203 203 235 % greekLamda
+\definecasemap 204 204 236 % greekMu
+\definecasemap 205 205 237 % greekNu
+\definecasemap 206 206 238 % greekXi
+\definecasemap 207 207 239 % greekOmicron
+\definecasemap 208 208 240 % greekPi
+\definecasemap 209 209 241 % greekRho
+\definecasemap 211 211 243 % greekSigma
+\definecasemap 212 212 244 % greekTau
+\definecasemap 213 213 245 % greekUpsilon
+\definecasemap 214 214 246 % greekPhi
+\definecasemap 215 215 247 % greekChi
+\definecasemap 216 216 248 % greekPsi
+\definecasemap 217 217 249 % greekOmega
 
-%
 % Lowercase Greek letters
-%
 
-\definecasemap 225 193 225 % Greekalpha  
-\definecasemap 226 194 226 % Greekbeta   
-\definecasemap 227 195 227 % Greekgamma  
-\definecasemap 228 196 228 % Greekdelta  
-\definecasemap 229 197 229 % Greekepsilon
-\definecasemap 230 198 230 % Greekzeta   
-\definecasemap 213 199 213 % Greeketa    
-\definecasemap 232 200 232 % Greektheta  
-\definecasemap 233 201 233 % Greekiota   
-\definecasemap 234 202 234 % Greekkappa  
-\definecasemap 235 203 235 % Greeklamda  
-\definecasemap 236 204 236 % Greekmu     
-\definecasemap 237 205 237 % Greeknu     
-\definecasemap 238 206 238 % Greekxi     
-\definecasemap 239 207 239 % Greekomicron
-\definecasemap 240 208 240 % Greekpi     
-\definecasemap 241 209 241 % Greekrho
-\definecasemap 242 211 242 % Greekfinalsigma    
-\definecasemap 243 211 243 % GreekSigma  
-\definecasemap 244 212 244 % GreekTau    
-\definecasemap 245 213 245 % GreekUpsilon
-\definecasemap 246 214 246 % GreekPhi    
-\definecasemap 247 215 247 % GreekChi    
-\definecasemap 248 216 248 % GreekPsi    
-\definecasemap 249 217 249 % GreekOmega  
+\definecasemap 225 193 225 % greekalpha
+\definecasemap 226 194 226 % greekbeta
+\definecasemap 227 195 227 % greekgamma
+\definecasemap 228 196 228 % greekdelta
+\definecasemap 229 197 229 % greekepsilon
+\definecasemap 230 198 230 % greekzeta
+\definecasemap 213 199 213 % greeketa
+\definecasemap 232 200 232 % greektheta
+\definecasemap 233 201 233 % greekiota
+\definecasemap 234 202 234 % greekkappa
+\definecasemap 235 203 235 % greeklamda
+\definecasemap 236 204 236 % greekmu
+\definecasemap 237 205 237 % greeknu
+\definecasemap 238 206 238 % greekxi
+\definecasemap 239 207 239 % greekomicron
+\definecasemap 240 208 240 % greekpi
+\definecasemap 241 209 241 % greekrho
+\definecasemap 242 211 242 % greekfinalsigma
+\definecasemap 243 211 243 % greekSigma
+\definecasemap 244 212 244 % greekTau
+\definecasemap 245 213 245 % greekUpsilon
+\definecasemap 246 214 246 % greekPhi
+\definecasemap 247 215 247 % greekChi
+\definecasemap 248 216 248 % greekPsi
+\definecasemap 249 217 249 % greekOmega
 
-%
 % Accented Uppercase Greek letters
-%
 
-\definecasemap 182 193 220  % GreekAlphatonos
-\definecasemap 184 197 221  % GreekEpsilontonos
-\definecasemap 185 199 222  % GreekEtatonos
-\definecasemap 186 201 223  % GreekIotatonos
-\definecasemap 188 207 252  % GreekOmicrontonos
-\definecasemap 190 213 253  % GreekUpsilontonos
-\definecasemap 191 217 254  % GreekOmegatonos
-\definecasemap 218 218 250  % GreekIotadialytika
-\definecasemap 219 219 251  % GreekUpsilondialytika
+\definecasemap 182 193 220  % greekAlphatonos
+\definecasemap 184 197 221  % greekEpsilontonos
+\definecasemap 185 199 222  % greekEtatonos
+\definecasemap 186 201 223  % greekIotatonos
+\definecasemap 188 207 252  % greekOmicrontonos
+\definecasemap 190 213 253  % greekUpsilontonos
+\definecasemap 191 217 254  % greekOmegatonos
+\definecasemap 218 218 250  % greekIotadialytika
+\definecasemap 219 219 251  % greekUpsilondialytika
 
-%
 % Accented Lowercase Greek letters
-%
-
-\definecasemap 220 193 220  % Greekalphatonos
-\definecasemap 221 197 221  % Greekepsilontonos
-\definecasemap 222 199 222  % Greeketatonos
-\definecasemap 223 201 223  % Greekiotatonos
-\definecasemap 252 207 252  % Greekomicrontonos
-\definecasemap 253 213 253  % Greekupsilontonos
-\definecasemap 254 217 254  % Greekomegatonos
-\definecasemap 250 218 250  % Greekiotadialytika
-\definecasemap 251 219 251  % Greekupsilondialytika
-\definecasemap 192 218 192  % Greekiotadialytikatonos
-\definecasemap 224 219 224  % Greekupsilondialytikatonos
 
+\definecasemap 220 193 220  % greekalphatonos
+\definecasemap 221 197 221  % greekepsilontonos
+\definecasemap 222 199 222  % greeketatonos
+\definecasemap 223 201 223  % greekiotatonos
+\definecasemap 252 207 252  % greekomicrontonos
+\definecasemap 253 213 253  % greekupsilontonos
+\definecasemap 254 217 254  % greekomegatonos
+\definecasemap 250 218 250  % greekiotadialytika
+\definecasemap 251 219 251  % greekupsilondialytika
+\definecasemap 192 218 192  % greekiotadialytikatonos
+\definecasemap 224 219 224  % greekupsilondialytikatonos
 
-\stopencoding 
+\stopencoding
 
 \startencoding[iso-8859-7]
 
-%
 % Uppercase Greek letters
-%
 
-\definecharacter GreekAlpha        193
-\definecharacter GreekBeta         194
-\definecharacter GreekGamma        195
-\definecharacter GreekDelta        196
-\definecharacter GreekEpsilon      197
-\definecharacter GreekZeta         198
-\definecharacter GreekEta          199
-\definecharacter GreekTheta        200
-\definecharacter GreekIota         201
-\definecharacter GreekKappa        202
-\definecharacter GreekLamda        203
-\definecharacter GreekMu           204
-\definecharacter GreekNu           205
-\definecharacter GreekXi           206
-\definecharacter GreekOmicron      207
-\definecharacter GreekPi           208
-\definecharacter GreekRho          209
-\definecharacter GreekSigma        211
-\definecharacter GreekTau          212
-\definecharacter GreekUpsilon      213
-\definecharacter GreekPhi          214
-\definecharacter GreekChi          215
-\definecharacter GreekPsi          216
-\definecharacter GreekOmega        217
+\definecharacter greekAlpha        193
+\definecharacter greekBeta         194
+\definecharacter greekGamma        195
+\definecharacter greekDelta        196
+\definecharacter greekEpsilon      197
+\definecharacter greekZeta         198
+\definecharacter greekEta          199
+\definecharacter greekTheta        200
+\definecharacter greekIota         201
+\definecharacter greekKappa        202
+\definecharacter greekLamda        203
+\definecharacter greekMu           204
+\definecharacter greekNu           205
+\definecharacter greekXi           206
+\definecharacter greekOmicron      207
+\definecharacter greekPi           208
+\definecharacter greekRho          209
+\definecharacter greekSigma        211
+\definecharacter greekTau          212
+\definecharacter greekUpsilon      213
+\definecharacter greekPhi          214
+\definecharacter greekChi          215
+\definecharacter greekPsi          216
+\definecharacter greekOmega        217
 
-%
 % Lowercase Greek letters
-%
 
-\definecharacter Greekalpha        225
-\definecharacter Greekbeta         226
-\definecharacter Greekgamma        227
-\definecharacter Greekdelta        228
-\definecharacter Greekepsilon      229
-\definecharacter Greekzeta         230
-\definecharacter Greeketa          231
-\definecharacter Greektheta        232
-\definecharacter Greekiota         233
-\definecharacter Greekkappa        234
-\definecharacter Greeklamda        235
-\definecharacter Greekmu           236
-\definecharacter Greeknu           237
-\definecharacter Greekxi           238
-\definecharacter Greekomicron      239
-\definecharacter Greekpi           240
-\definecharacter Greekrho          241
-\definecharacter Greekfinalsigma   242
-\definecharacter Greeksigma        243
-\definecharacter Greektau          244
-\definecharacter Greekupsilon      245
-\definecharacter Greekphi          246
-\definecharacter Greekchi          247
-\definecharacter Greekpsi          248
-\definecharacter Greekomega        249
+\definecharacter greekalpha        225
+\definecharacter greekbeta         226
+\definecharacter greekgamma        227
+\definecharacter greekdelta        228
+\definecharacter greekepsilon      229
+\definecharacter greekzeta         230
+\definecharacter greeketa          231
+\definecharacter greektheta        232
+\definecharacter greekiota         233
+\definecharacter greekkappa        234
+\definecharacter greeklamda        235
+\definecharacter greekmu           236
+\definecharacter greeknu           237
+\definecharacter greekxi           238
+\definecharacter greekomicron      239
+\definecharacter greekpi           240
+\definecharacter greekrho          241
+\definecharacter greekfinalsigma   242
+\definecharacter greeksigma        243
+\definecharacter greektau          244
+\definecharacter greekupsilon      245
+\definecharacter greekphi          246
+\definecharacter greekchi          247
+\definecharacter greekpsi          248
+\definecharacter greekomega        249
 
-%
 % Accented Uppercase Greek letters
-%
 
-\definecharacter GreekAlphatonos        182
-\definecharacter GreekEpsilontonos      184
-\definecharacter GreekEtatonos          185
-\definecharacter GreekIotatonos         186
-\definecharacter GreekOmicrontonos      188
-\definecharacter GreekUpsilontonos      190
-\definecharacter GreekOmegatonos        191
-\definecharacter GreekIotadialytika     218
-\definecharacter GreekUpsilondialytika  219
+\definecharacter greekAlphatonos        182
+\definecharacter greekEpsilontonos      184
+\definecharacter greekEtatonos          185
+\definecharacter greekIotatonos         186
+\definecharacter greekOmicrontonos      188
+\definecharacter greekUpsilontonos      190
+\definecharacter greekOmegatonos        191
+\definecharacter greekIotadialytika     218
+\definecharacter greekUpsilondialytika  219
 
-%
 % Accented Lowercase Greek letters
-%
 
-\definecharacter Greekalphatonos             220   
-\definecharacter Greekepsilontonos           221   
-\definecharacter Greeketatonos               222   
-\definecharacter Greekiotatonos              223   
-\definecharacter Greekomicrontonos           252   
-\definecharacter Greekupsilontonos           253    
-\definecharacter Greekomegatonos             254
-\definecharacter Greekiotadialytika          250
-\definecharacter Greekupsilondialytika       251
-\definecharacter Greekiotadialytikatonos     192
-\definecharacter Greekupsilondialytikatonos  224
+\definecharacter greekalphatonos             220
+\definecharacter greekepsilontonos           221
+\definecharacter greeketatonos               222
+\definecharacter greekiotatonos              223
+\definecharacter greekomicrontonos           252
+\definecharacter greekupsilontonos           253
+\definecharacter greekomegatonos             254
+\definecharacter greekiotadialytika          250
+\definecharacter greekupsilondialytika       251
+\definecharacter greekiotadialytikatonos     192
+\definecharacter greekupsilondialytikatonos  224
 
-%
 % Miscellaneous Greek symbols
-%
 
-\definecharacter Greekleftquot               171
-\definecharacter Greekrightquot              187
-\definecharacter Greektonos                  180
-\definecharacter Greekdialytikatonos         181
-\definecharacter Greekapostrophos            162
+\definecharacter greekleftquot               171
+\definecharacter greekrightquot              187
+\definecharacter greektonos                  180
+\definecharacter greekdialytikatonos         181
+\definecharacter greekapostrophos            162
 
-\stopencoding 
+\stopencoding