Mark flyspell mistakes in the margin

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)
+     (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