archive on ending )

2025-03-01 21:38:40 +02:00
parent a2708b5730
commit 0f293bab1b
1 changed files with 8 additions and 0 deletions
--- a/private_dot_config/doom/config.el
+++ b/private_dot_config/doom/config.el
@@ -521,3 +521,11 @@
    (apply orig-fn args)))

 (advice-add 'org-roam-node-read :around #'case-insensitive-org-roam-node-read)
+(defun org-archive-done-tasks ()
+  (interactive)
+  (org-map-entries
+   (lambda ()
+     (org-archive-subtree)
+     (setq org-map-continue-from (org-element-property :begin (org-element-at-point))))
+   "/DONE" 'agenda))
+(add-hook 'kill-emacs-hook #'org-archive-done-tasks)