add function to double-space sentences

1 files changed, 8 insertions, 0 deletions

diff --git a/lisp/init-my-stuff.el b/lisp/init-my-stuff.el
index 9a1bf2d..e42f4bc 100644
--- a/lisp/init-my-stuff.el
+++ b/lisp/init-my-stuff.el
@@ -85,3 +85,11 @@ Position the cursor at its beginning, according to the current mode."
     (abort-recursive-edit)))
 
 (add-hook 'mouse-leave-buffer-hook 'my/stop-using-minibuffer)
+
+(defun my/fix-sentence (arg)
+  "Add space to the end of a sentence."
+  (interactive "p")
+  (let ((sentence-end-double-space nil))
+    (loop for i from 1 to arg do
+          (forward-sentence 1)
+          (insert " "))))