emacs:vulpea: org-archive-subtree-tidily

d12frosted · Jan 24, 2025 · 3aa7f5c · 3aa7f5c
1 parent 32c6825
commit 3aa7f5c
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 0 deletions.
diff --git a/emacs/lisp/init-vulpea.el b/emacs/lisp/init-vulpea.el
@@ -284,6 +284,10 @@
 (use-package org-archive
   :ensure nil
   :after org
+  :general
+  (general-define-key
+    :keymaps 'org-mode-map
+    [remap org-archive-subtree] 'org-archive-subtree-tidily)
   :init
   (setq-default
    org-archive-location "::* Archive"

diff --git a/emacs/lisp/lib-vulpea.el b/emacs/lisp/lib-vulpea.el
@@ -644,5 +644,14 @@ Defaults to `string-from'."
 
 
 
+;;;###autoload
+(defun org-archive-subtree-tidily ()
+  "Archive current heading without changing visibility."
+  (interactive)
+  (org-save-outline-visibility t
+    (org-archive-subtree)))
+
+
+
 (provide 'lib-vulpea)
 ;;; lib-vulpea.el ends here