Rewrite org-sort-heading-ignoring-articles

1 files changed, 8 insertions, 10 deletions

diff --git a/lisp/init-org.el b/lisp/init-org.el
index c5ee07b..de283e8 100644
--- a/lisp/init-org.el
+++ b/lisp/init-org.el
@@ -154,16 +154,14 @@ current heading."
 
 (defun km/org-sort-heading-ignoring-articles ()
   "Sort alphabetically, but ignore any leading articles."
-  (when (looking-at org-complex-heading-regexp)
-    (let ((ignored-words '("a" "an" "the"))
-          heading heading-words)
-      (setq heading
-            (funcall 'downcase
-                     (org-sort-remove-invisible (match-string 4))))
-      (setq heading-words (split-string heading))
-      (when (member (car heading-words) ignored-words)
-        (setq heading-words (cdr heading-words)))
-      (mapconcat 'identity heading-words " "))))
+  (let* ((ignored-words '("a" "an" "the"))
+         (heading (org-no-properties
+                   (org-get-heading 'no-tags 'no-todo)))
+         (heading-words (split-string heading)))
+    (when (member (downcase (car heading-words))
+                  ignored-words)
+      (setq heading-words (cdr heading-words)))
+    (mapconcat #'identity heading-words " ")))
 
 (defun km/org-remove-title-leader ()
   "Remove leader from Org heading title.