From: Tim Vaughan Date: Wed, 30 Jun 2021 21:38:43 +0000 (+0200) Subject: Bugfixes, and allowed suppression of join messages. X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=commitdiff_plain;h=afd95b4b4f4bbd3063738076a1fec3f3f4d45e65;p=lurk.git Bugfixes, and allowed suppression of join messages. --- diff --git a/lurk.el b/lurk.el index becfff1..28fe5c6 100644 --- a/lurk.el +++ b/lurk.el @@ -55,6 +55,9 @@ (defcustom lurk-allow-ipv6 nil "Set to non-nil to allow use of IPv6.") +(defcustom lurk-show-joins nil + "Set to non-nil to be notified of joins, parts and quits.") + ;;; Faces ;; @@ -103,7 +106,6 @@ (defvar lurk-error-prefix (propertize "!!!" 'face 'lurk-error)) - (defvar lurk-prompt-string (propertize "> " 'face 'lurk-prompt)) @@ -284,6 +286,11 @@ portion of the source component of the message, as LURK doesn't use this.") (dolist (context (lurk-get-context-list)) (lurk-del-context-user context user))) +(defun lurk-rename-user (old-nick new-nick) + (dolist (context (lurk-get-context-list)) + (lurk-del-context-user context old-nick) + (lurk-add-context-users context (list new-nick)))) + (defun lurk-get-context-type (name) (cond ((string-prefix-p "#" name) 'channel)