Add chat

1 files changed, 18 insertions, 3 deletions

@@ -87,9 +87,11 @@ If body executes without errors, MESSAGE...Done will be displayed."
   (declare (indent 1))
   (let ((msg (gensym)))
     `(let ((,msg ,message))
-       (unwind-protect (progn (message "%s..." ,msg)
-                              ,@body)
-         (message "%s...done" ,msg)))))
+       (condition-case e
+           (progn (message "%s..." ,msg)
+                  ,@body)
+         (:success (message "%s...done" ,msg))
+         (t (signal (car e) (cdr e)))))))
 
 (defun +mapc-some-buffers (func &optional predicate)
   "Perform FUNC on all buffers satisfied by PREDICATE.
@@ -267,5 +269,18 @@ always nil; this function is mostly intended for use in init."
   (dolist (spec specs)
     (apply #'set-face-attribute (car spec) nil (cdr spec))))
 
+(defcustom chat-functions '(+irc
+                            jabber-connect-all
+                            slack-start)
+  "Functions to start when calling `chat'."
+  :type '(repeat function)
+  :group 'applications)
+
+;; I can never remember all the damn chat things I run, so this just does all of em.
+(defun chat ()
+  "Initiate all chat functions."
+  (interactive)
+  (mapc #'call-interactively chat-functions))
+
 (provide 'acdw)
 ;;; acdw.el ends here