blob: 0cfe2f192ae6fdf72b2b0cb775cddbdebf91091c (
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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
|
;;; -*- lexical-binding: t -*-
;; Time-stamp: <2026-06-23 10h11 BST (4331e7a1)>
;; -----------------------------------------------------------------------------
;; Spelling
(use-package spell-fu
:ensure
:defer
:config
(setq ispell-dictionary "en_GB-ise-w_accents"
ispell-personal-dictionary "~/.aspell.en.pws")
;; The default was this "\\b\\([[:alpha:]][[:alpha:]']*\\)\\b", but that
;; didn't play well with ``LaTeX's quoting system''.
(setq-default spell-fu-word-regexp "\\([[:alpha:]]+\\('[[:alpha:]]+\\)*\\)"
spell-fu-faces-exclude '(font-latex-math-face
font-latex-sedate-face
font-lock-keyword-face
font-lock-function-name-face
font-lock-variable-name-face)))
(setq sentence-end-double-space nil)
(add-hook 'text-mode-hook (lambda ()
(setq line-spacing 4)
(subword-mode 1)
(electric-pair-local-mode 1)
;; (turn-on-auto-fill)
(visual-line-mode 1)
(siege-mode 1)
(spell-fu-mode 1)))
(use-package dictionary :ensure :defer)
;; -----------------------------------------------------------------------------
;; Markdown
(use-package markdown-mode
:ensure
:defer
:hook (markdown-mode . (lambda ()
(auto-fill-mode -1)
(setq-local electric-pair-text-pairs
(append '((?{ . ?})
(?` . ?`)
(?$ . ?$))
electric-pair-pairs))
(electric-pair-local-mode 1)
(visual-line-mode))))
;; -----------------------------------------------------------------------------
;; Org
(use-package org
:defer
:bind (:map org-mode-map
("M-h" . nil))
;; :hook (org-mode . (lambda ()
;; (activate-input-method default-input-method)))
:config
(setq org-use-sub-superscripts (quote {})
org-modules nil))
|
