diff options
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/+jabber.el | 29 |
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. | ||
15 | This 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 | ||