From 2ff68140ef7a3a56aea318ad794a636bc9ed8abf Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Tue, 16 Dec 2014 01:14:41 -0500
Subject: Add command org-normalize-spaces

---
 lisp/init-org.el | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'lisp')

diff --git a/lisp/init-org.el b/lisp/init-org.el
index 0300d1a..9d05e32 100644
--- a/lisp/init-org.el
+++ b/lisp/init-org.el
@@ -246,6 +246,14 @@ to
        (beginning-of-line)
        (open-line 1)))))
 
+(defun km/org-normalize-spaces ()
+  "Reduce to single spaces and add space before headings."
+  (interactive)
+  (km/reduce-to-single-spaces)
+  (km/org-add-blank-before-heading))
+
+(define-key km/org-prefix-map "n" 'km/org-normalize-spaces)
+
 ;;; Org in other modes
 (defun km/load-orgstruct ()
   (turn-on-orgstruct++)
-- 
cgit v1.2.3