From 7c369696c2eb9ebcd72ac9e7415d2481c4da7d80 Mon Sep 17 00:00:00 2001 From: Dan Drake Date: Sun, 19 Jan 2020 08:24:12 -0600 Subject: [PATCH] org-clock.el: add `t' option to org-clock-resolve * org-clock.el (org-clock-resolve): add `t' option. This works just like `k', but asks the user to specify a time, instead of a number of minutes. Often when you are interrupted at a task and get back to it, you know what time the interruption happened. This option makes it easy to tell org-resolve-clocks about that. For example, say you clocked into task A at, say, 9:37: * original task A :LOGBOOK: CLOCK: [2020-01-21 Mon 09:37] :END: While working on task A, you get a phone call. When the call is done, you'd like to update your time logging to reflect the phone call. Your phone says the call was at 11:09. With C-c C-x C-z, you can use the `K' option, but you need to figure out the number of minutes to keep. It's easier to look at the phone, or to mentally note the time when an interruption starts. With the new option, you can select `T', and just specify a time of 11:09. The state is now: * original task A :LOGBOOK: CLOCK: [2020-01-21 Mon 09:37]--[2020-01-21 Mon 11:09] => 1:32 :END: You add the phone call to your org buffer and do C-c C-x C-i to clock in. Org asks you to start the time from when the previous task ended, you say yes, and the state is now: * original task A :LOGBOOK: CLOCK: [2020-01-21 Mon 09:37]--[2020-01-21 Mon 11:09] => 1:32 :END: * task B, phone call :LOGBOOK: CLOCK: [2020-01-21 Mon 11:09] :END: At this point, you can clock back into task A, or any other task. The key feature here is to be able to just type in a time -- in any format accepted by org-read-date -- instead of specifying a number of minutes. TINYCHANGE --- lisp/org-clock.el | 23 +++++++++++++++++------ 1 file changed, 17 insertions(+), 6 deletions(-) diff --git a/lisp/org-clock.el b/lisp/org-clock.el index 06df2d497..a73b500a8 100644 --- a/lisp/org-clock.el +++ b/lisp/org-clock.el @@ -986,6 +986,12 @@ CLOCK is a cons cell of the form (MARKER START-TIME)." (org-flag-drawer nil element)) (throw 'exit nil))))))))))) +(defun time-to-mins-to-keep (start-time) + "Asks the user for a time and returns the number of minutes +from START-TIME to that time." + (floor (/ (float-time + (time-subtract (org-read-date t t) start-time)) 60))) + (defun org-clock-resolve (clock &optional prompt-fn last-valid fail-quietly) "Resolve an open Org clock. An open clock was found, with `dangling' possibly being non-nil. @@ -1022,6 +1028,9 @@ k/K Keep X minutes of the idle time (default is all). If this that many minutes after the time that idling began, and then clocked back in at the present time. +t/T Like `k', but will ask you to specify a time, instead of a + number of minutes. + g/G Indicate that you \"got back\" X minutes ago. This is quite different from `k': it clocks you out from the beginning of the idle period and clock you back in X minutes ago. @@ -1041,19 +1050,21 @@ to be CLOCKED OUT.")))) (while (or (null char-pressed) (and (not (memq char-pressed '(?k ?K ?g ?G ?s ?S ?C - ?j ?J ?i ?q))) + ?j ?J ?i ?q ?t ?T))) (or (ding) t))) (setq char-pressed (read-char (concat (funcall prompt-fn clock) - " [jkKgGSscCiq]? ") + " [jkKtTgGSscCiq]? ") nil 45))) (and (not (memq char-pressed '(?i ?q))) char-pressed))))) (default (floor (org-time-convert-to-integer (org-time-since last-valid)) 60)) (keep - (and (memq ch '(?k ?K)) - (read-number "Keep how many minutes? " default))) + (or (and (memq ch '(?k ?K)) + (read-number "Keep how many minutes? " default)) + (and (memq ch '(?t ?T)) + (time-to-mins-to-keep last-valid)))) (gotback (and (memq ch '(?g ?G)) (read-number "Got back how many minutes ago? " default))) @@ -1068,7 +1079,7 @@ to be CLOCKED OUT.")))) (org-clock-resolve-clock clock 'now nil t nil fail-quietly)) (org-clock-jump-to-current-clock clock)) ((or (null ch) - (not (memq ch '(?k ?K ?g ?G ?s ?S ?C)))) + (not (memq ch '(?k ?K ?g ?G ?s ?S ?C ?t ?T)))) (message "")) (t (org-clock-resolve-clock @@ -1092,7 +1103,7 @@ to be CLOCKED OUT.")))) (t (error "Unexpected, please report this as a bug"))) (and gotback last-valid) - (memq ch '(?K ?G ?S)) + (memq ch '(?K ?G ?S ?T)) (and start-over (not (memq ch '(?K ?G ?S ?C)))) fail-quietly))))) -- 2.17.1