Procházet zdrojové kódy

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.
Carsten Dominik před 16 roky
rodič
revize
0850b14c8f
2 změnil soubory, kde provedl 5 přidání a 2 odebrání
  1. 3 0
      lisp/ChangeLog
  2. 2 2
      lisp/org-clock.el

+ 3 - 0
lisp/ChangeLog

@@ -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.
 

+ 2 - 2
lisp/org-clock.el

@@ -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")