diff options
-rw-r--r-- | lisp/acdw.el | 21 |
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 |