emacs: Add org-mode sorting helper.

1 files changed, 10 insertions, 0 deletions

diff --git a/dotfiles/.emacs.d/init.el b/dotfiles/.emacs.d/init.el
index 2acbaba..ba636ba 100644
--- a/dotfiles/.emacs.d/init.el
+++ b/dotfiles/.emacs.d/init.el
@@ -407,6 +407,16 @@ indentation."
 
 (require 'ox-beamer)
 
+(defun org-sort-by-todo-and-priority ()
+  "Sort org entries first by TODO status, and then by priority."
+  (interactive)
+  (org-sort-entries nil ?o)
+  (org-sort-entries nil ?p))
+
+(add-hook 'org-mode-hook
+          (lambda ()
+            (local-set-key (kbd "C-c o") 'org-sort-by-todo-and-priority)))
+
 ;;;
 ;;; RSS
 ;;;