diff options
author | Marius <mariausol@gmail.com> | 2011-02-14 20:00:14 +0200 |
---|---|---|
committer | Marius <mariausol@gmail.com> | 2011-02-14 20:00:14 +0200 |
commit | 1d534cdaf5a15ab7191504b5b82d78d8f54435b9 (patch) | |
tree | b18b7f9fa25fd28ccded25e10e166d02aa9ddd18 /tex/context/base/sort-lan.lua | |
parent | ab20b3338556714d8be0ae8fbf8d79a7cfe70e21 (diff) | |
download | context-1d534cdaf5a15ab7191504b5b82d78d8f54435b9.tar.gz |
beta 2011.02.14 18:50
Diffstat (limited to 'tex/context/base/sort-lan.lua')
-rw-r--r-- | tex/context/base/sort-lan.lua | 23 |
1 files changed, 21 insertions, 2 deletions
diff --git a/tex/context/base/sort-lan.lua b/tex/context/base/sort-lan.lua index 0c3ece223..452423842 100644 --- a/tex/context/base/sort-lan.lua +++ b/tex/context/base/sort-lan.lua @@ -860,13 +860,32 @@ definitions["et"] = { --- Korean -local firstcharacter = languages.firstcharacters.korean +local shchars = characters.shchars function firstofsplit(first) - first = utfchar(firstcharacter(utfbyte(first))) + first = shchars[first] or first return first, first -- entry, tag end definitions["kr"] = { firstofsplit = firstofsplit, + orders = { -- copying utf fails somehow + "ㄱ", -- utfchar(0x3131), + "ㄴ", -- utfchar(0x3134), + "ㄷ", -- utfchar(0x3137), + "ㄹ", -- utfchar(0x3139), + "ㅁ", -- utfchar(0x3141), + "ㅂ", -- utfchar(0x3142), + "ㅅ", -- utfchar(0x3145), + "ㅇ", -- utfchar(0x3147), + "ㅈ", -- utfchar(0x3148), + "ㅊ", -- utfchar(0x314a), + "ㅋ", -- utfchar(0x314b), + "ㅌ", -- utfchar(0x314c), + "ㅍ", -- utfchar(0x314d), + "ㅎ", -- utfchar(0x314e), + "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", + "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", + "u", "v", "w", "x", "y", "z", + } } |