On Sun, Aug 23, 2015 at 9:40 AM, Nicolas Goaziou m...@nicolasgoaziou.fr wrote:
+ (let ((last (eq org-agenda-insert-diary-strategy 'date-tree-last))
+ (has-children (save-excursion (org-goto-first-child
+(if (not (and last has-children))
+ (outline-next-heading)
+
Hello,
Nikolai Weibull n...@disu.se writes:
* org-agenda.el (org-agenda-insert-diary-strategy): Add new value
'date-tree-last.
(org-agenda-insert-diary-make-new-entry): Handle
`org-agenda-insert-diary-strategy' set to 'date-tree-last.
To allow for diary entries to be entered in time
Nikolai Weibull n...@disu.se writes:
That’s what I used first, but that doesn’t work if the subtree has
children that has children.
Indeed. I realized it was wrong a short time after sending it. What
about:
(end-of-line)
(org-insert-heading '(4) t)
(org-do-demote)
?
Regards,
* org-agenda.el (org-agenda-insert-diary-strategy): Add new value
'date-tree-last.
(org-agenda-insert-diary-make-new-entry): Handle
`org-agenda-insert-diary-strategy' set to 'date-tree-last.
To allow for diary entries to be entered in time order in the date tree,
add a new value to