From e2a19dec6e6e3f7ba3b07b8b13eead9efa621a5c Mon Sep 17 00:00:00 2001
From: Lucien Cartier-Tilet <lucien@phundrak.com>
Date: Wed, 6 Apr 2022 19:44:02 +0200
Subject: [PATCH] [Emacs] Better LangTool configuration

---
 org/config/emacs.org | 22 +++++++++++++++++++---
 1 file changed, 19 insertions(+), 3 deletions(-)

diff --git a/org/config/emacs.org b/org/config/emacs.org
index 29a9b52..a23fbb1 100644
--- a/org/config/emacs.org
+++ b/org/config/emacs.org
@@ -5801,6 +5801,8 @@ to anything user-defined. Let’s all-the-iconify this!
 :PROPERTIES:
 :CUSTOM_ID: Packages-Configuration-Programming-languages-Tools-Langtool-sjr1oox0y9j0
 :END:
+LanguageTool is a great tool for catching typos and grammatical errors
+in quite a few languages.
 #+begin_src emacs-lisp
 (use-package langtool
   :defer t
@@ -5809,10 +5811,24 @@ to anything user-defined. Let’s all-the-iconify this!
              langtool-check-done
              langtool-show-message-at-point
              langtool-correct-buffer)
-  :init
-  (setq langtool-default-language "en-US")
+  :custom
+  (langtool-default-language "en-US")
+  (langtool-mother-tongue "fr")
   :config
-  (setq langtool-java-classpath "/usr/share/languagetool:/usr/share/java/languagetool/*"))
+  (setq langtool-java-classpath (string-join '("/usr/share/languagetool"
+                                               "/usr/share/java/languagetool/*")
+                                             ":"))
+  :general
+  (phundrak/leader-key
+    :packages 'langtool
+    :infix "l"
+    ""  '(:ignore t :which-key "LangTool")
+    "B" #'langtool-correct-buffer
+    "b" #'langtool-check-buffer
+    "c" #'langtool-check
+    "d" #'langtool-check-done
+    "l" #'langtool-switch-default-language
+    "p" #'langtool-show-message-at-point))
 #+end_src
 
 #+begin_src emacs-lisp