Thank you, too John Foerch
Carsten Dominik <carsten.domi...@gmail.com> writes: > Accepted, thanks. > > - Carsten > On 7.10.2011, at 18:15, John J Foerch wrote: > >> 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 >>
