tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

org-clock: Fix special strings in :tstart and :tend

Browse source 
* lisp/org-clock.el (org-clocktable-steps): Handle relative time
  strings like "<-1w>".
This commit is contained in:
Nicolas Goaziou 2018-11-17 21:45:16 +01:00
parent 7bf3c10819
commit fc9cf62bf3
1 changed files with 2 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/org-clock.el
View file

@ -2710,15 +2710,13 @@ The TS argument has the same type as the return values of
;; org-agenda.
(pcase-let ((`(,month ,day ,year) (calendar-gregorian-from-absolute ts)))
(setq ts (float-time (encode-time 0 0 0 day month year)))))
(ts
(setq ts (float-time (apply #'encode-time (org-parse-time-string ts))))))
(ts (setq ts (org-matcher-time ts))))
(cond
((numberp te)
;; Likewise for te.
(pcase-let ((`(,month ,day ,year) (calendar-gregorian-from-absolute te)))
(setq te (float-time (encode-time 0 0 0 day month year)))))
(te
(setq te (float-time (apply #'encode-time (org-parse-time-string te))))))
(te (setq te (org-matcher-time te))))
(setq tsb
(if (eq step0 'week)
(let ((dow (nth 6 (decode-time (seconds-to-time ts)))))