[elpa] externals/dtache 90c3d1dd90 147/158: Indent all package files

[ELPA Syncer]

branch: externals/dtache
commit 90c3d1dd90f563883f4ce8375b9d4aa6accfa0ef
Author: Niklas Eklund <niklas.eklund@posteo.net>
Commit: Niklas Eklund <niklas.eklund@posteo.net>

    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