about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorCase Duckworth2022-01-25 16:57:38 -0600
committerCase Duckworth2022-01-25 16:57:38 -0600
commit3b6dcdc3bd0fa7e81791def2cf9b4655d7d36e67 (patch)
treecd1c2f261a8ad2dd27ba8365ab6f83ff3baaeac9
parentFix finger (diff)
downloademacs-3b6dcdc3bd0fa7e81791def2cf9b4655d7d36e67.tar.gz
emacs-3b6dcdc3bd0fa7e81791def2cf9b4655d7d36e67.zip
Add +jabber
Oops, should've been earlier /shurg
-rw-r--r--lisp/+jabber.el29
1 files changed, 29 insertions, 0 deletions
diff --git a/lisp/+jabber.el b/lisp/+jabber.el new file mode 100644 index 0000000..69bc8c9 --- /dev/null +++ b/lisp/+jabber.el
@@ -0,0 +1,29 @@
1;;; +jabber.el --- Customizations for jabber.el -*- lexical-binding: t; -*-
2
3;;; Commentary:
4
5;; Most changes I want to PR and contribute, but a few don't make sense to
6;; contribute upstream, at least not now.
7
8;;; Code:
9
10(require 'jabber)
11(require 'tracking)
12
13(defvar +jabber-tracking-show-p #'jabber-activity-show-p-default
14 "Function that checks if the given JID should be shown in the mode line.
15This does the same as `jabber-activity-show-p', but for the
16`tracking-mode' mode-line.")
17
18(defun +jabber-tracking-add (from buffer text proposed-alert)
19 "ADVICE to add jabber buffers to `tracking-buffers'."
20 (when (funcall +jabber-tracking-show-p from)
21 (tracking-add-buffer buffer 'jabber-activity-face)))
22
23(defun +jabber-tracking-add-muc (nick group buffer text proposed-alert)
24 "ADVICE to add jabber MUC buffers to `tracking-buffers'."
25 (when (funcall +jabber-tracking-show-p group)
26 (tracking-add-buffer buffer 'jabber-activity-face)))
27
28(provide '+jabber)
29;;; +jabber.el ends here