fix helpful bindings and add flyspell-correct feature

settings/spell-settings.el

@@ -1,6 +1,8 @@
 ;;; spell-settings.el --- Spell settings  -*- lexical-binding: t -*-
 
 ;;; Commentary:
+;;  https://melpa.org/#/flyspell-correct
+;;  https://melpa.org/#/flyspell-correct-ivy
 ;;  https://melpa.org/#/langtool
 ;;  https://github.com/mhayashi1120/Emacs-langtool
 
@@ -9,6 +11,13 @@
 ;;   Emacs package: langtool.el
 
 ;;; Code:
+(use-package flyspell-correct
+  :after flyspell
+  :bind (:map flyspell-mode-map ("C-;" . flyspell-correct-wrapper)))
+
+(use-package flyspell-correct-ivy
+  :after flyspell-correct)
+
 (use-package langtool
   :commands (langtool-check langtool-check-buffer)
   :init 
@@ -90,7 +99,7 @@
        (setq langtool-generic-check-predicate
              '(lambda (start end)
                 (let* ((f (get-text-property start 'face)))
-                  (memq f flyspell-prog-text-faces)))))) 
+                  (memq f flyspell-prog-text-faces))))))
   )
 
 (provide 'spell-settings)