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
