[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Accepted] [Orgmode] using (id "Name") target in org-capture-templates
From: |
Bastien Guerry |
Subject: |
[Accepted] [Orgmode] using (id "Name") target in org-capture-templates |
Date: |
Sat, 12 Feb 2011 19:09:19 +0100 (CET) |
Patch 593 (http://patchwork.newartisans.com/patch/593/) is now "Accepted".
Maintainer comment: none
This relates to the following submission:
http://mid.gmane.org/%3C87wrl6yipt.fsf%40gnu.org%3E
Here is the original message containing the patch:
> Content-Type: text/plain; charset="utf-8"
> MIME-Version: 1.0
> Content-Transfer-Encoding: 7bit
> Subject: [Orgmode] using (id "Name") target in org-capture-templates
> Date: Fri, 11 Feb 2011 15:21:50 -0000
> From: Bastien <address@hidden>
> X-Patchwork-Id: 593
> Message-Id: <address@hidden>
> To: "Sullivan\, Gregory \(US SSA\)" <address@hidden>
> Cc: "address@hidden" <address@hidden>
>
> Hi Gregory,
>
> "Sullivan, Gregory (US SSA)" <address@hidden> writes:
>
> > Thanks for the note. I did indeed mean to use headings.
> >
> > I think it would be nice to be able to have the file dynamic but the
> > heading static in capture templates. In my case, I always want to
> > find a particular heading in the buffer that the capture originated
> > from. So I had to put the whole target spec in a function, as in:
>
> I like the idea of being able to tell capture to use the current file.
>
> This patch against latest Org allows you to use (currentfile) like this:
>
> ,----
> | (setq org-capture-templates
> | '(("j" "Journal" entry (currentfile) "* %a\n\n%i")))
> `----
>
> Let me know if you find this useful.
>
>
> >From a276dc40c860e636be7c8d743bd01b401461a8f5 Mon Sep 17 00:00:00 2001
> From: Bastien Guerry <address@hidden>
> Date: Fri, 11 Feb 2011 11:17:16 +0100
> Subject: [PATCH] Allow (currentfile) for capture templates.
>
> * org-capture.el (org-capture-templates): document currentfile
> for capture template.
> (org-capture-templates): Allow to use currentfile for capture
> templates.
> (org-capture-set-target-location): Handle currentfile as a way
> to setting the capture buffer.
>
> * org.texi (Template elements): document currentfile for
> capture templates.
> ---
> doc/org.texi | 4 ++++
> lisp/org-capture.el | 12 ++++++++++++
> 2 files changed, 16 insertions(+), 0 deletions(-)
>
> diff --git a/doc/org.texi b/doc/org.texi
> index f8a7493..be66b75 100644
> --- a/doc/org.texi
> +++ b/doc/org.texi
> @@ -6314,6 +6314,10 @@ Valid values are:
> @item (file "path/to/file")
> Text will be placed at the beginning or end of that file.
>
> address@hidden (currentfile)
> +Text will be placed at the beginning or end of the file
> address@hidden is called from.
> +
> @item (id "id of existing org entry")
> Filing as child of this entry, or in the body of the entry.
>
> diff --git a/lisp/org-capture.el b/lisp/org-capture.el
> index e258308..2f9b379 100644
> --- a/lisp/org-capture.el
> +++ b/lisp/org-capture.el
> @@ -120,6 +120,10 @@ target Specification of where the captured item
> should be placed.
> (file \"path/to/file\")
> Text will be placed at the beginning or end of that file
>
> + (currentfile)
> + Text will be placed at the beginning or end of the file
> + org-capture is called from
> +
> (id \"id of existing org entry\")
> File as child of this entry, or in the body of the entry
>
> @@ -266,6 +270,8 @@ calendar | %:type %:date"
> (list :tag "File"
> (const :format "" file)
> (file :tag " File"))
> + (list :tag "Current file"
> + (const :format "" currentfile))
> (list :tag "ID"
> (const :format "" id)
> (string :tag " ID"))
> @@ -632,6 +638,12 @@ already gone. Any prefix argument will be passed to the
> refile comand."
> (set-buffer (org-capture-target-buffer (nth 1 target)))
> (setq target-entry-p nil))
>
> + ((eq (car target) 'currentfile)
> + (if (not (and (buffer-file-name) (org-mode-p)))
> + (error "Cannot call this capture template outside of an Org buffer")
> + (set-buffer (org-capture-target-buffer (buffer-file-name)))
> + (setq target-entry-p nil)))
> +
> ((eq (car target) 'id)
> (let ((loc (org-id-find (nth 1 target))))
> (if (not loc)
> --
> 1.7.4
>
>