From dd3afe747ecf51f87d33318c2ad68953d153495f Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Mon, 23 May 2022 20:12:53 -0500
Subject: meh

---
 lisp/acdw.el | 26 +++++++++++++++++++-------
 1 file changed, 19 insertions(+), 7 deletions(-)

(limited to 'lisp/acdw.el')

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."
 
 (defcustom chat-functions '(+irc
                             jabber-connect-all
-                            slack-start)
+                            ;; slack-start
+                            )
   "Functions to start when calling `chat'."
   :type '(repeat function)
   :group 'applications)
@@ -292,16 +293,17 @@ always nil; this function is mostly intended for use in init."
   (interactive)
   (+with-progress "Quitting circe..."
     (ignore-errors
-      (circe-command-GQUIT "☮ 🫀 🍞")
+      (circe-command-GQUIT "peace love bread")
       (cancel-timer (irc-connection-get conn :flood-timer))))
   (+with-progress "Quitting jabber..."
     (ignore-errors
       (jabber-disconnect)))
-  (+with-progress "Quitting-slack..."
-    (dolist (team +slack-teams)
-      (ignore-errors
-        (slack-team-disconnect team)))
-    (ignore-errors (slack-ws-close)))
+  (when (boundp '+slack-teams)
+    (+with-progress "Quitting-slack..."
+             (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."
@@ -496,6 +498,9 @@ sort order."
                                        (lambda ()
                                          (message "%S-second timer DONE!" secs)
                                          (setq +timer-string +timer-done-string)
+                                         (let ((visible-bell t)
+                                               (ring-bell-function nil))
+                                           (ding))
                                          (ding))))))
 
 (defun +timer-cancel ()
@@ -508,5 +513,12 @@ sort order."
          (message "Timer canceled.")))
   (setq +timer-string nil))
 
+
+
+(defun +switch-to-last-buffer ()
+  "Switch to the last-used buffer in this window."
+  (interactive)
+  (switch-to-buffer nil))
+
 (provide 'acdw)
 ;;; acdw.el ends here
-- 
cgit 1.4.1-21-gabe81