diff options
author | Marius <mariausol@gmail.com> | 2013-12-29 20:40:28 +0200 |
---|---|---|
committer | Marius <mariausol@gmail.com> | 2013-12-29 20:40:28 +0200 |
commit | 07affb8dd8042a83c7d54d7c0bb7137ce04f987f (patch) | |
tree | 85c7b454bfa0651f7b84586fec41a6c604dc3462 /tex/context/base/char-tex.lua | |
parent | 0d26f9ebc9ba7dca60bf49c5de8ca6c1c197c608 (diff) | |
download | context-07affb8dd8042a83c7d54d7c0bb7137ce04f987f.tar.gz |
beta 2013.12.29 19:28
Diffstat (limited to 'tex/context/base/char-tex.lua')
-rw-r--r-- | tex/context/base/char-tex.lua | 29 |
1 files changed, 19 insertions, 10 deletions
diff --git a/tex/context/base/char-tex.lua b/tex/context/base/char-tex.lua index 3fa140c7d..472cae930 100644 --- a/tex/context/base/char-tex.lua +++ b/tex/context/base/char-tex.lua @@ -22,7 +22,7 @@ local accentmapping = allocate { ['"'] = { [""] = "¨", A = "Ä", a = "ä", E = "Ë", e = "ë", - I = "Ï", i = "ï", ["ı"] = "ï", + I = "Ï", i = "ï", ["ı"] = "ï", ["\\i"] = "ï", O = "Ö", o = "ö", U = "Ü", u = "ü", Y = "Ÿ", y = "ÿ", @@ -31,7 +31,7 @@ local accentmapping = allocate { A = "Á", a = "á", C = "Ć", c = "ć", E = "É", e = "é", - I = "Í", i = "í", ["ı"] = "í", + I = "Í", i = "í", ["ı"] = "í", ["\\i"] = "í", L = "Ĺ", l = "ĺ", N = "Ń", n = "ń", O = "Ó", o = "ó", @@ -45,13 +45,13 @@ local accentmapping = allocate { C = "Ċ", c = "ċ", E = "Ė", e = "ė", G = "Ġ", g = "ġ", - I = "İ", i = "i", ["ı"] = "i", + I = "İ", i = "i", ["ı"] = "i", ["\\i"] = "i", Z = "Ż", z = "ż", }, ["="] = { [""] = "¯", A = "Ā", a = "ā", E = "Ē", e = "ē", - I = "Ī", i = "ī", ["ı"] = "ī", + I = "Ī", i = "ī", ["ı"] = "ī", ["\\i"] = "ī", O = "Ō", o = "ō", U = "Ū", u = "ū", }, @@ -65,7 +65,7 @@ local accentmapping = allocate { E = "Ê", e = "ê", G = "Ĝ", g = "ĝ", H = "Ĥ", h = "ĥ", - I = "Î", i = "î", ["ı"] = "î", + I = "Î", i = "î", ["ı"] = "î", ["\\i"] = "î", J = "Ĵ", j = "ĵ", O = "Ô", o = "ô", S = "Ŝ", s = "ŝ", @@ -76,7 +76,7 @@ local accentmapping = allocate { ["`"] = { [""] = "`", A = "À", a = "à", E = "È", e = "è", - I = "Ì", i = "ì", ["ı"] = "ì", + I = "Ì", i = "ì", ["ı"] = "ì", ["\\i"] = "ì", O = "Ò", o = "ò", U = "Ù", u = "ù", Y = "Ỳ", y = "ỳ", @@ -104,7 +104,7 @@ local accentmapping = allocate { A = "Ă", a = "ă", E = "Ĕ", e = "ĕ", G = "Ğ", g = "ğ", - I = "Ĭ", i = "ĭ", ["ı"] = "ĭ", + I = "Ĭ", i = "ĭ", ["ı"] = "ĭ", ["\\i"] = "ĭ", O = "Ŏ", o = "ŏ", U = "Ŭ", u = "ŭ", }, @@ -121,7 +121,7 @@ local accentmapping = allocate { }, ["~"] = { [""] = "˜", A = "Ã", a = "ã", - I = "Ĩ", i = "ĩ", ["ı"] = "ĩ", + I = "Ĩ", i = "ĩ", ["ı"] = "ĩ", ["\\i"] = "ĩ", N = "Ñ", n = "ñ", O = "Õ", o = "õ", U = "Ũ", u = "ũ", @@ -179,22 +179,28 @@ local command_map = allocate { ["AE"] = "Æ", ["oe"] = "œ", ["OE"] = "Œ", + ["o"] = "ø", + ["O"] = "Ø", + ["aa"] = "å", + ["AA"] = "Å", } -- no need for U here +local achar = R("az","AZ") + P("ı") + P("\\i") + local spaces = P(" ")^0 local no_l = P("{") / "" local no_r = P("}") / "" local no_b = P('\\') / "" -local lUr = P("{") * C(R("az","AZ")) * P("}") +local lUr = P("{") * C(achar) * P("}") local accents_1 = [["'.=^`~]] local accents_2 = [[Hckruv]] local accent = P('\\') * ( - C(S(accents_1)) * (lUr * Cc(true) + C(R("az","AZ")) * Cc(false)) + + C(S(accents_1)) * (lUr * Cc(true) + C(achar) * Cc(false)) + -- we need achar for ı etc, could be sped up C(S(accents_2)) * lUr * Cc(true) ) / remap_accent @@ -227,6 +233,9 @@ function characters.tex.toutf(str,strip) end end +-- print(characters.tex.toutf([[\~{Z}]],true)) +-- print(characters.tex.toutf([[\'\i]],true)) +-- print(characters.tex.toutf([[\'{\i}]],true)) -- print(characters.tex.toutf([[\"{e}]],true)) -- print(characters.tex.toutf([[\" {e}]],true)) -- print(characters.tex.toutf([[{\"{e}}]],true)) |