From: Adam Elliott <aelliott@hgn.ca>
To: emacs-orgmode@gnu.org
Subject: [PATCH] Change timestamps in day-step clocktable from active to inactive
Date: Thu, 05 Mar 2009 01:00:46 -0500 [thread overview]
Message-ID: <49AF6A8E.3030908@hgn.ca> (raw)
[-- Attachment #1: Type: text/plain, Size: 496 bytes --]
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
[-- Attachment #2: org-mode.patch --]
[-- Type: text/plain, Size: 726 bytes --]
--- 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")
[-- Attachment #3: Type: text/plain, Size: 204 bytes --]
_______________________________________________
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
next reply other threads:[~2009-03-05 6:00 UTC|newest]
Thread overview: 2+ messages / expand[flat|nested] mbox.gz Atom feed top
2009-03-05 6:00 Adam Elliott [this message]
2009-03-05 15:12 ` [PATCH] Change timestamps in day-step clocktable from active to inactive Carsten Dominik
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=49AF6A8E.3030908@hgn.ca \
--to=aelliott@hgn.ca \
--cc=emacs-orgmode@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.