 (defun dwim-shell-command--sentinel (process state)
   (let ((exec (map-elt dwim-shell-command--commands (process-name process))))
     (dwim-shell-command--finalize (dwim-shell-command--command-calling-buffer exec)
-                          (dwim-shell-command--command-files-before exec)
-                          process
-                          (dwim-shell-command--command-reporter exec)
-                          (dwim-shell-command--command-on-completion exec))))
+                                  (dwim-shell-command--command-files-before exec)
+                                  process
+                                  (dwim-shell-command--command-reporter exec)
+                                  (dwim-shell-command--command-on-completion exec))))
 
 (defun dwim-shell-command--filter (process string)
   (when-let* ((exec (map-elt dwim-shell-command--commands (process-name process)))

(defun dwim-shell-command--on-marked-files (script name utils &optional post-process-template on-completion)
  "Execute SCRIPT, using buffer NAME, FILES, and bin UTILS."
  (dwim-shell-command-execute-script script name (dwim-shell-command--marked-files) utils
                             post-process-template on-completion))

(defun dwim-shell-command--marked-files ()
  "Return buffer file (if available) or marked files for a `dired' buffer."


(defun dwim-shell-command--default-directory-files ()
  "List of files in current buffer's `default-directory'."
  (when default-directory
    (seq-map (lambda (filename)
               (concat default-directory filename))
             (process-lines "ls" "-1"))))

(defun dwim-shell-command--last-modified-between (before after)
  (car (last (seq-sort #'file-newer-than-file-p
                       (seq-difference after before)))))

(defun dwim-shell-command--finalize (calling-buffer files-before process progress-reporter on-completion)
  (let ((oldest-new-file))
