summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--lisp/acdw.el30
1 files 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."
41 "If MKDIR is non-nil, the directory is created.\n" 41 "If MKDIR is non-nil, the directory is created.\n"
42 "Defined by `/define-dir'.") 42 "Defined by `/define-dir'.")
43 (let ((file-name (expand-file-name (convert-standard-filename file) 43 (let ((file-name (expand-file-name (convert-standard-filename file)
44 ,name))) 44 ,name)))
45 (when mkdir 45 (when mkdir
46 (make-directory (file-name-directory file-name) :parents)) 46 (make-directory (file-name-directory file-name) :parents))
47 file-name)))) 47 file-name))))
@@ -295,22 +295,22 @@ always nil; this function is mostly intended for use in init."
295 (ignore-errors 295 (ignore-errors
296 (jabber-disconnect))) 296 (jabber-disconnect)))
297 (+with-progress "Quitting-slack..." 297 (+with-progress "Quitting-slack..."
298 (dolist (team +slack-teams) 298 (dolist (team +slack-teams)
299 (ignore-errors 299 (ignore-errors
300 (slack-team-disconnect team))) 300 (slack-team-disconnect team)))
301 (ignore-errors (slack-ws-close))) 301 (ignore-errors (slack-ws-close)))
302 (+with-progress "Killing buffers..." 302 (+with-progress "Killing buffers..."
303 (ignore-errors 303 (ignore-errors
304 (+mapc-some-buffers (lambda () "Remove the buffer from tracking and kill it unconditionally." 304 (+mapc-some-buffers (lambda () "Remove the buffer from tracking and kill it unconditionally."
305 (let ((kill-buffer-query-functions nil)) 305 (let ((kill-buffer-query-functions nil))
306 (tracking-remove-buffer (current-buffer)) 306 (tracking-remove-buffer (current-buffer))
307 (kill-buffer))) 307 (kill-buffer)))
308 (lambda () "Return t if derived from the following modes." 308 (lambda () "Return t if derived from the following modes."
309 (derived-mode-p 'lui-mode 309 (derived-mode-p 'lui-mode
310 'jabber-chat-mode 310 'jabber-chat-mode
311 'jabber-roster-mode 311 'jabber-roster-mode
312 'jabber-browse-mode 312 'jabber-browse-mode
313 'slack-mode)))))) 313 'slack-mode))))))
314 314
315;; I can never remember all the damn chat things I run, so this just does all of em. 315;; I can never remember all the damn chat things I run, so this just does all of em.
316(defun chat (&optional arg) 316(defun chat (&optional arg)