emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/guess-language 0c256d4 031/101: Added support for a bun


From: Stefan Monnier
Subject: [elpa] externals/guess-language 0c256d4 031/101: Added support for a bunch of languages.
Date: Sat, 23 Feb 2019 10:34:37 -0500 (EST)

branch: externals/guess-language
commit 0c256d40cfad27721a8b1d10c4d7a572d3aea2d2
Author: Titus von der Malsburg <address@hidden>
Commit: Titus von der Malsburg <address@hidden>

    Added support for a bunch of languages.
---
 guess-language.el | 25 +++++++++++++++++++++----
 1 file changed, 21 insertions(+), 4 deletions(-)

diff --git a/guess-language.el b/guess-language.el
index ea0f002..73530fa 100644
--- a/guess-language.el
+++ b/guess-language.el
@@ -68,9 +68,24 @@ little material to reliably guess the language."
   "The regular expressions that are used to count trigrams.")
 
 (defvar guess-language-langcodes
-  '((de . ("de" "German"))
+  '(
+    ;; Languages with ispell and typo support:
+    (cs . ("czech" "Czech"))
+    (de . ("de" "German"))
     (en . ("en" "English"))
-    (fr . ("francais" "French")))
+    (fi . ("finnish" "Finnish"))
+    (it . ("italiano" "Italian"))
+    (fr . ("francais" "French"))
+    (ru . ("russian" "Russian"))
+    ;; Languages with ispell but no typo support:
+    (da . ("dansk" nil))
+    (nl . ("nederlands" nil))
+    (nb . ("norsk" nil))
+    (pl . ("polish" nil))
+    (pt . ("portuguese" nil))
+    (sk . ("slovak" nil))
+    (sl . ("slovenian" nil))
+    (sv . ("svenska" nil)))
   "Language codes for ispell and typo-mode.")
 
 (defun guess-language-load-trigrams ()
@@ -116,12 +131,14 @@ little material to reliably guess the language."
 
 (defun guess-language-autoset ()
   "Detects language of the current paragraph and changes updates
-ispell and typo mode accordingly."
+ispell and typo mode accordingly.  If typo doesn't support the
+language, we leave it alone."
   (interactive)
   (let* ((lang (guess-language-paragraph))
          (codes (cdr (assoc lang guess-language-langcodes))))
     (ispell-change-dictionary (car codes))
-    (typo-change-language (cadr codes))))
+    (when (cadr 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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]