From 5d4db143f2bafe7d1b181653a6698ce4426bf539 Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Sun, 1 May 2022 09:36:27 -0500 Subject: [PATCH] Indentation --- lisp/acdw.el | 30 +++++++++++++++--------------- 1 file changed, 15 insertions(+), 15 deletions(-) diff --git a/lisp/acdw.el b/lisp/acdw.el index 2f41e15..a673e4a 100644 --- a/lisp/acdw.el +++ b/lisp/acdw.el @@ -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)