From f5632a29175f7bfc64d36dc2afdb42e92f421876 Mon Sep 17 00:00:00 2001
From: Thomas Voss <mail@thomasvoss.com>
Date: Mon, 21 Oct 2024 12:33:51 +0200
Subject: emacs: Configure spell checking

---
 .config/emacs/init.el                  |  1 +
 .config/emacs/modules/mm-spellcheck.el | 24 ++++++++++++++++++++++++
 2 files changed, 25 insertions(+)
 create mode 100644 .config/emacs/modules/mm-spellcheck.el

(limited to '.config/emacs')

diff --git a/.config/emacs/init.el b/.config/emacs/init.el
index a88d5e6..07f6149 100644
--- a/.config/emacs/init.el
+++ b/.config/emacs/init.el
@@ -282,6 +282,7 @@ the buffer without saving it."
 (require 'mm-lsp)                       ; Language Server Protocol
 (require 'mm-modeline)                  ; Modeline
 (require 'mm-projects)                  ; Project Management
+(require 'mm-spellcheck)                ; Spell Checking
 (require 'mm-tetris)                    ; Emacs Tetris
 (require 'mm-theme)                     ; Themeing
 (require 'mm-treesit)                   ; Tree-Sitter
diff --git a/.config/emacs/modules/mm-spellcheck.el b/.config/emacs/modules/mm-spellcheck.el
new file mode 100644
index 0000000..95db7ac
--- /dev/null
+++ b/.config/emacs/modules/mm-spellcheck.el
@@ -0,0 +1,24 @@
+;;; mm-spellcheck.el --- Spell checking configuration  -*- lexical-binding: t; -*-
+
+;;; ISpell Spell Checking
+
+(use-package ispell
+  :hook (flyspell-mode . ispell-minor-mode)
+  :custom
+  (ispell-program-name "hunspell")
+  (ispell-local-dictionary "en_US")
+  (ispell-local-dictionary-alist
+   '(("en_US" "[[:alpha:]]" "[^[:alpha:]]" "[’']"
+      nil ("-d" "en_US") nil utf-8)))
+  (ispell-hunspell-dictionary-alist ispell-local-dictionary-alist))
+
+
+;;; On-The-Fly Spell Checking
+
+(use-package flyspell
+  :defer t
+  :config
+  ;; I use ‘C-,’ for ‘emmet-expand-line’
+  (keymap-unset flyspell-mode-map "C-," :remove))
+
+(provide 'mm-spellcheck)
-- 
cgit v1.2.3