]> git.ekhem.eu.org Git - guix.git/commitdiff
[emacs] Enable spellchecker.
authorJakub Czajka <jakub@ekhem.eu.org>
Fri, 23 Dec 2022 17:49:25 +0000 (18:49 +0100)
committerJakub Czajka <jczajka@google.com>
Sun, 24 Dec 2023 18:53:07 +0000 (19:53 +0100)
This commit enables flyspell with aspell backend for spellchecking.

conf/home/emacs.scm
emacs/.config/emacs/conf/conf-language.el [new file with mode: 0644]

index 0439f3fd0532049aeb37b991068e7e39203a4f18..2868db1b3f8a22867b9757e97dc4bbdd2a90d2b7 100644 (file)
@@ -7,6 +7,7 @@
   #:use-module (conf home program)
   #:use-module (gnu home services)
   #:use-module (gnu home services shepherd)
+  #:use-module (gnu packages aspell)
   #:use-module (gnu packages emacs)
   #:use-module (gnu packages emacs-xyz)
   #:use-module (gnu packages freedesktop)
            (dotfiles
             (list "emacs/.config/emacs/conf/conf-keys.el")))))
 
+(define emacs-language-service
+  (service home-program-service-type
+          (home-program-configuration
+           (packages
+            (list aspell
+                  aspell-dict-en))
+           (dotfiles
+            (list "emacs/.config/emacs/conf/conf-language.el")))))
+
 (define emacs-package-service
   (service home-program-service-type
           (home-program-configuration
         emacs-document-service
         emacs-email-service
         emacs-keys-service
+        emacs-language-service
         emacs-package-service
         emacs-pass-service
         emacs-service))
diff --git a/emacs/.config/emacs/conf/conf-language.el b/emacs/.config/emacs/conf/conf-language.el
new file mode 100644 (file)
index 0000000..f89b051
--- /dev/null
@@ -0,0 +1,29 @@
+;; Copyright (c) 2022 Jakub Czajka <jakub@ekhem.eu.org>
+;; License: GPL-3.0 or later.
+;;
+;; conf-language.el - configuration for the spell checker.
+
+(require 'conf-package)
+
+(set-language-environment "UTF-8")
+
+(use-package flyspell
+  :when
+  (conf:executables-p (list "aspell"))
+  :ensure t
+  :bind
+  (:map flyspell-mode-map
+       ("C-x ," . flyspell-buffer)
+       ("C-x <" . flyspell-goto-next-error))
+  :custom
+  (ispell-program-name "aspell")
+  (ispell-dictionary "en"))
+
+(use-package flyspell
+  :after
+  (org)
+  :hook
+  (org-mode . flyspell-mode)
+  (org-mode . flyspell-prog-mode))
+
+(provide 'conf-language)