Re: short timestamp in org-log-note-headings

[Carsten Dominik <carsten.dominik@gmail.com>]

Accepted, thanks.

- Carsten
On 7.10.2011, at 18:15, John J Foerch wrote:

> Carsten Dominik <carsten.dominik@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 <jjfoerch@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
>