From 07a3c384b42b2e9ab8bdbd9bf7bdf67c0f8d293c Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Wed, 21 Sep 2016 23:51:11 -0400 Subject: Add org-agenda-refile-dwim command --- lisp/km-org.el | 13 +++++++++++++ 1 file changed, 13 insertions(+) (limited to 'lisp') diff --git a/lisp/km-org.el b/lisp/km-org.el index b1cd833..29df941 100644 --- a/lisp/km-org.el +++ b/lisp/km-org.el @@ -514,6 +514,19 @@ A target is determined by `km/org-refile-dwim-target-file'." org-refile-targets))) (call-interactively #'org-refile))) +(defun km/org-agenda-refile-dwim () + "Rebind `org-agenda-refile-targets' if next window is an Org buffer. +A target is determined by `km/org-refile-dwim-target-file'." + (interactive) + (let* ((dwim-target (km/org-refile-dwim-target-file)) + (org-refile-targets (if dwim-target + `((nil + :maxlevel . ,km/org-refile-dwim-maxlevel) + (dwim-target + :maxlevel . ,km/org-refile-dwim-maxlevel)) + org-refile-targets))) + (call-interactively #'org-agenda-refile))) + (defun km/org-refile-dwim-target-file () "Return next window that is an Org buffer." (let* ((from-buffer (current-buffer)) -- cgit v1.2.3