Re: [O] short timestamp in org-log-note-headings

[John J Foerch]

Thank you, too

John Foerch

Carsten Dominik <address@hidden> writes:
> Accepted, thanks.
>
> - Carsten
> On 7.10.2011, at 18:15, John J Foerch wrote:
>
>> Carsten Dominik <address@hidden> 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 <address@hidden>
>> 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
>>