From mboxrd@z Thu Jan 1 00:00:00 1970 From: Nikolai Weibull Subject: [PATCH] Allow inserting diary entries last in date tree Date: Mon, 24 Aug 2015 10:40:58 +0200 Message-ID: <1440405658-37048-1-git-send-email-now@disu.se> References: <87k2slzqgn.fsf@nicolasgoaziou.fr> Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:42991) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZTnJc-0004Zb-Tt for emacs-orgmode@gnu.org; Mon, 24 Aug 2015 04:41:18 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1ZTnJX-0004d4-Tc for emacs-orgmode@gnu.org; Mon, 24 Aug 2015 04:41:16 -0400 Received: from smtprelay-h21.telenor.se ([195.54.99.196]:38372) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZTnJX-0004cX-JB for emacs-orgmode@gnu.org; Mon, 24 Aug 2015 04:41:11 -0400 Received: from ipb5.telenor.se (ipb5.telenor.se [195.54.127.168]) by smtprelay-h21.telenor.se (Postfix) with ESMTP id 8058DC376 for ; Mon, 24 Aug 2015 10:41:09 +0200 (CEST) In-Reply-To: <87k2slzqgn.fsf@nicolasgoaziou.fr> List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org Cc: Nikolai Weibull * 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 `org-agenda-insert-diary-strategy' that allows for this. The code for handling this value, 'date-tree-last, is a bit tricky, as we need to keep track of whether the date-tree already had one or more entries for the given date. --- lisp/org-agenda.el | 26 +++++++++++++++++--------- 1 file changed, 17 insertions(+), 9 deletions(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 5fd1cd4..d97b3a9 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -9417,11 +9417,13 @@ buffer, display it in another window." "Where in `org-agenda-diary-file' should new entries be added? Valid values: -date-tree in the date tree, as child of the date -top-level as top-level entries at the end of the file." +date-tree in the date tree, as first child of the date +date-tree-last in the date tree, as last child of the date +top-level as top-level entries at the end of the file." :group 'org-agenda :type '(choice - (const :tag "in a date tree" date-tree) + (const :tag "first in a date tree" date-tree) + (const :tag "last in a date tree" date-tree-last) (const :tag "as top level at end of file" top-level))) (defcustom org-agenda-insert-diary-extract-time nil @@ -9525,14 +9527,20 @@ a timestamp can be added there." (when org-adapt-indentation (org-indent-to-column 2))) (defun org-agenda-insert-diary-make-new-entry (text) - "Make a new entry with TEXT as the first child of the current subtree. + "Make a new entry with TEXT as a child of the current subtree. Position the point in the heading's first body line so that a timestamp can be added there." - (outline-next-heading) - (org-back-over-empty-lines) - (unless (looking-at "[ \t]*$") (save-excursion (insert "\n"))) - (org-insert-heading nil t) - (org-do-demote) + (cond + ((eq org-agenda-insert-diary-strategy 'date-tree-last) + (end-of-line) + (org-insert-heading '(4) t) + (org-do-demote)) + (t + (outline-next-heading) + (org-back-over-empty-lines) + (unless (looking-at "[ \t]*$") (save-excursion (insert "\n"))) + (org-insert-heading nil t) + (org-do-demote))) (let ((col (current-column))) (insert text) (org-end-of-meta-data) -- 2.5.0