From 55690769d49041c62c67be74bb8597bf17d89e85 Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Sun, 15 Feb 2015 22:29:03 -0500 Subject: Rewrite org-sort-heading-ignoring-articles --- lisp/init-org.el | 18 ++++++++---------- 1 file changed, 8 insertions(+), 10 deletions(-) (limited to 'lisp/init-org.el') 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. -- cgit v1.2.3