[elpa] externals/org 9e127a7 2/6: New command `org-refile-reverse' bound to C-c C-M-w

[ELPA Syncer]

branch: externals/org
commit 9e127a720c624570b5916499a0e5a6f7d45fd043
Author: Adam Spiers <orgmode@adamspiers.org>
Commit: Bastien <bzg@gnu.org>

    New command `org-refile-reverse' bound to C-c C-M-w
    
    * lisp/org-refile.el (org-refile-reverse): New command.
    
    * lisp/org-keys.el (org-mode-map): Bind C-c C-M-w to
    `org-refile-reverse'.
    
    * doc/org-manual.org (Refile and Copy): Document
    `org-refile-reverse'.
    
    * etc/ORG-NEWS (New command ~org-refile-reverse~ (=C-c C-M-w=)):
    Announce the new command.
    
    Link: 
https://orgmode.org/list/20200830001047.21362-1-orgmode@adamspiers.org/
---
 doc/org-manual.org | 10 ++++++++++
 etc/ORG-NEWS       | 10 ++++++++++
 lisp/org-keys.el   |  1 +
 lisp/org-refile.el | 11 +++++++++++
 4 files changed, 32 insertions(+)

diff --git a/doc/org-manual.org b/doc/org-manual.org
index ab12fa7..a4baf52 100644
--- a/doc/org-manual.org
+++ b/doc/org-manual.org
@@ -7246,6 +7246,16 @@ special command:
   Copying works like refiling, except that the original note is not
   deleted.
 
+- {{{kbd(C-c C-M-w)}}} (~org-refile-reverse~) ::
+
+  #+kindex: C-c C-M-w
+  #+findex: org-refile-reverse
+  Works like refiling, except that it temporarily toggles how the
+  value of ~org-reverse-note-order~ applies to the current buffer.  So
+  if ~org-refile~ would append the entry as the last entry under the
+  target header, ~org-refile-reverse~ will prepend it as the first
+  entry, and vice-versa.
+
 ** Archiving
 :PROPERTIES:
 :DESCRIPTION: What to do with finished products.
diff --git a/etc/ORG-NEWS b/etc/ORG-NEWS
index 669a7c3..b987b7a 100644
--- a/etc/ORG-NEWS
+++ b/etc/ORG-NEWS
@@ -230,6 +230,16 @@ package, to convert pandas Dataframes into orgmode tables:
 | 2 | 3 | 6 |
 #+end_src
 
+*** New command ~org-refile-reverse~ (=C-c C-M-w=)
+
+You can now use =C-c C-M-w= to run ~org-refile-reverse~.
+
+It is almost identical to ~org-refile~, except that it temporarily
+toggles how ~org-reverse-note-order~ applies to the current buffer.
+So if ~org-refile~ would append the entry as the last entry under the
+target heading, ~org-refile-reverse~ will prepend it as the first
+entry, and vice-versa.
+
 *** New startup options =#+startup: show<n>levels=
 
 These startup options complement the existing =overview=, =content=,
diff --git a/lisp/org-keys.el b/lisp/org-keys.el
index f04f87d..12d6226 100644
--- a/lisp/org-keys.el
+++ b/lisp/org-keys.el
@@ -581,6 +581,7 @@ COMMANDS is a list of alternating OLDDEF NEWDEF command 
names."
 (org-defkey org-mode-map (kbd "C-c ;") #'org-toggle-comment)
 (org-defkey org-mode-map (kbd "C-c C-w") #'org-refile)
 (org-defkey org-mode-map (kbd "C-c M-w") #'org-refile-copy)
+(org-defkey org-mode-map (kbd "C-c C-M-w") #'org-refile-reverse)
 (org-defkey org-mode-map (kbd "C-c /") #'org-sparse-tree) ;minor-mode reserved
 (org-defkey org-mode-map (kbd "C-c \\") #'org-match-sparse-tree) ;minor-mode r.
 (org-defkey org-mode-map (kbd "C-c RET") #'org-ctrl-c-ret)
diff --git a/lisp/org-refile.el b/lisp/org-refile.el
index 2900be2..bffad0a 100644
--- a/lisp/org-refile.el
+++ b/lisp/org-refile.el
@@ -383,8 +383,19 @@ the *old* location.")
   (let ((org-refile-keep t))
     (org-refile nil nil nil "Copy")))
 
+;;;###autoload
+(defun org-refile-reverse (&optional arg default-buffer rfloc msg)
+  "Refile while temporarily toggling `org-reverse-note-order'.
+So if `org-refile' would append the entry as the last entry under
+the target heading, `org-refile-reverse' will prepend it as the
+first entry, and vice-versa."
+  (interactive "P")
+  (let ((org-reverse-note-order (not (org-notes-order-reversed-p))))
+    (org-refile arg default-buffer rfloc msg)))
+
 (defvar org-capture-last-stored-marker)
 
+
 ;;;###autoload
 (defun org-refile (&optional arg default-buffer rfloc msg)
   "Move the entry or entries at point to another heading.