summary refs log tree commit diff stats
path: root/lisp/acdw.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/acdw.el')
-rw-r--r--lisp/acdw.el26
1 files changed, 19 insertions, 7 deletions
diff --git a/lisp/acdw.el b/lisp/acdw.el index 9b3ab93..191cdfb 100644 --- a/lisp/acdw.el +++ b/lisp/acdw.el
@@ -282,7 +282,8 @@ always nil; this function is mostly intended for use in init."
282 282
283(defcustom chat-functions '(+irc 283(defcustom chat-functions '(+irc
284 jabber-connect-all 284 jabber-connect-all
285 slack-start) 285 ;; slack-start
286 )
286 "Functions to start when calling `chat'." 287 "Functions to start when calling `chat'."
287 :type '(repeat function) 288 :type '(repeat function)
288 :group 'applications) 289 :group 'applications)
@@ -292,16 +293,17 @@ always nil; this function is mostly intended for use in init."
292 (interactive) 293 (interactive)
293 (+with-progress "Quitting circe..." 294 (+with-progress "Quitting circe..."
294 (ignore-errors 295 (ignore-errors
295 (circe-command-GQUIT " 🫀 🍞") 296 (circe-command-GQUIT "peace love bread")
296 (cancel-timer (irc-connection-get conn :flood-timer)))) 297 (cancel-timer (irc-connection-get conn :flood-timer))))
297 (+with-progress "Quitting jabber..." 298 (+with-progress "Quitting jabber..."
298 (ignore-errors 299 (ignore-errors
299 (jabber-disconnect))) 300 (jabber-disconnect)))
300 (+with-progress "Quitting-slack..." 301 (when (boundp '+slack-teams)
301 (dolist (team +slack-teams) 302 (+with-progress "Quitting-slack..."
302 (ignore-errors 303 (dolist (team +slack-teams)
303 (slack-team-disconnect team))) 304 (ignore-errors
304 (ignore-errors (slack-ws-close))) 305 (slack-team-disconnect team)))
306 (ignore-errors (slack-ws-close))))
305 (+with-progress "Killing buffers..." 307 (+with-progress "Killing buffers..."
306 (ignore-errors 308 (ignore-errors
307 (+mapc-some-buffers (lambda () "Remove the buffer from tracking and kill it unconditionally." 309 (+mapc-some-buffers (lambda () "Remove the buffer from tracking and kill it unconditionally."
@@ -496,6 +498,9 @@ sort order."
496 (lambda () 498 (lambda ()
497 (message "%S-second timer DONE!" secs) 499 (message "%S-second timer DONE!" secs)
498 (setq +timer-string +timer-done-string) 500 (setq +timer-string +timer-done-string)
501 (let ((visible-bell t)
502 (ring-bell-function nil))
503 (ding))
499 (ding)))))) 504 (ding))))))
500 505
501(defun +timer-cancel () 506(defun +timer-cancel ()
@@ -508,5 +513,12 @@ sort order."
508 (message "Timer canceled."))) 513 (message "Timer canceled.")))
509 (setq +timer-string nil)) 514 (setq +timer-string nil))
510 515
516
517
518(defun +switch-to-last-buffer ()
519 "Switch to the last-used buffer in this window."
520 (interactive)
521 (switch-to-buffer nil))
522
511(provide 'acdw) 523(provide 'acdw)
512;;; acdw.el ends here 524;;; acdw.el ends here