jadedctrl/ chicken-ircc
Archived
1
0
Disbranĉigi 0
Fontkodo Tirpetoj Activity

Fix parsing of RPL_NAMREPLY by trimming user prefixes

This commit is contained in:
Jaidyn Ann 2023-01-15 21:08:53 -06:00
parent 93884f5abe
commit bb80670a18
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
ircc.scm
View File

@ -110,6 +110,17 @@
(string-cursor<? at-@ at-.)))) (string-cursor<? at-@ at-.))))
;; Remove all usermode prefixes from a user string (hostmask, nick, etc)
(define (irc:trim-usermode-prefixes user-string)
(string-trim user-string
(lambda (char)
(or (eq? char #\~)
(eq? char #\&)
(eq? char #\@)
(eq? char #\%)
(eq? char #\+)))))
;; Return whether or not the given string (username/nick/hostmask/etc) is ;; Return whether or not the given string (username/nick/hostmask/etc) is
;; equivalent to current user. ;; equivalent to current user.
(define (irc:user-is-self? conn user-string) (define (irc:user-is-self? conn user-string)
@ -163,7 +174,8 @@
[(eq? reply RPL_NAMREPLY) [(eq? reply RPL_NAMREPLY)
(let ([channel (third params)] (let ([channel (third params)]
[chan-symbol (second params)] [chan-symbol (second params)]
[users (string-split (cadddr params) " ")]) [users (map irc:trim-usermode-prefixes
(string-split (cadddr params) " "))])
(irc:channel-set! conn channel 'symbol chan-symbol) (irc:channel-set! conn channel 'symbol chan-symbol)
(map (map
(lambda (user) (lambda (user)