Hi Gregory,
"Sullivan, Gregory (US SSA)" <[email protected]> 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 <[email protected]>
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
--
Bastien
_______________________________________________
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-orgmode
