summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lisp')
-rw-r--r--lisp/km-org.el10
1 files changed, 10 insertions, 0 deletions
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