[nongnu] elpa/crux d2643ae 019/112: Add crux-ispell-word-then-abbrev

[ELPA Syncer]

branch: elpa/crux
commit d2643ae98098fab91dec989057e2cf5a5dd27619
Author: Bozhidar Batsov <bozhidar@batsov.com>
Commit: Bozhidar Batsov <bozhidar@batsov.com>

    Add crux-ispell-word-then-abbrev
    
    Borrowed from @Malabarba. More info -
    
http://endlessparentheses.com/ispell-and-abbrev-the-perfect-auto-correct.html.
---
 README.md |  8 ++++++++
 crux.el   | 33 +++++++++++++++++++++++++++++++++
 2 files changed, 41 insertions(+)

diff --git a/README.md b/README.md
index e1274c7..a13b6b5 100644
--- a/README.md
+++ b/README.md
@@ -60,6 +60,7 @@ Command                                     | Suggested 
Keybinding(s)         |
 `crux-top-join-lines`                       | <kbd>Super-j</kbd> or 
<kbd>C-^</kbd> | Join lines
 `crux-kill-whole-line`                      | <kbd>Super-k</kbd> | Kill whole 
line
 `crux-kill-line-backwards`                  | <kbd>C-Backspace</kbd> | Kill 
line backwards
+`crux-ispell-word-then-abbrev`              | <kbd>C-c i</kbd> | Fix word 
using `ispell` and then save to `abbrev`. 
 
 Here's how you'd bind some of the commands to keycombos:
 
@@ -72,6 +73,13 @@ Here's how you'd bind some of the commands to keycombos:
 (global-set-key [remap kill-whole-line] #'crux-kill-whole-line)
 ```
 
+For `crux-ispell-word-then-abbrev` to be most effective you'll also need to 
add this to your config:
+
+```el
+(setq save-abbrevs 'silently)
+(setq-default abbrev-mode t)
+```
+
 ## Using the bundled advices
 
 crux ships with some handy advises that can enhance the operation of existing 
commands. 
diff --git a/crux.el b/crux.el
index 3de5450..08027f5 100644
--- a/crux.el
+++ b/crux.el
@@ -353,6 +353,39 @@ Doesn't mess with special buffers."
                            (t (error "Unknown shell")))))
     (find-file-other-window (expand-file-name shell-init-file (getenv 
"HOME")))))
 
+;; 
http://endlessparentheses.com/ispell-and-abbrev-the-perfect-auto-correct.html
+(defun crux-ispell-word-then-abbrev (p)
+  "Call `ispell-word', then create an abbrev for it.
+With prefix P, create local abbrev.  Otherwise it will
+be global.
+If there's nothing wrong with the word at point, keep
+looking for a typo until the beginning of buffer.  You can
+skip typos you don't want to fix with `SPC', and you can
+abort completely with `C-g'."
+  (interactive "P")
+  (let (bef aft)
+    (save-excursion
+      (while (if (setq bef (thing-at-point 'word))
+                 ;; Word was corrected or used quit.
+                 (if (ispell-word nil 'quiet)
+                     nil ; End the loop.
+                   ;; Also end if we reach `bob'.
+                   (not (bobp)))
+               ;; If there's no word at point, keep looking
+               ;; until `bob'.
+               (not (bobp)))
+        (backward-word))
+      (setq aft (thing-at-point 'word)))
+    (if (and aft bef (not (equal aft bef)))
+        (let ((aft (downcase aft))
+              (bef (downcase bef)))
+          (define-abbrev
+            (if p local-abbrev-table global-abbrev-table)
+            bef aft)
+          (message "\"%s\" now expands to \"%s\" %sally"
+                   bef aft (if p "loc" "glob")))
+      (user-error "No typo at or before point"))))
+
 (defmacro crux-with-region-or-buffer (func)
   "When called with no active region, call FUNC on current buffer.