From 9a89e94c4df818d33b572e1c620d3e6b7e22e742 Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Wed, 16 Apr 2014 00:06:58 -0400 Subject: Add function to sort on parent heading --- lisp/init-org.el | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) (limited to 'lisp/init-org.el') diff --git a/lisp/init-org.el b/lisp/init-org.el index af5361c..e754bed 100644 --- a/lisp/init-org.el +++ b/lisp/init-org.el @@ -118,6 +118,23 @@ Before running `org-tree-to-indirect-buffer', (let ((org-indirect-buffer-display 'current-window)) (org-tree-to-indirect-buffer arg))) +(defun km/org-sort-parent (arg) + "Sort on parent heading ARG levels up. +After sorting, the point is returned to its previous location +under the current heading." + (interactive "p") + (let ((heading (org-no-properties (org-get-heading t t))) + starting-pos + chars-after-heading) + (setq starting-pos (point)) + (save-excursion + (org-back-to-heading t) + (setq chars-after-heading (- starting-pos (point))) + (outline-up-heading arg) + (call-interactively 'org-sort)) + (goto-char (+ (org-find-exact-headline-in-buffer heading nil t) + chars-after-heading)))) + ;;; Org in other modes (defun km/load-orgstruct () (turn-on-orgstruct++) @@ -235,6 +252,8 @@ MAXLEVEL (defaults to 2)." 'km/org-refile-to-other-org-buffer) (local-set-key (kbd "C-c m W") 'km/org-refile-to-other-file) + (local-set-key (kbd "C-c m s") + 'km/org-sort-parent) (local-set-key (kbd "C-c m o") 'ace-link-org)))) -- cgit v1.2.3