1 files changed, 17 insertions, 8 deletions

@@ -97,15 +97,14 @@ If body executes without errors, MESSAGE...Done will be displayed."
   "Perform FUNC on all buffers satisfied by PREDICATE.
 By default, act on all buffers.
 
-PREDICATE is a function called with one argument, the current
-buffer.  FUNC is called with no arguments.  Both are called
-within a `with-current-buffer' form."
+Both PREDICATE and FUNC are called with no arguments, but within
+a `with-current-buffer' form on the currently-active buffer."
   (let ((pred (or predicate t)))
     (dolist (buf (buffer-list))
       (with-current-buffer buf
         (when (if (or (eq (car-safe pred) 'closure)
                       (fboundp pred))
-                  (funcall pred buf)
+                  (funcall pred)
                 pred)
           (funcall func))))))
 
@@ -234,7 +233,9 @@ UNIT can be one of :kb, :mb, :gb, :tb, :pb, :eb, :zb, :yb; :kib, :mib, :gib,
 (defcustom font-lock-todo-keywords '("TODO" "XXX" "FIXME" "BUG")
   "Keywords to highlight with `font-lock-todo-face'.")
 
-(defface font-lock-todo-face '((t :inherit font-lock-warning-face))
+(defface font-lock-todo-face '((t :inherit font-lock-comment-face
+                                  :background "yellow"))
+  ;; TODO: XXX: FIXME: BUG: testing :)
   "Face for TODO keywords.")
 
 (defun font-lock-todo-insinuate ()
@@ -277,9 +278,17 @@ always nil; this function is mostly intended for use in init."
   :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)
+(defun chat (&optional arg)
+  "Initiate all chat functions.
+With optional ARG, kill all chat-related buffers first."
+  (interactive "P")
+  (when arg
+    (ignore-errors
+      (circe-command-GQUIT "Reconnecting")
+      (+mapc-some-buffers #'kill-buffer (lambda () (derived-mode-p 'lui-mode)))
+      (jabber-disconnect)
+      ;; XXX: Slack ?
+      ))
   (mapc #'call-interactively chat-functions))
 
 (provide 'acdw)