about summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--lisp/acdw.el21
1 files changed, 18 insertions, 3 deletions
diff --git a/lisp/acdw.el b/lisp/acdw.el index 916591c..2f4e0fc 100644 --- a/lisp/acdw.el +++ b/lisp/acdw.el
@@ -87,9 +87,11 @@ If body executes without errors, MESSAGE...Done will be displayed."
87 (declare (indent 1)) 87 (declare (indent 1))
88 (let ((msg (gensym))) 88 (let ((msg (gensym)))
89 `(let ((,msg ,message)) 89 `(let ((,msg ,message))
90 (unwind-protect (progn (message "%s..." ,msg) 90 (condition-case e
91 ,@body) 91 (progn (message "%s..." ,msg)
92 (message "%s...done" ,msg))))) 92 ,@body)
93 (:success (message "%s...done" ,msg))
94 (t (signal (car e) (cdr e)))))))
93 95
94(defun +mapc-some-buffers (func &optional predicate) 96(defun +mapc-some-buffers (func &optional predicate)
95 "Perform FUNC on all buffers satisfied by PREDICATE. 97 "Perform FUNC on all buffers satisfied by PREDICATE.
@@ -267,5 +269,18 @@ always nil; this function is mostly intended for use in init."
267 (dolist (spec specs) 269 (dolist (spec specs)
268 (apply #'set-face-attribute (car spec) nil (cdr spec)))) 270 (apply #'set-face-attribute (car spec) nil (cdr spec))))
269 271
272(defcustom chat-functions '(+irc
273 jabber-connect-all
274 slack-start)
275 "Functions to start when calling `chat'."
276 :type '(repeat function)
277 :group 'applications)
278
279;; I can never remember all the damn chat things I run, so this just does all of em.
280(defun chat ()
281 "Initiate all chat functions."
282 (interactive)
283 (mapc #'call-interactively chat-functions))
284
270(provide 'acdw) 285(provide 'acdw)
271;;; acdw.el ends here 286;;; acdw.el ends here