From 627fb5c27515ea0b1950251475550fe175b8ca00 Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Sat, 20 Feb 2016 19:00:02 -0500
Subject: org-agenda: Add bulk command for deletion

---
 lisp/km-org.el | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'lisp')

diff --git a/lisp/km-org.el b/lisp/km-org.el
index 49fa76f..74f7eb7 100644
--- a/lisp/km-org.el
+++ b/lisp/km-org.el
@@ -360,6 +360,16 @@ displayed in the agenda."
            (org-agenda-text-search-extra-files :maxlevel . 3))))
     (org-refile '(4))))
 
+(defun km/org-delete-subtree ()
+  (org-back-to-heading t)
+  (delete-region
+   (point)
+   (org-element-property :end (org-element-at-point))))
+
+(defun km/org-agenda-delete-subtree ()
+  (interactive)
+  (org-agenda-archive-with #'km/org-delete-subtree))
+
 
 ;;; Refiling
 
-- 
cgit v1.2.3