blob: 69bc8c990b4f2643956db87d950dd15072ff451f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
;;; +jabber.el --- Customizations for jabber.el -*- lexical-binding: t; -*-
;;; Commentary:
;; Most changes I want to PR and contribute, but a few don't make sense to
;; contribute upstream, at least not now.
;;; Code:
(require 'jabber)
(require 'tracking)
(defvar +jabber-tracking-show-p #'jabber-activity-show-p-default
"Function that checks if the given JID should be shown in the mode line.
This does the same as `jabber-activity-show-p', but for the
`tracking-mode' mode-line.")
(defun +jabber-tracking-add (from buffer text proposed-alert)
"ADVICE to add jabber buffers to `tracking-buffers'."
(when (funcall +jabber-tracking-show-p from)
(tracking-add-buffer buffer 'jabber-activity-face)))
(defun +jabber-tracking-add-muc (nick group buffer text proposed-alert)
"ADVICE to add jabber MUC buffers to `tracking-buffers'."
(when (funcall +jabber-tracking-show-p group)
(tracking-add-buffer buffer 'jabber-activity-face)))
(provide '+jabber)
;;; +jabber.el ends here
|
