From 4623d3cd48953f79a1303dcf3f5d14d83dee1fa9 Mon Sep 17 00:00:00 2001 From: Vyacheslav Levit Date: Wed, 2 Mar 2016 00:32:12 +0200 Subject: [PATCH] Add support for Russian, Ukrainian and Bulgarian --- auto-dictionary.el | 87 ++++++++++++++++++++++++++++++++++++++++++++-- 1 file changed, 85 insertions(+), 2 deletions(-) diff --git a/auto-dictionary.el b/auto-dictionary.el index 6cdc7c6..46a17b0 100644 --- a/auto-dictionary.el +++ b/auto-dictionary.el @@ -122,7 +122,7 @@ This is called when `auto-dictionary-mode' changes its mind or (defconst adict-language-list '(nil "en" "de" "fr" "es" "sv" "sl" "hu" "ro" "pt" "nb" "da" "grc" "el" "hi" - "nn" "ca" "eo" "sk") + "nn" "ca" "eo" "sk" "ru" "uk" "bg") "The languages, in order, which `adict-hash' contains.") (defun adict--dictionary-alist-type () @@ -151,7 +151,10 @@ This is called when `auto-dictionary-mode' changes its mind or ("nn" "nynorsk" "norwegian nynorsk") ("ca" "catalan") ("eo" "esperanto") - ("sk" "slovenčina" "slovak"))) + ("sk" "slovenčina" "slovak") + ("ru" "русский" "russian") + ("uk" "українська" "ukrainian") + ("bg" "български" "bulgarian"))) "The dictionaries `auto-dictionary-mode' uses. Change the second part of each pair to specify a specific dictionary for that language. You can use this to specify a different region for your @@ -699,6 +702,86 @@ If IDLE-ONLY is set, abort when an input event occurs." "nejaký" "nejaká" "nejaké" "aký" "aká" "aké" "nijaký" "nijaká" "nijaké" "v" "z" "k") + ;; Don't use in cyrillic scripts: + ;; "а" "б" "без" "би" "благодаря" "будь" "в" "вам" "вас" "вас" "ваш" "ви" + ;; "вот" "все" "два" "для" "до" "добре" "дом" "думаю" "ей" "же" "за" + ;; "заради" "или" "им" "кажеш" "как" "ли" "много" "може" "можеш" "моя" "на" + ;; "над" "нам" "наш" "не" "него" "ни" "никогда" "них" "но" "ну" "о" "один" + ;; "от" "по" "при" "привет" "просто" "работа" "раз" "рука" "сам" "само" + ;; "след" "слово" "страна" "так" "така" "там" "татко" "те" "те" "ти" "то" + ;; "то" "той" "тому" "точно" "тут" "у" "час" "через" "ще" "що" + (adict-add-word hash 19 + ;; Russian (ru) + ;; + ;; Based on + ;; https://ru.wiktionary.org/wiki/Приложение:Список_частотности_по_НКРЯ + "быть" "он" "с" "что" "это" "она" "этот" "к" "они" "мы" "из" + "который" "свой" "весь" "год" "ты" "тот" "мочь" "вы" + "человек" "такой" "его" "сказать" "только" "ещё" "бы" "себя" + "уже" "время" "если" "когда" "другой" "говорить" "знать" + "стать" "чтобы" "дело" "жизнь" "кто" "первый" "очень" "день" + "её" "новый" "даже" "во" "со" "где" "под" "можно" "какой" + "после" "их" "самый" "потом" "надо" "хотеть" "идти" + "большой" "должен" "место" "иметь" "сейчас" "лицо" "каждый" + "нет" "теперь" "тоже" "тогда" "видеть" "вопрос" "здесь" + "потому" "сторона" "какой-то" "думать" "сделать" "жить" + "чем" "об" "последний" "случай" "более" "что-то" "смотреть" + "ребенок" "конечно" "конец" "несколько" "всегда" "работать" + "между" "понять" "пойти" "часть" "спросить" "дать" "также" + "никто" "понимать" "получить" "лишь" "второй" "именно" + "хотя" "сидеть" "женщина" "оказаться" "русский" "взять" + "прийти" "являться" "деньги" "почему" "вдруг" "любить" + "стоить" "почти" "общий" "ведь" "однако" "сразу" "хорошо" + "высокий" "остаться" "выйти" "начать" + ) + (adict-add-word hash 20 + ;; Ukrainian (uk) + ;; + ;; Based on + ;; http://ukrkniga.org.ua/ukr_rate/invokeit_opensubtitles_uk_51k.csv + "це" "і" "на" "з" "він" "ми" "як" "мене" "до" "але" "мені" + "ні" "його" "за" "тебе" "вони" "та" "про" "вона" "тобі" + "коли" "є" "якщо" "щоб" "було" "був" "вже" "дуже" "їх" "її" + "хто" "знаю" "від" "треба" "чому" "чи" "буде" "де" "цього" + "гаразд" "ось" "мій" "лише" "нічого" "тепер" "знаєш" "щось" + "зараз" "бути" "тільки" "всі" "більше" "можу" "й" "хочу" + "цей" "ніколи" "була" "давай" "можна" "тоді" "навіть" "зі" + "життя" "йому" "того" "нього" "бо" "дякую" "були" "сюди" + "сказав" "ці" "немає" "чого" "багато" "має" "завжди" "пане" + "таке" "хочеш" "себе" "який" "краще" "боже" "теж" "тобою" + "сьогодні" "років" "привіт" "які" "бачив" "маю" "той" "із" + "людей" "або" "ласка" "під" "твій" "сказати" "такий" + "справді" "знову" "хотів" "трохи" "цю" "яка" "потім" "саме" + "ніхто" "міг" "їй" "зробити" "робити" "цьому" "якби" "воно" + "ніж" "собі" "хтось" "усе" "неї" "хіба" "ця" "мої" "після" + "йди" "поки" "їм" "скільки" "куди" "цим" "можливо" "також" + "дещо" "мого" "хоче" "разом" "моє" "звідси" "здається" + "місце" "знаєте" "свої" + ) + (adict-add-word hash 21 + ;; Bulgarian (bg) + ;; + ;; Based on + ;; https://en.wiktionary.org/wiki/Wiktionary:Frequency_lists/Bulgarian_wordlist + "се" "си" "това" "че" "какво" "го" "съм" "аз" "трябва" "ме" + "са" "няма" "ако" "като" "има" "му" "нещо" "беше" "защо" + "знам" "всичко" "мен" "сега" "теб" "ги" "искам" "още" "мога" + "което" "тя" "когато" "този" "сте" "къде" "сме" "всички" + "нали" "тази" "нищо" "един" "малко" "знаеш" "толкова" "най" + "хайде" "искаш" "време" "защото" "мисля" "кой" "който" + "имам" "вече" "някой" "преди" "тези" "моля" "каза" + "наистина" "става" "вие" "ние" "съжалявам" "които" "една" + "повече" "имаш" "тогава" "човек" "колко" "едно" "към" "кажа" + "ето" "ден" "значи" "бях" "през" "правиш" "бъде" "път" "със" + "мислиш" "дори" "бил" "баща" "ами" "имаме" "сър" "направи" + "разбира" "която" "също" "винаги" "виж" "иска" "нея" + "докато" "всеки" "дяволите" "казах" "никой" "нека" "хората" + "пак" "във" "тях" "неща" "направя" "прави" "място" "хей" + "трябваше" "днес" "изглежда" "наред" "няколко" "доста" + "добър" "бих" "здравей" "отново" "обичам" "знае" "затова" + "бързо" "мислех" "начин" "бе" "приятел" "сигурно" "нямам" + "заедно" "чакай" + ) ;; adding another language? email me to make it available to everyone! hash))