jadedctrl/ irc-chatdir
Archived
1
0
Disbranĉigi 0
Fontkodo Tirpetoj Activity

PART/JOIN support w chatdir user-states

This commit is contained in:
Jaidyn Ann 2023-05-29 00:41:32 -05:00
parent d27418362d
commit 325e94dbdd
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
irc-chatdir.scm
View File

@ -70,14 +70,22 @@
[(or (string=? cmd "NOTICE") [(or (string=? cmd "NOTICE")
(and (string=? cmd "PRIVMSG") (and (string=? cmd "PRIVMSG")
(or (string-null? sender) (not (irc:hostmask? sender))))) (or (string-null? sender) (not (irc:hostmask? sender)))))
(chatdir:channel-message-add! root-dir ".server" (last params) "server")] (chatdir:channel-message-add! root-dir ".server" (last params))]
[(and (string=? cmd "JOIN") (irc:user-is-self? conn sender)) [(and (string=? cmd "JOIN") (irc:user-is-self? conn sender))
(chatdir:channel-add! root-dir (last params))] (chatdir:channel-add! root-dir (last params))]
[(string=? cmd "JOIN") [(string=? cmd "JOIN")
(chatdir:channel-user-add! root-dir (last params) sender)])))) (let ([channel (car params)]
[nick (irc:hostmask-nick sender)])
(chatdir:channel-user-add! root-dir channel nick)
(chatdir:channel-user-toggle-states! root-dir channel nick
"online" "offline"))]
[(string=? cmd "PART")
(chatdir:channel-user-toggle-states!
root-dir (car params) (irc:hostmask-nick sender)
"offline" "online")]))))
;; [(string=? cmd "NICK") ;; [(string=? cmd "NICK")
;; (chatd-json-write conn ;; (chatd-json-write conn
;; (compose-event-alist conn "user-info" #:user (last params)))]) ;; (compose-event-alist conn "user-info" #:user (last params)))])