summary refs log tree commit diff
path: root/emacs
diff options
context:
space:
mode:
authornoa@gaiwan.org2024-06-13 20:04:33 +0000
committernoa@gaiwan.org2024-06-13 20:04:33 +0000
commitb891c5ab049a9973b20a7e13d607314aa45b5c21 (patch)
tree98e17cbe28cae2b2e504a9ac4517793664932ffa /emacs
parentd9d70b6a6fa74fd9eba6aedd2a9c532017731300 (diff)
Reorder jabber helper function definitions
Diffstat (limited to 'emacs')
-rw-r--r--emacs/init.el6
1 files 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)