diff options
author | Marco Wahl <marcowahlsoft@gmail.com> | 2019-08-22 09:48:56 +0200 |
---|---|---|
committer | Marco Wahl <marcowahlsoft@gmail.com> | 2019-08-23 10:45:37 +0200 |
commit | d83149bad1d773587c0f902706657c3bae46a0a2 (patch) | |
tree | 4bc50301a2a0fe6b0a66aeaea077d16034d28372 | |
parent | 784adcd844020239ad7f8f2f745dc064aaa1731a (diff) | |
download | org-mode-d83149bad1d773587c0f902706657c3bae46a0a2.tar.gz |
org-agenda: Display duration of clocking without end time
-rw-r--r-- | lisp/org-agenda.el | 9 |
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) |