[elpa] externals/guess-language e1db84e 006/101: Make this into a minor mode.

[Stefan Monnier]

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

    Make this into a minor mode.
---
 guess-language.el | 35 ++++++++++++++++++++++++++++++-----
 1 file changed, 30 insertions(+), 5 deletions(-)

diff --git a/guess-language.el b/guess-language.el
index ef98cc3..28fe06e 100644
--- a/guess-language.el
+++ b/guess-language.el
@@ -80,7 +80,7 @@ ispell dictionaries accordingly."
            (ispell-change-dictionary "de")
            (typo-change-language "German")))))
 
-(defun guess-language-autoset-and-spellcheck (beginning end doublon)
+(defun guess-language-autoset-and-spellcheck-maybe (beginning end doublon)
   "Runs `guess-language-autoset' and then the flyspell on the
 current paragraph."
   (let ((old-dictionary ispell-local-dictionary)
@@ -89,16 +89,41 @@ current paragraph."
     (when (> (- end beginning) guess-language-min-paragraph-length)
       (guess-language-autoset)
       (unless (string= old-dictionary ispell-local-dictionary)
-        (remove-hook 'flyspell-incorrect-hook 
#'guess-language-autoset-and-spellcheck)
+        (remove-hook 'flyspell-incorrect-hook 
#'guess-language-autoset-and-spellcheck-maybe)
         (flyspell-region (save-excursion (backward-paragraph) (point))
                          (save-excursion (forward-paragraph) (point)))
-        (add-hook 'flyspell-incorrect-hook 
#'guess-language-autoset-and-spellcheck)))))
-
-(add-hook 'flyspell-incorrect-hook #'guess-language-autoset-and-spellcheck)
+        (add-hook 'flyspell-incorrect-hook 
#'guess-language-autoset-and-spellcheck-maybe)))))
 
 (setq flyspell-issue-welcome-flag nil)
 (setq flyspell-issue-message-flag nil)
 
+(define-minor-mode guess-language-mode
+  "Toggle guess-language mode.
+Interactively with no argument, this command toggles the mode.
+A positive prefix argument enables the mode, any other prefix
+argument disables it.  From Lisp, argument omitted or nil enables
+the mode, `toggle' toggles the state.
+
+Guess-language mode is a buffer-local minor mode.  When enabled,
+it guesses the language when flyspell detects words that are
+incorrectly and changes the ispell's dictionary and typo-mode
+accordingly.  If the language settings change, flyspell is run on
+the current paragraph.  If the paragraph is shorter than
+`guess-language-min-paragraph-length' none of the above happens
+because there is likely not enough text to guess the language
+correctly."
+  ;; The initial value.
+  :init-value nil
+  ;; The indicator for the mode line.
+  :lighter " Guess-lang"
+  :global nil
+  :group 'guess-language
+  (if guess-language-mode
+      (add-hook 'flyspell-incorrect-hook
+                #'guess-language-autoset-and-spellcheck-maybe)
+    (remove-hook 'flyspell-incorrect-hook
+                 #'guess-language-autoset-and-spellcheck-maybe)))
+
 (provide 'guess-language)
 
 ;; Local Variables: