diff options
| -rw-r--r-- | emacs/init.el | 6 |
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) |