NSSpellCheckerでスペルチェック可能な言語の一覧リストを取得_v2

AppleScript名：NSSpellCheckerでスペルチェック可能な言語の一覧リストを取得_v2

— Created 2015-12-18 by Takaaki Naganoya
— 2015 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"

set aChecker to current application’s NSSpellChecker’s sharedSpellChecker()
set langList to (aChecker’s availableLanguages()) as list
–>　　{"en", "en_GB", "en_AU", "en_CA", "en_IN", "en_SG", "fr", "da", "de", "es", "it", "nl", "nb", "pl", "pt_BR", "pt_PT", "fi", "sv", "tr", "ru", "ko"}

set langNameList to {}
repeat with i in langList
　　set j to contents of i
　　–set aLocale to (current application’s NSLocale’s alloc()’s initWithLocaleIdentifier:j)
　　set aLocale to current application’s NSLocale’s currentLocale()
　　
　　set aLocName to (aLocale’s displayNameForKey:(current application’s NSLocaleIdentifier) value:j)
　　set cntLocs to (aLocale’s displayNameForKey:(current application’s NSLocaleLanguageCode) value:j)
　　
　　set cntName to getCountryNameFromLanguageCode(j) of me
　　
　　set the end of langNameList to {aLocName as string, cntName as text, cntLocs as text}
end repeat

return langNameList
–>　　{{"英語", "アメリカ合衆国", "英語"}, {"英語 (イギリス)", "イギリス", "英語"}, {"英語 (オーストラリア)", "オーストラリア", "英語"}, {"英語 (カナダ)", "カナダ", "英語"}, {"英語 (インド)", "インド", "英語"}, {"英語 (シンガポール)", "シンガポール", "英語"}, {"フランス語", "フランス", "フランス語"}, {"デンマーク語", "デンマーク", "デンマーク語"}, {"ドイツ語", "ドイツ", "ドイツ語"}, {"スペイン語", "スペイン", "スペイン語"}, {"イタリア語", "イタリア", "イタリア語"}, {"オランダ語", "オランダ", "オランダ語"}, {"ノルウェー語(ブークモール)", "ノルウェー", "ノルウェー語(ブークモール)"}, {"ポーランド語", "ポーランド", "ポーランド語"}, {"ポルトガル語 (ブラジル)", "ブラジル", "ポルトガル語"}, {"ポルトガル語 (ポルトガル)", "ポルトガル", "ポルトガル語"}, {"フィンランド語", "フィンランド", "フィンランド語"}, {"スウェーデン語", "スウェーデン", "スウェーデン語"}, {"トルコ語", "トルコ", "トルコ語"}, {"ロシア語", "ロシア", "ロシア語"}, {"韓国語", "大韓民国", "韓国語"}}

on getCountryNameFromLanguageCode(aCode)
　　–http://www.benricho.org/translate/countrycode.html　　
　　if aCode is equal to "en" then
　　　　set aCode to aCode & "_US"
　　else if aCode is equal to "fr" then
　　　　set aCode to aCode & "_FR"
　　else if aCode is equal to "da" then
　　　　set aCode to aCode & "_DK"
　　else if aCode is equal to "de" then
　　　　set aCode to aCode & "_DE"
　　else if aCode is equal to "es" then
　　　　set aCode to aCode & "_ES"
　　else if aCode is equal to "it" then
　　　　set aCode to aCode & "_IT"
　　else if aCode is equal to "nl" then
　　　　set aCode to aCode & "_NL"
　　else if aCode is equal to "nb" then
　　　　set aCode to aCode & "_NO"
　　else if aCode is equal to "pl" then
　　　　set aCode to aCode & "_PL"
　　else if aCode is equal to "fi" then
　　　　set aCode to aCode & "_FI"
　　else if aCode is equal to "sv" then
　　　　set aCode to aCode & "_SE"
　　else if aCode is equal to "tr" then
　　　　set aCode to aCode & "_TR"
　　else if aCode is equal to "ru" then
　　　　set aCode to aCode & "_RU"
　　else if aCode is equal to "ko" then
　　　　set aCode to aCode & "_KR"
　　else if aCode is equal to "ja" then
　　　　set aCode to aCode & "_JP"
　　end if
　　
　　set aLocale to current application’s NSLocale’s currentLocale()
　　set aLoc to (current application’s NSLocale’s alloc()’s initWithLocaleIdentifier:aCode)
　　set aLocCode to aLoc’s objectForKey:(current application’s NSLocaleCountryCode)
　　set aLocName to aLocale’s displayNameForKey:(current application’s NSLocaleCountryCode) value:aLocCode
　　
　　return aLocName
　　
end getCountryNameFromLanguageCode