1 files changed, 15 insertions, 15 deletions

@@ -41,7 +41,7 @@ the filesystem, unless INHIBIT-MKDIR is non-nil."
                 "If MKDIR is non-nil, the directory is created.\n"
                 "Defined by `/define-dir'.")
        (let ((file-name (expand-file-name (convert-standard-filename file)
-                      ,name)))
+                                          ,name)))
          (when mkdir
            (make-directory (file-name-directory file-name) :parents))
          file-name))))
@@ -295,22 +295,22 @@ always nil; this function is mostly intended for use in init."
     (ignore-errors
       (jabber-disconnect)))
   (+with-progress "Quitting-slack..."
-      (dolist (team +slack-teams)
-        (ignore-errors
-          (slack-team-disconnect team)))
-      (ignore-errors (slack-ws-close)))
+    (dolist (team +slack-teams)
+      (ignore-errors
+        (slack-team-disconnect team)))
+    (ignore-errors (slack-ws-close)))
   (+with-progress "Killing buffers..."
     (ignore-errors
-     (+mapc-some-buffers (lambda () "Remove the buffer from tracking and kill it unconditionally."
-                           (let ((kill-buffer-query-functions nil))
-                             (tracking-remove-buffer (current-buffer))
-                             (kill-buffer)))
-                         (lambda () "Return t if derived from the following modes."
-                           (derived-mode-p 'lui-mode
-                                           'jabber-chat-mode
-                                           'jabber-roster-mode
-                                           'jabber-browse-mode
-                                           'slack-mode))))))
+      (+mapc-some-buffers (lambda () "Remove the buffer from tracking and kill it unconditionally."
+                            (let ((kill-buffer-query-functions nil))
+                              (tracking-remove-buffer (current-buffer))
+                              (kill-buffer)))
+                          (lambda () "Return t if derived from the following modes."
+                            (derived-mode-p 'lui-mode
+                                            'jabber-chat-mode
+                                            'jabber-roster-mode
+                                            'jabber-browse-mode
+                                            'slack-mode))))))
 
 ;; I can never remember all the damn chat things I run, so this just does all of em.
 (defun chat (&optional arg)