From 36c7ea04f6689774348c647f616b8e45512d4b9d Mon Sep 17 00:00:00 2001
From: Jacopo De Simoi <wilderkde@gmail.com>
Date: Thu, 27 Aug 2020 15:11:05 -0400
Subject: [PATCH] Mark flyspell mistakes in the margin

---
 global.org | 16 ++++++++++++----
 1 file changed, 12 insertions(+), 4 deletions(-)

diff --git a/global.org b/global.org
index 2b817b4..e3ff6ce 100644
--- 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)
+     (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