archive on ending )

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)