blob: ab564c5e5a7b36b9259d61a52ad12ce875e6689e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
;;; Code:
(defun setup-text-mode ()
"Disable word wrap in text mode."
;(perfect-margin-mode 1)
(setq word-wrap t)
(require 'flyspell)
(flyspell-mode 1)
(set-face-attribute 'hl-line nil
:box nil)
(set-face-attribute 'flyspell-incorrect-face nil :foreground nil :weight 'normal :underline '(:color "red" :style wave))
(display-line-numbers-mode -1)
)
(defun my-perfect-margin-mode-hook()
(when (and (stringp buffer-file-name)
(string-match "\\.txt\\'" buffer-file-name))
(perfect-margin-mode 1))
)
(use-package perfect-margin
:ensure t
:config
(add-hook 'text-mode-hook 'my-perfect-margin-mode-hook))
(add-hook 'text-mode-hook 'setup-text-mode)
(require 'ispell)
(setq ispell-program-name (executable-find "hunspell")
ispell-dictionary "en_US")
(provide 'text)
;;; text.el ends here
|
