[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [O] short timestamp in org-log-note-headings
From: |
Carsten Dominik |
Subject: |
Re: [O] short timestamp in org-log-note-headings |
Date: |
Sat, 8 Oct 2011 18:01:18 +0200 |
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
>