Samuel Loury <konubi...@gmail.com> writes: > Nicolas Goaziou <m...@nicolasgoaziou.fr> writes: > >> Samuel Loury <konubi...@gmail.com> writes: >> >>> I just realized that when creating a new entry in my org-diary >>> (`org-agenda-add-entry-to-org-agenda-diary-file'), the entry looks like: >>> >>> ** test >>> <2015-01-30 Fri> >>> :PROPERTIES: >>> :CREATED: [2015-01-30 Fri 08:00] >>> :END: >>> >>> The property is added by an call to `org-expiry-insert-created' in the >>> `org-insert-heading-hook'. see in contrib/lisp/org-expiry.el:179 >>> >>> With more details: >>> >>> In the process in inserting the diary entry, >>> `org-agenda-add-entry-to-org-agenda-diary-file' >>> calls (lisp/org-agenda.el:9460) >>> `org-agenda-insert-diary-as-top-level' (lisp/org-agenda.el:9479). >>> >>> The later then calls `org-insert-heading' (calling the org-expiry hook >>> that creates the property drawer), and inserts the text of the heading >>> followed by a new line, resulting in the insertion of: >> >> Actually, AFAICT, the sole function calling `org-insert-heading' in >> "org-agenda.el" is `org-agenda-insert-diary-make-new-entry'. I fixed it >> so it properly puts point on the right spot in the entry. > > The function `org-agenda-insert-diary-as-top-level' is a few line above > the one you patched. > > I copied the code you've written in > `org-agenda-insert-diary-make-new-entry' and I've put it in > `org-agenda-insert-diary-as-top-level'. This fixes my problem. Please > find attached the associated patch.
I just realized that the call to `org-insert-heading' was into one of my local patches. Actually, I think this patch may be worth applying to prior to the one I just sent. Please, find it attached to this email.
From b975ff7630dcf289a795a9eb0ec6f449d0efd621 Mon Sep 17 00:00:00 2001 From: Konubinix <konubi...@gmail.com> Date: Thu, 6 Nov 2014 11:02:23 +0100 Subject: [PATCH] Make use of `org-insert-heading' instead of inserting the * character * lisp/org-agenda.el (org-agenda-insert-diary-as-top-level): Make use of `org-insert-heading' instead of inserting the * character Therefore, the hooks associated to the insertion of a heading will be triggered. --- lisp/org-agenda.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index b83c331..e719c00 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -9488,7 +9488,8 @@ a timestamp can be added there." (widen) (goto-char (point-max)) (or (bolp) (insert "\n")) - (insert "* " text "\n") + (org-insert-heading) + (insert text "\n") (if org-adapt-indentation (org-indent-to-column 2))) (defun org-agenda-insert-diary-make-new-entry (text) -- 2.1.4
It makes sure the `org-insert-heading' is called instead of hard-coding its behavior by inserting the "*" character. I initially made this patch to make sure the org-expiry hook is called whenever I create diary entries. -- Konubinix GPG Key : 7439106A Fingerprint: 5993 BE7A DA65 E2D9 06CE 5C36 75D2 3CED 7439 106A
signature.asc
Description: PGP signature
