branch: externals/guess-language
commit 5261d2fbf7e1c0b012a6ea7304a22375c4619771
Author: Titus von der Malsburg <[email protected]>
Commit: Titus von der Malsburg <[email protected]>
Make defcustoms.
---
guess-language.el | 18 +++++++++++++++---
1 file changed, 15 insertions(+), 3 deletions(-)
diff --git a/guess-language.el b/guess-language.el
index b10f405..3a040da 100644
--- a/guess-language.el
+++ b/guess-language.el
@@ -27,9 +27,21 @@
;; trigrams. The trigrams are copied from guess_language.py
;; (https://github.com/kent37/guess-language).
-(defvar guess-language-languages '(en de fr))
-
-(defvar guess-language-min-paragraph-length 40)
+(defcustom guess-language-languages '(en de fr)
+ "List of symbols that identify the languages that should be
+considered when guessing language. Currently supported
+languages are:
+
+ de: German
+ en: English
+ fr: French"
+ :type '(repeat symbol)
+ :group 'guess-language)
+
+(defcustom guess-language-min-paragraph-length 40
+ "When a paragraph is shorter than this value (in characters), guess-language
doesn't do anything because there is likely too little material to reliably
guess the language."
+ :type 'integer
+ :group 'guess-language)
(defun guess-language-load-trigrams ()
(cl-loop
