forked from mirrors/org-mode
Clocktable: Use inactive time stamps for stepwise table
Adam Elliott writes: > 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 This commit is the patch Adam sent in.
This commit is contained in:
parent
ce020cde17
commit
0850b14c8f
|
@ -1,5 +1,8 @@
|
|||
2009-03-05 Carsten Dominik <carsten.dominik@gmail.com>
|
||||
|
||||
* org-clock.el (org-clocktable-steps): Use inactive time stamps
|
||||
for clocktable steps.
|
||||
|
||||
* org.el (org-additional-option-like-keywords): Add two more
|
||||
keywords.
|
||||
|
||||
|
|
|
@ -1076,10 +1076,10 @@ the currently selected interval size."
|
|||
(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")
|
||||
|
|
Loading…
Reference in New Issue