From mboxrd@z Thu Jan 1 00:00:00 1970 From: Adam Elliott Subject: [PATCH] Change timestamps in day-step clocktable from active to inactive Date: Thu, 05 Mar 2009 01:00:46 -0500 Message-ID: <49AF6A8E.3030908@hgn.ca> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="------------000705030805040708090203" Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1Lf6dW-0008IZ-Lq for emacs-orgmode@gnu.org; Thu, 05 Mar 2009 01:00:50 -0500 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1Lf6dU-0008IG-SF for emacs-orgmode@gnu.org; Thu, 05 Mar 2009 01:00:50 -0500 Received: from [199.232.76.173] (port=55174 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Lf6dU-0008I9-Mz for emacs-orgmode@gnu.org; Thu, 05 Mar 2009 01:00:48 -0500 Received: from cymlink-stage.hgn.ca ([64.26.151.4]:60532) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1Lf6dU-0000VR-9h for emacs-orgmode@gnu.org; Thu, 05 Mar 2009 01:00:48 -0500 Received: from [127.0.0.1] (localhost [127.0.0.1]) by cymlink-stage.hgn.ca (Postfix) with ESMTP id 8B0825F401 for ; Thu, 5 Mar 2009 01:00:43 -0500 (EST) List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org This is a multi-part message in MIME format. --------------000705030805040708090203 Content-Type: text/plain; charset=ISO-8859-1; format=flowed Content-Transfer-Encoding: 7bit When run in day-step mode, the clocktable header line for each day's table contains an active timestamp. I figure it should be an inactive timestamp, since otherwise I get a junk entry in the agenda each day (whatever heading was previous to the clocktable). I'm talking about the output from a spec such as the following: #+BEGIN: clocktable :block thisweek :step day Only two lines changed (1079 & 1082 of org-clock.el). Barely worthy of a formal patch, but I have one attached. Adam --------------000705030805040708090203 Content-Type: text/plain; name="org-mode.patch" Content-Transfer-Encoding: 7bit Content-Disposition: inline; filename="org-mode.patch" --- org-clock.el~ 2009-02-23 08:16:36.000000000 -0500 +++ org-clock.el 2009-03-05 00:35:40.781250000 -0500 @@ -1076,10 +1076,10 @@ (while (< ts te) (or (bolp) (insert "\n")) (setq p1 (plist-put p1 :tstart (format-time-string - (car org-time-stamp-formats) + (org-time-stamp-format nil t) (seconds-to-time ts)))) (setq p1 (plist-put p1 :tend (format-time-string - (car org-time-stamp-formats) + (org-time-stamp-format nil t) (seconds-to-time (setq ts (+ ts step)))))) (insert "\n" (if (eq step0 'day) "Daily report: " "Weekly report starting on: ") (plist-get p1 :tstart) "\n") --------------000705030805040708090203 Content-Type: text/plain; charset="us-ascii" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Disposition: inline _______________________________________________ Emacs-orgmode mailing list Remember: use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode --------------000705030805040708090203--