Implement Mickey Petersen's correcting typos with abbrev

README.org

@@ -2761,6 +2761,29 @@ non-interactive =org-element= functions to an =Emacs-lisp= buffer.
 :CUSTOM_ID: sec:writing-tools
 :END:
 
+*** [[info:emacs#Abbrevs][Abbrevs (info)]]
+:PROPERTIES:
+:CUSTOM_ID: sec:writing-abbreviations
+:END:
+
+[[https://www.masteringemacs.org/article/correcting-typos-misspellings-abbrev][Correcting Typos and Misspellings with Abbrev]] is an interesting post by [[https://www.masteringemacs.org/][Mickey
+Peterson]] showing how to use [[info:emacs#Keyboard Macros][Keyboard Macros (info)]] to exploit the [[https://en.wikipedia.org/wiki/Wikipedia:Lists_of_common_misspellings/For_machines][Wikipedia
+list of common misspellings for machines]].  Listing [[lst:misspellings-abbrev]]
+defines his keyboard macro under the name =misspellings-abrev=.
+
+#+caption[Definition of the =misspellings-abbrev= keyboard macro]:
+#+caption: Definition of the =misspellings-abbrev= keyboard macro.
+#+name: lst:misspellings-abbrev
+#+begin_src emacs-lisp
+  (with-eval-after-load 'emacs
+    (fset 'misspellings-abbrev
+          (kmacro-lambda-form
+           [?\C-s ?- ?> return backspace backspace ?\C-k ?\C-x ?a ?i ?g ?\C-y return]
+           0 "%d"))
+
+    (setq-default abbrev-mode t))
+#+end_src
+
 *** [[https://github.com/tecosaur/lexic#readme][Emacs LEXICal information viewer]]
 :PROPERTIES:
 :CUSTOM_ID: sec:writing-lexic