Mark flyspell mistakes in the margin

6 years ago · 36c7ea04f6
parent e514b226f9
commit 36c7ea04f6
1 changed files with 12 additions and 4 deletions
--- a/global.org
+++ b/global.org
@ -463,11 +463,19 @@
   #+END_SRC
 ** Spellcheck
   Use flyspell
+
   #+BEGIN_SRC emacs-lisp
     (require 'flyspell-lazy)
     (flyspell-lazy-mode 1)
     (add-hook 'text-mode-hook 'flyspell-mode)
     (setq flyspell-use-meta-tab nil)
+     (defface flyspell-margin-incorrect
+            '((t nil))
+            "flyspell-margin-incorrect"
+            :group 'flyspell)
+     (setq flyspell-before-incorrect-word-string
+     (propertize "." 'display `((margin left-margin)
+     ,(propertize "×" 'face 'flyspell-margin-incorrect))))
   #+END_SRC
 ** Fringe treatment
 *** TODO try linum-relative