diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/km-org.el | 10 |
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 |