[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/dtache 9746f4713c 106/158: Rename session-directory to
From: |
ELPA Syncer |
Subject: |
[elpa] externals/dtache 9746f4713c 106/158: Rename session-directory to log-directory |
Date: |
Wed, 19 Jan 2022 18:58:03 -0500 (EST) |
branch: externals/dtache
commit 9746f4713c14059adf86983a87c16b0af27db92a
Author: Niklas Eklund <niklas.eklund@posteo.net>
Commit: Niklas Eklund <niklas.eklund@posteo.net>
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)))))
- [elpa] externals/dtache 02b93a3778 060/158: Minor cleanup, (continued)
- [elpa] externals/dtache 02b93a3778 060/158: Minor cleanup, ELPA Syncer, 2022/01/19
- [elpa] externals/dtache d693d4c386 065/158: Update README with links to blog posts, ELPA Syncer, 2022/01/19
- [elpa] externals/dtache 69b001d0e5 069/158: Make eshell-preoutput-filter-functions local, ELPA Syncer, 2022/01/19
- [elpa] externals/dtache be23732c84 079/158: Update documentation in README, ELPA Syncer, 2022/01/19
- [elpa] externals/dtache 2e5a097da4 080/158: Implement dtache-compile-open, ELPA Syncer, 2022/01/19
- [elpa] externals/dtache c09328ca1e 081/158: Add actions to a session, ELPA Syncer, 2022/01/19
- [elpa] externals/dtache 82e5859d5a 098/158: Improve dtache-detach-session, ELPA Syncer, 2022/01/19
- [elpa] externals/dtache f73aa7ef98 089/158: Cleanup dtache-shell, ELPA Syncer, 2022/01/19
- [elpa] externals/dtache 71966f0d2f 099/158: Add run as an action property, ELPA Syncer, 2022/01/19
- [elpa] externals/dtache 5831137cf7 101/158: Rename dtache-initialize to dtache-setup, ELPA Syncer, 2022/01/19
- [elpa] externals/dtache 9746f4713c 106/158: Rename session-directory to log-directory,
ELPA Syncer <=
- [elpa] externals/dtache c6aece77d2 113/158: Enhance dtache-detach-dwim command, ELPA Syncer, 2022/01/19
- [elpa] externals/dtache bf71be0eae 118/158: Change output-size to log-size, ELPA Syncer, 2022/01/19
- [elpa] externals/dtache f77c57f608 120/158: Update duration part 2, ELPA Syncer, 2022/01/19
- [elpa] externals/dtache c8a99aed35 123/158: Add version to the dtache database, ELPA Syncer, 2022/01/19
- [elpa] externals/dtache 4fa1c9e8a2 134/158: Simplify call to dtache--dtach-arg, ELPA Syncer, 2022/01/19
- [elpa] externals/dtache 3942dc6326 135/158: Remove unnecessary checks for dtache-session-mode, ELPA Syncer, 2022/01/19
- [elpa] externals/dtache 3aa5babca5 139/158: Update table formatting, ELPA Syncer, 2022/01/19
- [elpa] externals/dtache ee8f3efa26 144/158: Version 0.3, ELPA Syncer, 2022/01/19
- [elpa] externals/dtache d0ec7b9777 156/158: Add support for filenotify on macOS, ELPA Syncer, 2022/01/19
- [elpa] externals/dtache aca73c1e60 152/158: Address issues from melpazoid in melpa/melpa7867, ELPA Syncer, 2022/01/19