From 3aa7f5cf950231fdef0a5ac49c32d54e521c87a3 Mon Sep 17 00:00:00 2001
From: Boris Buliga <boris@d12frosted.io>
Date: Fri, 24 Jan 2025 13:00:22 +0200
Subject: [PATCH] emacs:vulpea: org-archive-subtree-tidily

---
 emacs/lisp/init-vulpea.el | 4 ++++
 emacs/lisp/lib-vulpea.el  | 9 +++++++++
 2 files changed, 13 insertions(+)

diff --git a/emacs/lisp/init-vulpea.el b/emacs/lisp/init-vulpea.el
index 6be0389c..090ed4ca 100644
--- 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
index 8db873f1..ee602b96 100644
--- 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