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

Support for private messages

This commit is contained in:
Jaidyn Ann 2023-06-06 11:33:31 -05:00
parent 1affe55063
commit 99c9452479
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
irc-chatdir.scm
View File

@ -24,7 +24,7 @@
(chicken file) (chicken file posix) (chicken io) (chicken pathname)
(chicken process-context) (chicken process-context posix)
(chicken string)
srfi-1 srfi-18 srfi-69
srfi-1 srfi-13 srfi-18 srfi-69
(prefix chatdir chatdir:) (prefix chatdir-inotify chatdir:)
ircc
getopt-long)
@ -60,6 +60,7 @@
(cond
[(and (string=? cmd "PRIVMSG")
(string? sender)
(irc:channel? (car params))
(irc:hostmask? sender))
(let ([target (if (irc:user-is-self? conn (car params))
(irc:hostmask-nick sender)
@ -67,6 +68,13 @@
(chatdir:channel-message-add! root-dir target
(last params) (irc:hostmask-nick sender)))]
[(and (string=? cmd "PRIVMSG")
(string? sender)
(irc:hostmask? sender))
(chatdir:channel-add! root-dir (irc:hostmask-nick sender))
(chatdir:channel-message-add! root-dir (irc:hostmask-nick sender)
(last params) (irc:hostmask-nick sender))]
[(or (string=? cmd "NOTICE")
(and (string=? cmd "PRIVMSG")
(or (string-null? sender) (not (irc:hostmask? sender)))))