Indentation
This commit is contained in:
parent
4e562b202c
commit
5d4db143f2
30
lisp/acdw.el
30
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)
|
||||
|
|
Loading…
Reference in New Issue