acdw/emacs
acdw
/
emacs
1
2
Fork 0
Code Issues 4 Pull Requests Releases Activity

Indentation

This commit is contained in:
Case Duckworth 2022-05-01 09:36:27 -05:00
parent 4e562b202c
commit 5d4db143f2
1 changed files with 15 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
lisp/acdw.el
View File

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