[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/guess-language 9117deb 027/101: Made it easier to add n
From: |
Stefan Monnier |
Subject: |
[elpa] externals/guess-language 9117deb 027/101: Made it easier to add new languages. |
Date: |
Sat, 23 Feb 2019 10:34:36 -0500 (EST) |
branch: externals/guess-language
commit 9117deb0e4df2fe515d097cf21b952dce6819429
Author: Titus von der Malsburg <address@hidden>
Commit: Titus von der Malsburg <address@hidden>
Made it easier to add new languages.
---
guess-language.el | 20 ++++++++++----------
1 file changed, 10 insertions(+), 10 deletions(-)
diff --git a/guess-language.el b/guess-language.el
index afc8170..38e7a28 100644
--- a/guess-language.el
+++ b/guess-language.el
@@ -56,6 +56,12 @@ little material to reliably guess the language."
(defvar guess-language-regexps nil
"The regular expressions that are used to count trigrams.")
+(defvar guess-language-langcodes
+ '((de . ("de" "German"))
+ (en . ("en" "English"))
+ (fr . ("francais" "French")))
+ "Language codes for ispell and typo-mode.")
+
(defun guess-language-load-trigrams ()
(cl-loop
for lang in guess-language-languages
@@ -104,16 +110,10 @@ little material to reliably guess the language."
"Detects language of the current paragraph and sets things like
ispell dictionaries accordingly."
(interactive)
- (pcase (guess-language-paragraph)
- ('de (progn
- (ispell-change-dictionary "de")
- (typo-change-language "German")))
- ('en (progn
- (ispell-change-dictionary "en")
- (typo-change-language "English")))
- ('fr (progn
- (ispell-change-dictionary "francais")
- (typo-change-language "French")))))
+ (let* ((lang (guess-language-paragraph))
+ (codes (cdr (assoc lang guess-language-langcodes))))
+ (ispell-change-dictionary (car codes))
+ (typo-change-language (cadr codes))))
(defun guess-language-autoset-and-spellcheck-maybe (beginning end doublon)
"Runs `guess-language-autoset' and then the flyspell on the
- [elpa] externals/guess-language e4c103c 009/101: Compile regexps after load., (continued)
- [elpa] externals/guess-language e4c103c 009/101: Compile regexps after load., Stefan Monnier, 2019/02/23
- [elpa] externals/guess-language e1db84e 006/101: Make this into a minor mode., Stefan Monnier, 2019/02/23
- [elpa] externals/guess-language 5261d2f 010/101: Make defcustoms., Stefan Monnier, 2019/02/23
- [elpa] externals/guess-language e6ffe8d 011/101: Added some documentation., Stefan Monnier, 2019/02/23
- [elpa] externals/guess-language 6ee7f77 005/101: Only guess when paragraph has some minimal length., Stefan Monnier, 2019/02/23
- [elpa] externals/guess-language 30e23aa 001/101: Added initial proof of concept., Stefan Monnier, 2019/02/23
- [elpa] externals/guess-language e13f5a9 013/101: (Re)compile regexps when necessary., Stefan Monnier, 2019/02/23
- [elpa] externals/guess-language 24213cb 032/101: Added some data for testing., Stefan Monnier, 2019/02/23
- [elpa] externals/guess-language 9b1048f 026/101: More idiomatic way to do local hooks., Stefan Monnier, 2019/02/23
- [elpa] externals/guess-language 38d7ab1 017/101: README: minor fixes, Stefan Monnier, 2019/02/23
- [elpa] externals/guess-language 9117deb 027/101: Made it easier to add new languages.,
Stefan Monnier <=
- [elpa] externals/guess-language 47ff6ad 022/101: Fix package, Stefan Monnier, 2019/02/23
- [elpa] externals/guess-language c543465 023/101: Merge pull request #1 from syohex/fix-package, Stefan Monnier, 2019/02/23
- [elpa] externals/guess-language a2c048c 016/101: Updated README., Stefan Monnier, 2019/02/23
- [elpa] externals/guess-language b0b1438 028/101: Made some functions non-interactive., Stefan Monnier, 2019/02/23
- [elpa] externals/guess-language 8daec47 019/101: Depend on emacs 24., Stefan Monnier, 2019/02/23
- [elpa] externals/guess-language 84dda4b 012/101: Check whether regexps have to be recompiled., Stefan Monnier, 2019/02/23
- [elpa] externals/guess-language 12f75f0 038/101: README: Added tldr., Stefan Monnier, 2019/02/23
- [elpa] externals/guess-language b0483b5 042/101: README: Added MELPA batch., Stefan Monnier, 2019/02/23
- [elpa] externals/guess-language 6b14af5 041/101: README: Shortened tldr., Stefan Monnier, 2019/02/23
- [elpa] externals/guess-language f21d259 037/101: Simplification., Stefan Monnier, 2019/02/23