From: Richard Garner <richard.garner@mq.edu.au>
To: emacs-orgmode@gnu.org
Subject: Re: [PATCH] org-capture.el: Add new capture template option :refile-to
Date: Sun, 25 Apr 2021 08:10:24 +1000 [thread overview]
Message-ID: <lz5z0be3lb.fsf@Trudelutt.lan> (raw)
In-Reply-To: <lz8s57e3ys.fsf@Trudelutt.lan>
Sorry, messed up the patch attachment, will resend in a new thread.
Richard
Richard Garner <richard.garner@mq.edu.au> writes:
> 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))
next prev parent reply other threads:[~2021-04-24 22:11 UTC|newest]
Thread overview: 5+ messages / expand[flat|nested] mbox.gz Atom feed top
2021-04-24 22:02 [PATCH] org-capture.el: Add new capture template option :refile-to Richard Garner
2021-04-24 22:10 ` Richard Garner [this message]
2021-04-25 3:16 ` Timothy
-- strict thread matches above, loose matches on Subject: below --
2021-04-24 22:12 Richard Garner
2021-05-01 11:15 ` Bastien
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=lz5z0be3lb.fsf@Trudelutt.lan \
--to=richard.garner@mq.edu.au \
--cc=emacs-orgmode@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).