Accepted, thanks. - Carsten On 7.10.2011, at 18:15, John J Foerch wrote:
> Carsten Dominik <carsten.domi...@gmail.com> writes: >> Sure, please make a patch! >> >> - Carsten >> >> On 7.10.2011, at 17:22, John J Foerch wrote: >> >>> Hello, >>> >>> I wonder if a format code could be added for org-log-note-headings that >>> allows the insertion of a short timestamp (without clock time). The use >>> case for this is that I log state changes of to-do items, but the >>> precise time of the state change is usually more information than I want >>> to record. >>> >>> Thank you >>> >>> -- >>> John Foerch >>> >>> > > Okay, here it is. This patch adds %d and %D, the capitalized form for > an active timestamp, corresponding to %t and %T. The reason I thought > of 'd' as the code is the mnemonic "date". > > -- > John Foerch > > > From 746ab08868ab88dc3d942bada9a21b21cc3e6de2 Mon Sep 17 00:00:00 2001 > From: John Foerch <jjfoe...@earthlink.net> > Date: Fri, 7 Oct 2011 12:09:22 -0400 > Subject: [PATCH] org-log-note-headings: format codes %d and %D > > Two new format codes support insertion of a short-format time stamp. > %d for an inactive time stamp, and %D for an active one. > --- > lisp/org.el | 8 ++++++++ > 1 files changed, 8 insertions(+), 0 deletions(-) > > diff --git a/lisp/org.el b/lisp/org.el > index 4a11fc0..00cc7e0 100644 > --- a/lisp/org.el > +++ b/lisp/org.el > @@ -2375,6 +2375,8 @@ context, and the cdr is the heading to be used. The > heading may also be the > empty string. > %t in the heading will be replaced by a time stamp. > %T will be an active time stamp instead the default inactive one > +%d will be replaced by a short-format time stamp. > +%D will be replaced by an active short-format time stamp. > %s will be replaced by the new TODO state, in double quotes. > %S will be replaced by the old TODO state, in double quotes. > %u will be replaced by the user name. > @@ -12174,6 +12176,12 @@ EXTRA is additional text that will be inserted into > the notes buffer." > (cons "%T" (format-time-string > (org-time-stamp-format 'long nil) > org-log-note-effective-time)) > + (cons "%d" (format-time-string > + (org-time-stamp-format nil 'inactive) > + org-log-note-effective-time)) > + (cons "%D" (format-time-string > + (org-time-stamp-format nil nil) > + org-log-note-effective-time)) > (cons "%s" (if org-log-note-state > (concat "\"" org-log-note-state "\"") > "")) > -- > 1.7.6.3 >
