emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/dtache bf71be0eae 118/158: Change output-size to log-si


From: ELPA Syncer
Subject: [elpa] externals/dtache bf71be0eae 118/158: Change output-size to log-size
Date: Wed, 19 Jan 2022 18:58:04 -0500 (EST)

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

    Change output-size to log-size
---
 dtache.el           | 10 +++++-----
 test/dtache-test.el |  4 ++--
 2 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/dtache.el b/dtache.el
index 29c6b071b5..a9258db99b 100644
--- a/dtache.el
+++ b/dtache.el
@@ -239,7 +239,7 @@ Valid values are: create, new and attach")
   (action nil :read-only t)
   (status nil)
   (duration nil)
-  (output-size nil)
+  (log-size nil)
   (state nil))
 
 ;;;; Commands
@@ -484,7 +484,7 @@ compilation or shell-command the command will also kill the 
window."
                                  :redirect-only (dtache-redirect-only-p 
command)
                                  :creation-time (time-to-seconds 
(current-time))
                                  :status 'unknown
-                                 :output-size 0
+                                 :log-size 0
                                  :log-directory (file-name-as-directory 
dtache-log-directory)
                                  :host (dtache--host)
                                  :metadata (dtache-metadata)
@@ -853,7 +853,7 @@ Sessions running on  current host or localhost are updated."
   (if (or (dtache--state-transition-p session)
           (dtache--session-missing-p session))
       (dtache--session-state-transition-update session)
-    (setf (dtache--session-output-size session)
+    (setf (dtache--session-log-size session)
           (file-attribute-size (file-attributes
                                 (dtache--session-file session 'log))))
     (dtache--db-update-entry session)))
@@ -989,7 +989,7 @@ Optionally make the path LOCAL to host."
       (dtache--db-remove-entry session)
 
     ;; Update session
-    (setf (dtache--session-output-size session)
+    (setf (dtache--session-log-size session)
           (file-attribute-size
            (file-attributes
             (dtache--session-file session 'log))))
@@ -1114,7 +1114,7 @@ the current time is used."
 (defun dtache--size-str (session)
   "Return the size of SESSION's output."
   (file-size-human-readable
-   (dtache--session-output-size session)))
+   (dtache--session-log-size session)))
 
 (defun dtache--status-str (session)
   "Return string if SESSION has failed."
diff --git a/test/dtache-test.el b/test/dtache-test.el
index 004c9f918a..a433d1cc91 100644
--- a/test/dtache-test.el
+++ b/test/dtache-test.el
@@ -256,8 +256,8 @@
     (should (string= "May 08 08:49" (dtache--creation-str 
(dtache--session-create :creation-time 1620463748.7636228))))))
 
 (ert-deftest dtache-test-size-str ()
-  (should (string= "100" (dtache--size-str (dtache--session-create 
:output-size 100))))
-  (should (string= "1k" (dtache--size-str (dtache--session-create :output-size 
1024)))))
+  (should (string= "100" (dtache--size-str (dtache--session-create :log-size 
100))))
+  (should (string= "1k" (dtache--size-str (dtache--session-create :log-size 
1024)))))
 
 (ert-deftest dtache-test-status-str ()
   (should (string= "!" (dtache--status-str (dtache--session-create :status 
'failure))))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]