From 954a5558a7f9ace227cf506f61f125a939dccd0f Mon Sep 17 00:00:00 2001
From: Jakub Czajka <jakub@ekhem.eu.org>
Date: Fri, 23 Dec 2022 18:49:25 +0100
Subject: [PATCH] [emacs] Enable spellchecker.

This commit enables flyspell with aspell backend for spellchecking.
---
 conf/home/emacs.scm                       | 11 +++++++++
 emacs/.config/emacs/conf/conf-language.el | 29 +++++++++++++++++++++++
 2 files changed, 40 insertions(+)
 create mode 100644 emacs/.config/emacs/conf/conf-language.el

diff --git a/conf/home/emacs.scm b/conf/home/emacs.scm
index 0439f3f..2868db1 100644
--- a/conf/home/emacs.scm
+++ b/conf/home/emacs.scm
@@ -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)
@@ -100,6 +101,15 @@
 	    (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
@@ -143,6 +153,7 @@
         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
index 0000000..f89b051
--- /dev/null
+++ b/emacs/.config/emacs/conf/conf-language.el
@@ -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)
-- 
2.39.5