From b891c5ab049a9973b20a7e13d607314aa45b5c21 Mon Sep 17 00:00:00 2001
From: noa@gaiwan.org
Date: Thu, 13 Jun 2024 20:04:33 +0000
Subject: Reorder jabber helper function definitions
---
emacs/init.el | 6 ++----
1 file changed, 2 insertions(+), 4 deletions(-)
diff --git a/emacs/init.el b/emacs/init.el
index 539da9c..00302b4 100644
--- a/emacs/init.el
+++ b/emacs/init.el
@@ -116,14 +116,12 @@
(setopt jabber-account-list '(("noa@hmm.st")))
;; So now what we're going to do is get it to stop showing a bunch of channels in the mode line, because there will always be new activity and i want to drop in when i feel like it, and not always have a reminder of that fact. The defun below is copied from jabber-activity-show-p-default but with an extra condition plopped in.
-(setopt jabber-activity-show-p #'noa/jabber-activity-show-p)
(defcustom noa/jabber-activity-dont-show
'("#tildetown%town@irc.hmm.st"
"#meta%tilde.chat@irc.hmm.st"
"hmm@conference.hmm.st")
"List of JIDs not to show in the modeline."
- :group 'jabber-activity)
-(defun noa/jabber-activity-show-p (jid)
+ :group 'jabber-activity)(defun noa/jabber-activity-show-p (jid)
"Return non-nil if JID should be hidden.
A JID should be hidden when there is an invisible buffer for JID,
when JID is not in `noa/jabber-activity-dont-show',
@@ -136,7 +134,7 @@ and when JID is not in `jabber-activity-banned'."
(cl-return t))))
(not (cl-dolist (entry noa/jabber-activity-dont-show)
(when (string-match entry jid)
- (cl-return t)))))))
+ (cl-return t)))))))(setopt jabber-activity-show-p #'noa/jabber-activity-show-p)
;; I'm on a laptop, so whenever i shut it i get disconnected. Jabber can query auth-source for my password, so automatically reconnecting is useful and doesn't need me to do anything.
(setopt jabber-auto-reconnect t)
--
cgit 1.4.1-2-gfad0