From 2b565eece01a9790635d557da3a32af5308bbb82 Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Wed, 2 Apr 2014 23:17:28 -0400 Subject: Add commands to refile beyond org-refile-targets --- lisp/init-org.el | 34 ++++++++++++++++++++++++++++++++++ 1 file changed, 34 insertions(+) (limited to 'lisp/init-org.el') diff --git a/lisp/init-org.el b/lisp/init-org.el index 3a05016..2418e81 100644 --- a/lisp/init-org.el +++ b/lisp/init-org.el @@ -193,4 +193,38 @@ be restored properly." (setq org-refile-target-verify-function 'km/verify-refile-target) +(defun km/org-refile-to-other-file (file &optional maxlevel) + "Refile with `org-refile-targets' set to FILE. +A numeric prefix can be given to set MAXLEVEL (defaults to 2)." + (interactive "fFile:") + (let* ((maxlevel (if current-prefix-arg + (prefix-numeric-value current-prefix-arg) + 2)) + (org-refile-targets + `((,(substring-no-properties file) :maxlevel . ,maxlevel)))) + (org-refile))) + +(defun km/org-refile-to-other-org-buffer (buffer &optional maxlevel) + "Refile with `org-refile-targets' set to BUFFER file name. +A numeric prefix can be given to set MAXLEVEL (defaults to 2)." + (interactive (list + (org-icompleting-read "Buffer: " + (mapcar 'buffer-name + (org-buffer-list 'files))))) + (let* ((maxlevel (if current-prefix-arg + (prefix-numeric-value current-prefix-arg) + 2)) + (org-refile-targets + `((,(substring-no-properties (buffer-file-name (get-buffer buffer))) + :maxlevel . ,maxlevel)))) + (org-refile))) + +(eval-after-load 'org + '(add-to-list 'org-mode-hook + '(lambda () + (local-set-key (kbd "C-c m r") + 'km/org-refile-to-other-org-buffer) + (local-set-key (kbd "C-c m R") + 'km/org-refile-to-other-file)))) + (provide 'init-org) -- cgit v1.2.3