branch: externals/dtache
commit 9746f4713c14059adf86983a87c16b0af27db92a
Author: Niklas Eklund <[email protected]>
Commit: Niklas Eklund <[email protected]>
Rename session-directory to log-directory
---
README.org | 2 +-
dtache.el | 16 ++++++++--------
test/dtache-test.el | 16 ++++++++--------
3 files changed, 17 insertions(+), 17 deletions(-)
diff --git a/README.org b/README.org
index 810df0f641..4bffcf90b5 100644
--- a/README.org
+++ b/README.org
@@ -303,7 +303,7 @@ The =dtache= package supports
[[https://www.gnu.org/software/emacs/manual/html_n
'((dtache-env . "~/bin/dtache-env")
(dtache-shell-program . "/bin/bash")
(dtache-shell-history-file . "~/.bash_history")
- (dtache-session-directory . "~/tmp")
+ (dtache-log-directory . "~/tmp")
(dtache-dtach-program . "/home/user/.local/bin/dtach")))
(connection-local-set-profiles
diff --git a/dtache.el b/dtache.el
index a531e9884b..2d3c739c59 100644
--- a/dtache.el
+++ b/dtache.el
@@ -55,7 +55,7 @@
;;;;; Customizable
-(defcustom dtache-session-directory (expand-file-name "dtache"
(temporary-file-directory))
+(defcustom dtache-log-directory (expand-file-name "dtache"
(temporary-file-directory))
"The directory to store `dtache' sessions."
:type 'string
:group 'dtache)
@@ -231,7 +231,7 @@ Valid values are: create, new and attach")
(origin nil :read-only t)
(working-directory nil :read-only t)
(creation-time nil :read-only t)
- (session-directory nil :read-only t)
+ (log-directory nil :read-only t)
(metadata nil :read-only t)
(host nil :read-only t)
(redirect-only nil :read-only t)
@@ -478,7 +478,7 @@ nil before closing."
(defun dtache-create-session (command)
"Create a `dtache' session from COMMAND."
- (dtache--create-session-directory)
+ (dtache--create-log-directory)
(let ((session
(dtache--session-create :id (intern (dtache--create-id command))
:command command
@@ -489,7 +489,7 @@ nil before closing."
:creation-time (time-to-seconds
(current-time))
:status 'unknown
:output-size 0
- :session-directory (file-name-as-directory
dtache-session-directory)
+ :log-directory (file-name-as-directory
dtache-log-directory)
:host (dtache--host)
:metadata (dtache-metadata)
:active t)))
@@ -736,7 +736,7 @@ Optionally CONCAT the command return command into a string."
"Return SESSION's pid."
(let* ((socket
(concat
- (dtache--session-session-directory session)
+ (dtache--session-log-directory session)
(symbol-name (dtache--session-id session))
".socket"))
(regexp (rx-to-string `(and "dtach " (or "-n " "-c ") ,socket)))
@@ -888,7 +888,7 @@ Optionally make the path LOCAL to host."
(remote (file-remote-p (dtache--session-working-directory session)))
(directory (concat
remote
- (dtache--session-session-directory session))))
+ (dtache--session-log-directory session))))
(if (and local remote)
(string-remove-prefix remote (expand-file-name file-name directory))
(expand-file-name file-name directory))))
@@ -913,12 +913,12 @@ Optionally make the path LOCAL to host."
(point-max))))
(buffer-substring beginning end)))))
-(defun dtache--create-session-directory ()
+(defun dtache--create-log-directory ()
"Create session directory if it doesn't exist."
(let ((directory
(concat
(file-remote-p default-directory)
- dtache-session-directory)))
+ dtache-log-directory)))
(unless (file-exists-p directory)
(make-directory directory t))))
diff --git a/test/dtache-test.el b/test/dtache-test.el
index 2982d5bba3..7fc35e4784 100644
--- a/test/dtache-test.el
+++ b/test/dtache-test.el
@@ -32,7 +32,7 @@
"Initialize a dtache database and evaluate BODY."
`(let* ((temp-directory (make-temp-file "dtache" t))
(dtache-db-directory (expand-file-name "dtache.db" temp-directory))
- (dtache-session-directory (expand-file-name "sessions"
temp-directory))
+ (dtache-log-directory (expand-file-name "sessions" temp-directory))
(dtache--sessions)
(dtache--sessions-initialized)
(dtache--remote-session-timer))
@@ -113,14 +113,14 @@
;; Local files
(cl-letf* (((symbol-function #'expand-file-name) (lambda (file directory)
(concat directory file)))
((symbol-function #'file-remote-p) (lambda (_directory) nil))
- (session (dtache--session-create :id 's12345 :session-directory
"/home/user/tmp/")))
+ (session (dtache--session-create :id 's12345 :log-directory
"/home/user/tmp/")))
(should (string= "/home/user/tmp/s12345.log" (dtache--session-file session
'log)))
(should (string= "/home/user/tmp/s12345.socket" (dtache--session-file
session 'socket))))
;; Remote files
(cl-letf* (((symbol-function #'expand-file-name) (lambda (file directory)
(concat directory file)))
((symbol-function #'file-remote-p) (lambda (_directory)
"/ssh:foo:"))
- (session (dtache--session-create :id 's12345 :session-directory
"/home/user/tmp/")))
+ (session (dtache--session-create :id 's12345 :log-directory
"/home/user/tmp/")))
(should (string= "/ssh:foo:/home/user/tmp/s12345.log"
(dtache--session-file session 'log)))
(should (string= "/ssh:foo:/home/user/tmp/s12345.socket"
(dtache--session-file session 'socket)))))
@@ -202,11 +202,11 @@
(should (equal copy (car (dtache--db-get-sessions)))))))
(ert-deftest dtache-test-magic-command ()
- (let ((normal-session (dtache--session-create :session-directory
"/tmp/dtache/"
+ (let ((normal-session (dtache--session-create :log-directory "/tmp/dtache/"
:working-directory
"/home/user/"
:command "ls -la"
:id 'foo123))
- (redirect-session (dtache--session-create :session-directory
"/tmp/dtache/"
+ (redirect-session (dtache--session-create :log-directory "/tmp/dtache/"
:working-directory
"/home/user/"
:command "ls -la"
:redirect-only t
@@ -235,9 +235,9 @@
(cl-letf* (((symbol-function #'process-file) (lambda (_program _infile
_buffer _display &rest _args)
(insert "\"USER PID
%CPU %MEM VSZ RSS TTY STAT START TIME COMMAND\nuser 6699 0.0
0.0 4752 2304 ? Ss 13:06 0:00 dtach -n /tmp/foo.socket\nuser
6698 0.0 0.0 4752 2304 ? Ss 13:07 0:00 dtach -c
/tmp/bar.socket\n")))
- (session1 (dtache--session-create :id 'foo :session-directory
"/tmp/"))
- (session2 (dtache--session-create :id 'bar :session-directory
"/tmp/"))
- (session3 (dtache--session-create :id 'baz :session-directory
"/tmp/")))
+ (session1 (dtache--session-create :id 'foo :log-directory
"/tmp/"))
+ (session2 (dtache--session-create :id 'bar :log-directory
"/tmp/"))
+ (session3 (dtache--session-create :id 'baz :log-directory
"/tmp/")))
(should (string= "6699" (dtache--session-pid session1)))
(should (string= "6698" (dtache--session-pid session2)))
(should (not (dtache--session-pid session3)))))
