summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMarco Wahl <marcowahlsoft@gmail.com>2019-08-22 09:48:56 +0200
committerMarco Wahl <marcowahlsoft@gmail.com>2019-08-23 10:45:37 +0200
commitd83149bad1d773587c0f902706657c3bae46a0a2 (patch)
tree4bc50301a2a0fe6b0a66aeaea077d16034d28372
parent784adcd844020239ad7f8f2f745dc064aaa1731a (diff)
downloadorg-mode-d83149bad1d773587c0f902706657c3bae46a0a2.tar.gz
org-agenda: Display duration of clocking without end time
-rw-r--r--lisp/org-agenda.el9
1 files changed, 8 insertions, 1 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index c446f15..e4a334d 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -5888,7 +5888,14 @@ See also the user option `org-agenda-clock-consistency-checks'."
(error "No valid Clock line")
(throw 'next t))
(unless (match-end 3)
- (setq issue "No end time"
+ (setq issue
+ (format
+ "No end time: (%s)"
+ (org-duration-from-minutes
+ (floor
+ (- (float-time (org-current-time))
+ (float-time (org-time-string-to-time (match-string 1))))
+ 60)))
face (or (plist-get pl :no-end-time-face) face))
(throw 'next t))
(setq ts (match-string 1)