[elpa] externals/dtache 71d7e3ad35 119/158: Update how duration is determined

[ELPA Syncer]

branch: externals/dtache
commit 71d7e3ad350be4e7aa567a4c5cfe5e6fae894db2
Author: Niklas Eklund <niklas.eklund@zenseact.com>
Commit: Niklas Eklund <niklas.eklund@zenseact.com>

    Update how duration is determined
    
    Different handling off duration based on what triggers the state
    transition detection.
---
 dtache.el | 25 ++++++++++++++++---------
 1 file changed, 16 insertions(+), 9 deletions(-)

diff --git a/dtache.el b/dtache.el
index a9258db99b..a2e0f025b3 100644
--- a/dtache.el
+++ b/dtache.el
@@ -792,6 +792,8 @@ Optionally CONCAT the command return command into a string."
           (callback
            (lambda ()
              (when (dtache--state-transition-p session)
+               (setf (dtache--session-duration session)
+                     (dtache--determine-duration session t))
                (dtache--session-state-transition-update session)
                (cancel-timer timer)))))
      (setq timer
@@ -808,6 +810,8 @@ Optionally CONCAT the command return command into a string."
    (lambda (event)
      (pcase-let ((`(,_ ,action ,_) event))
        (when (eq action 'deleted)
+         (setf (dtache--session-duration session)
+               (dtache--determine-duration session))
          (dtache--session-state-transition-update session))))))
 
 (defun dtache--session-deduplicate (sessions)
@@ -852,7 +856,10 @@ Sessions running on  current host or localhost are 
updated."
   "Update SESSION."
   (if (or (dtache--state-transition-p session)
           (dtache--session-missing-p session))
-      (dtache--session-state-transition-update session)
+      (progn
+        (setf (dtache--session-duration session)
+              (dtache--determine-duration session t))
+        (dtache--session-state-transition-update session))
     (setf (dtache--session-log-size session)
           (file-attribute-size (file-attributes
                                 (dtache--session-file session 'log))))
@@ -995,8 +1002,6 @@ Optionally make the path LOCAL to host."
             (dtache--session-file session 'log))))
 
     (setf (dtache--session-state session) 'inactive)
-    (setf (dtache--session-duration session)
-          (- (time-to-seconds) (dtache--session-creation-time session)))
 
     ;; Update status
     (let ((status (or (plist-get (dtache--session-action session) :status)
@@ -1044,16 +1049,18 @@ Otherwise use tee to log stdout and stderr 
individually."
    (file-remote-p default-directory 'host)
    "localhost"))
 
-(defun dtache--duration (session)
+(defun dtache--determine-duration (session &optional approximate)
   "Return the time duration of the SESSION.
 
 Modification time is not reliable whilst a session is active.  Instead
 the current time is used."
-  (- (time-to-seconds
-      (file-attribute-modification-time
-       (file-attributes
-        (dtache--session-file session 'log))))
-     (dtache--session-creation-time session)))
+  (if (not approximate)
+      (- (time-to-seconds) (dtache--session-creation-time session))
+    (- (time-to-seconds
+        (file-attribute-modification-time
+         (file-attributes
+          (dtache--session-file session 'log))))
+       (dtache--session-creation-time session))))
 
 (defun dtache--create-id (command)
   "Return a hash identifier for COMMAND."