org-capture: file to top level with prepend

From: Thomas Fuchs <tfuchs13@googlemail.com>
To: emacs-orgmode@gnu.org
Subject: org-capture: file to top level with prepend
Date: Sun, 3 Oct 2010 06:01:38 +0200	[thread overview]
Message-ID: <AANLkTikV__Zb3XXNw9x4V0QWfwU1Qzyx+G5QK2vdv59-@mail.gmail.com> (raw)


[-- Attachment #1.1: Type: text/plain, Size: 757 bytes --]

Hi!

I'm trying to capture and file an entry as an top-level entry as first entry

in an org file without config at the beginning (no "#+").
This leads to filing the entry as _second_ headline in the org file.

The template is:
("z" "test" entry (file "~/Data/z.org") "* %^{Note} %t  :NOTE:\n %?"
:prepend t)

I think this is due to jumping over lines starting with "#+" at the
beginning of the org file
(line 715 in org-capture.el (org-capture-place-entry)).
My file has no config header and starts with the first headline. Calling
outline-next-heading
in this situation leads to jumping to the second headline in the file.

The appended patch fixes this problem by checking if we are on a headline
and then skips jumping to next headline.

Regards
Thomas

[-- Attachment #1.2: Type: text/html, Size: 926 bytes --]

[-- Attachment #2: patch --]
[-- Type: application/octet-stream, Size: 408 bytes --]

diff --git a/lisp/org-capture.el b/lisp/org-capture.el
index 6ce9cdd..4143f7b 100644
--- a/lisp/org-capture.el
+++ b/lisp/org-capture.el
@@ -712,7 +712,8 @@ already gone."
       (setq level 1)
       (if reversed
 	  (progn (goto-char (point-min))
-		 (outline-next-heading))
+		 (if (not (org-at-heading-p))
+		     (outline-next-heading)))
 	(goto-char (point-max))
 	(or (bolp) (insert "\n"))))
      (t

[-- Attachment #3: Type: text/plain, Size: 201 bytes --]

_______________________________________________
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
