From 49160528f28b0b31b2e7e270e1a9edb3fe1e80f3 Mon Sep 17 00:00:00 2001 From: jao Date: Thu, 18 Aug 2022 03:10:52 +0100 Subject: header line for circe channels --- init.el | 14 +++++++++++--- 1 file changed, 11 insertions(+), 3 deletions(-) diff --git a/init.el b/init.el index 2704102..03918d4 100644 --- a/init.el +++ b/init.el @@ -2768,10 +2768,18 @@ lui-track-behavior 'before-tracking-next-buffer) :config + (defsubst jao-circe-nick-no () (length (circe-channel-nicks))) + (define-minor-mode jao-circe-user-number-mode "" - :lighter (:eval (format " [%s]" (length (circe-channel-nicks))))) + :lighter (:eval (format " [%s]" (jao-circe-nick-no)))) + + (defun jao-circe-channel-hook () + (if jao-modeline-in-minibuffer + (setq header-line-format + '(" %b" (:eval (format " - %s nicks" (jao-circe-nick-no))))) + (jao-circe-user-number-mode 1))) - (add-hook 'circe-channel-mode-hook #'jao-circe-user-number-mode) + (add-hook 'circe-channel-mode-hook #'jao-circe-channel-hook) (defun circe-command-RECOVER (&rest ignore) "Recover nick" @@ -2786,7 +2794,7 @@ (defun circe-command-NNICKS (&rest _) "Echo number of nicks" (circe-display-server-message - (format "%d nicks in this channel" (length (circe-channel-nicks))))) + (format "%d nicks in this channel" (jao-circe-nick-no)))) (advice-add 'circe-command-NAMES :after #'circe-command-NNICKS) -- cgit v1.2.3