summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--lisp/init-org.el22
1 files changed, 22 insertions, 0 deletions
diff --git a/lisp/init-org.el b/lisp/init-org.el
index e2d77a3..8b2fc76 100644
--- a/lisp/init-org.el
+++ b/lisp/init-org.el
@@ -253,6 +253,28 @@ be restored properly."
(setq org-refile-target-verify-function 'km/verify-refile-target)
+(defadvice org-refile (around km/org-refile-dwim activate)
+ "Rebind `org-refile-targets' if next window is an Org buffer.
+A target is determined by `km/org-refile-dwim-target-file'."
+ (let* ((dwim-target (km/org-refile-dwim-target-file))
+ (org-refile-targets (if dwim-target
+ `((dwim-target
+ :maxlevel . ,km/org-refile-dwim-maxlevel))
+ org-refile-targets)))
+ ad-do-it))
+
+(defun km/org-refile-dwim-target-file ()
+ "Return next window that is an Org buffer."
+ (let ((from-buffer (current-buffer)))
+ (--when-let (get-window-with-predicate
+ (lambda (w)
+ (with-current-buffer (window-buffer w)
+ (and (eq major-mode 'org-mode)
+ (not (eq from-buffer (current-buffer)))))))
+ (buffer-file-name (window-buffer it)))))
+
+(defvar km/org-refile-dwim-maxlevel 2)
+
(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)."