[PATCH] org-capture.el: Add new capture template option :refile-to

[Richard Garner]

Hi all,

The included patch adds a new property :refile-to to org capture
templates, allowing each template to have its own set of refile targets.
I find this really useful in practice and thought others might too.

Richard

---

>From 829c1ba4805327645fcb75b35b73ecb3a1700b2f Mon Sep 17 00:00:00 2001
From: Richard Garner <richard.garner@mq.edu.au>
Subject: 

* lisp/org-capture.el (org-capture-refile): bind `org-refile-targets'
to value of local capture template property :refile-to around call to
`org-refile'.

(org-capture-templates): document new capture template property
:refile-to.

TINYCHANGE
---
 lisp/org-capture.el | 18 ++++++++++++------
 1 file changed, 12 insertions(+), 6 deletions(-)

diff --git a/lisp/org-capture.el b/lisp/org-capture.el
index 9fbd00ccd..64ecd5fe1 100644
--- a/lisp/org-capture.el
+++ b/lisp/org-capture.el
@@ -246,6 +246,10 @@ properties are:
 
  :jump-to-captured   When set, jump to the captured entry when finished.
 
+ :refile-to          When exiting capture mode via `org-capture-refile', the
+                     variable `org-refile-targets' will be temporarily bound
+                     to the value of this property.
+
  :empty-lines        Set this to the number of lines that should be inserted
                      before and after the new item.  Default 0, only common
                      other value is 1.
@@ -885,7 +889,8 @@ for `entry'-type templates"))
         (pos (make-marker))
         (org-capture-is-refiling t)
         (kill-buffer (org-capture-get :kill-buffer 'local))
-        (jump-to-captured (org-capture-get :jump-to-captured 'local)))
+        (jump-to-captured (org-capture-get :jump-to-captured 'local))
+        (refile-to (org-capture-get :refile-to 'local)))
     ;; Since `org-capture-finalize' may alter buffer contents (e.g.,
     ;; empty lines) around entry, use a marker to refer to the
     ;; headline to be refiled.  Place the marker in the base buffer,
@@ -895,11 +900,12 @@ for `entry'-type templates"))
     ;; early.  We want to wait for the refiling to be over, so we
     ;; control when the latter function is called.
     (org-capture-put :kill-buffer nil :jump-to-captured nil)
-    (org-capture-finalize)
-    (save-window-excursion
-      (with-current-buffer base
-       (org-with-point-at pos
-         (call-interactively 'org-refile))))
+    (let ((org-refile-targets (or refile-to org-refile-targets)))
+      (org-capture-finalize)
+      (save-window-excursion
+        (with-current-buffer base
+         (org-with-point-at pos
+           (call-interactively 'org-refile)))))
     (when kill-buffer
       (with-current-buffer base (save-buffer))
       (kill-buffer base))
-- 
2.17.2 (Apple Git-113)