fix helpful bindings and add flyspell-correct feature

settings/completion-settings.el

@@ -69,8 +69,8 @@
          ("C-x b" . counsel-switch-buffer)
          ("C-x C-f" . counsel-find-file)
          ("C-x C-r" . counsel-recentf)
-         ("<f1> f" . describe-function)  ;; counsel-describe-function
-         ("<f1> v" . describe-variable)  ;; counsel-describe-variable
+         ;; ("<f1> f" . describe-function)  ;; counsel-describe-function, not set bc of helpful.el
+         ;; ("<f1> v" . describe-variable)  ;; counsel-describe-variable, net set bc of helpful.el
          ("<f1> l" . find-library)  ;; find-library works better with counsel as counsel-find-library
          ("<f2> i" . counsel-info-lookup-symbol)
          ("<f2> u" . counsel-unicode-char)

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)