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 <bastien.gue...@wikimedia.fr> > X-Patchwork-Id: 593 > Message-Id: <87wrl6yipt....@gnu.org> > To: "Sullivan\, Gregory \(US SSA\)" <gregory.sulli...@baesystems.com> > Cc: "Emacs-orgmode@gnu.org" <Emacs-orgmode@gnu.org> > > Hi Gregory, > > "Sullivan, Gregory (US SSA)" <gregory.sulli...@baesystems.com> 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 <b...@altern.org> > 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. > > +@item (currentfile) > +Text will be placed at the beginning or end of the file > +@code{org-capture} 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 > > _______________________________________________ Emacs-orgmode mailing list Please use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode