branch: externals/dtache
commit 90c3d1dd90f563883f4ce8375b9d4aa6accfa0ef
Author: Niklas Eklund <[email protected]>
Commit: Niklas Eklund <[email protected]>
Indent all package files
---
dtache-eshell.el | 6 +++---
dtache-shell.el | 18 +++++++++---------
dtache.el | 26 +++++++++++++-------------
3 files changed, 25 insertions(+), 25 deletions(-)
diff --git a/dtache-eshell.el b/dtache-eshell.el
index 1a0086abf4..95b5d8ae01 100644
--- a/dtache-eshell.el
+++ b/dtache-eshell.el
@@ -54,9 +54,9 @@
(let* ((current-host (dtache--host))
(sessions
(thread-last (dtache-get-sessions)
- (seq-filter (lambda (it)
- (string= (dtache--session-host it) current-host)))
- (seq-filter #'dtache--determine-session-state))))
+ (seq-filter (lambda (it)
+ (string= (dtache--session-host it)
current-host)))
+ (seq-filter #'dtache--determine-session-state))))
(dtache-completing-read sessions)))
(defun dtache-eshell-get-dtach-process ()
diff --git a/dtache-shell.el b/dtache-shell.el
index 1506776735..08766033a2 100644
--- a/dtache-shell.el
+++ b/dtache-shell.el
@@ -56,9 +56,9 @@
(let* ((current-host (dtache--host))
(sessions
(thread-last (dtache-get-sessions)
- (seq-filter (lambda (it)
- (string= (dtache--session-host it) current-host)))
- (seq-filter (lambda (it) (eq 'active
(dtache--determine-session-state it)))))))
+ (seq-filter (lambda (it)
+ (string= (dtache--session-host it)
current-host)))
+ (seq-filter (lambda (it) (eq 'active
(dtache--determine-session-state it)))))))
(dtache-completing-read sessions)))
;;;; Commands
@@ -122,12 +122,12 @@ cluttering the comint-history with dtach commands."
"Save `shell' history."
(with-connection-local-variables
(unless (string-prefix-p dtache--shell-command-buffer (buffer-name))
- (let* ((inhibit-message t)
- (comint-input-ring-file-name
- (concat
- (file-remote-p default-directory)
- dtache-shell-history-file)))
- (comint-write-input-ring)))))
+ (let* ((inhibit-message t)
+ (comint-input-ring-file-name
+ (concat
+ (file-remote-p default-directory)
+ dtache-shell-history-file)))
+ (comint-write-input-ring)))))
(defun dtache-shell-override-history (orig-fun &rest args)
"Override history to read `dtache-shell-history-file' in ORIG-FUN with ARGS.
diff --git a/dtache.el b/dtache.el
index ec0fa322a2..d25b166979 100644
--- a/dtache.el
+++ b/dtache.el
@@ -540,8 +540,8 @@ Optionally SUPPRESS-OUTPUT."
(apply #'start-file-process-shell-command
`("dtache" nil ,(dtache-dtach-command
dtache--current-session t))))
(cl-letf* ((dtache-session-mode 'create-and-attach)
- ((symbol-function #'set-process-sentinel) #'ignore)
- (buffer (generate-new-buffer-name
dtache--shell-command-buffer)))
+ ((symbol-function #'set-process-sentinel) #'ignore)
+ (buffer (generate-new-buffer-name
dtache--shell-command-buffer)))
(setq dtache-enabled nil)
(funcall #'async-shell-command (dtache-dtach-command
dtache--current-session t) buffer)
(with-current-buffer buffer (setq dtache--buffer-session
dtache--current-session))))))
@@ -599,8 +599,8 @@ Optionally SUPPRESS-OUTPUT."
(thread-last (dtache--db-get-sessions)
(seq-filter (lambda (it) (eq 'active (dtache--session-state
it))))
(seq-remove (lambda (it) (when (dtache--session-missing-p it)
- (dtache--db-remove-entry it)
- t)))
+ (dtache--db-remove-entry it)
+ t)))
(seq-do #'dtache--start-session-monitor))
;; Add `dtache-shell-mode'
@@ -669,7 +669,7 @@ Optionally CONCAT the command return command into a string."
(with-connection-local-variables
(let* ((dtache-session-mode (cond ((eq dtache-session-mode 'attach) 'attach)
((not (dtache--session-attachable
session)) 'create)
- (t dtache-session-mode)))
+ (t dtache-session-mode)))
(socket (dtache--session-file session 'socket t))
(dtach-arg (dtache--dtach-arg)))
(setq dtache--buffer-session session)
@@ -690,16 +690,16 @@ Optionally CONCAT the command return command into a
string."
,(shell-quote-argument (dtache--dtache-command
session)))
" ")
`(,dtach-arg ,socket "-z"
- ,dtache-shell-program "-c"
- ,(dtache--dtache-command session)))))))
+ ,dtache-shell-program "-c"
+ ,(dtache--dtache-command session)))))))
(defun dtache-attachable-command-p (command)
"Return t if COMMAND is attachable."
(if (thread-last dtache-nonattachable-commands
- (seq-filter (lambda (regexp)
- (string-match-p regexp command)))
- (length)
- (= 0))
+ (seq-filter (lambda (regexp)
+ (string-match-p regexp command)))
+ (length)
+ (= 0))
t
nil))
@@ -1069,7 +1069,7 @@ If SESSION is nonattachable fallback to a command that
doesn't rely on tee."
(redirect
(if (dtache--session-attachable session)
(format "2>&1 | tee %s" log)
- (format "&> %s" log)))
+ (format "&> %s" log)))
(env (if dtache-env dtache-env (format "%s -c" dtache-shell-program)))
(command
(shell-quote-argument
@@ -1176,7 +1176,7 @@ the current time is used."
(dtache--session-working-directory session)))
(if-let ((remote (file-remote-p working-directory)))
(string-remove-prefix remote working-directory)
- working-directory)))
+ working-directory)))
;;;; Minor modes
