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

[John J Foerch]

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