From 3b6dcdc3bd0fa7e81791def2cf9b4655d7d36e67 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Tue, 25 Jan 2022 16:57:38 -0600
Subject: Add +jabber

Oops, should've been earlier /shurg
---
 lisp/+jabber.el | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)
 create mode 100644 lisp/+jabber.el

(limited to 'lisp')

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 @@
+;;; +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
-- 
cgit 1.4.1-21-gabe81