Question: https://emacs.stackexchange.com/questions/41362
Snapshot:
Answer:
(defun org-mode-keep-the-level-when-refiling ()
(interactive)
(cl-destructuring-bind (level reduced-level todo-keyword priority-character headline-text tags-string)
(org-heading-components)
(org-refile)
(goto-char
(point-max))
(re-search-backward-lax-whitespace
(format "** %s" headline-text))
(dotimes (i 2)
(org-toggle-heading level))))