tastytea/.emacs.d
tastytea/.emacs.d
1
0
Fork 0
Code Issues Pull Requests Releases Activity

Emacs: Use hunspell, add multi-dict "en_US,de_DE".

Browse Source
This commit is contained in:
tastytea 2020-08-22 20:52:00 +02:00
parent 1cda6ed3f9
commit 22da20bf74
1 changed files with 17 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
init.d/text/common.el
View File

@ -1,6 +1,6 @@
;;; common.el --- Common settings for text files. -*- lexical-binding: t; -*- ;;; common.el --- Common settings for text files. -*- lexical-binding: t; -*-
;; Time-stamp: <2020-05-24T22:51:00+0200> ;; Time-stamp: <2020-08-22T20:50:31+0200>
;;; Commentary: ;;; Commentary:
@ -83,14 +83,26 @@
:hook ((find-file . display-fill-column-indicator-mode) :hook ((find-file . display-fill-column-indicator-mode)
(text-mode . display-fill-column-indicator-mode)))) (text-mode . display-fill-column-indicator-mode))))
;; Spell checking. ;; spell checking.
(use-package ispell
:straight nil
;; Use hunspell with multiple dictionaries if possible.
;; <https://200ok.ch/posts/2020-08-22_setting_up_spell_checking_with_multiple_dictionaries.html>
:config (when (executable-find "hunspell")
(customize-set-variable 'ispell-program-name
(executable-find "hunspell"))
;; (customize-set-variable 'ispell-dictionary "en_US,de_DE")
(ispell-set-spellchecker-params)
(ispell-hunspell-add-multi-dic "en_US,de_DE")))
;; Interactive spell checking.
(unless slow-computer (unless slow-computer
(use-package flyspell (use-package flyspell
:if (or (executable-find "aspell") :if (or (executable-find "aspell")
(executable-find "hunspell") (executable-find "hunspell")
(executable-find "ispell")) (executable-find "ispell"))
:diminish flyspell-mode :diminish flyspell-mode
:custom (flyspell-default-dictionary "english") :custom ((flyspell-default-dictionary "en_US"))
:config (progn :config (progn
(defun my/toggle-flyspell () (defun my/toggle-flyspell ()
"Toggle flyspell-mode and run flyspell-buffer after activating." "Toggle flyspell-mode and run flyspell-buffer after activating."
@ -103,10 +115,10 @@
(defun my/flyspell-german () (defun my/flyspell-german ()
"Set dictionary to german." "Set dictionary to german."
(interactive) (interactive)
(ispell-change-dictionary "german"))) (ispell-change-dictionary "de_DE")))
:bind (("<f8>" . my/toggle-flyspell) :bind (("<f8>" . my/toggle-flyspell)
(:map flyspell-mode-map (:map flyspell-mode-map
("C-;" . nil))) ; iedit needs C-;. ("C-;" . nil))) ; iedit needs C-;.
:hook ((prog-mode . flyspell-prog-mode) ; Spellcheck comments. :hook ((prog-mode . flyspell-prog-mode) ; Spellcheck comments.
(text-mode . flyspell-mode) ; Spellcheck text documents ↓. (text-mode . flyspell-mode) ; Spellcheck text documents ↓.
(LaTeX-mode . my/flyspell-german) (LaTeX-mode . my/flyspell-german)