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

Support ircc's debugging output

This commit is contained in:
Jaidyn Ann 2023-05-29 11:17:11 -05:00
parent 82599798fc
commit 856e5e8f6b
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
irc-chatdir.scm
View File

@ -126,7 +126,7 @@
(define *help-msg* (define *help-msg*
(string-append (string-append
"usage: irc-chatd [-h] [-n nick] [-u user] [-p password] hostname\n\n" "usage: irc-chatd [-hd] [-n nick] [-u user] [-p password] hostname\n\n"
"`chatd` is a standard format for chat client-daemons; the goal being that a\n" "`chatd` is a standard format for chat client-daemons; the goal being that a\n"
"chat client should be able to work with any chat protocol (IRC, XMPP, etc)\n" "chat client should be able to work with any chat protocol (IRC, XMPP, etc)\n"
"just by reading and writing to files served by a `chatd` daemon, without\n" "just by reading and writing to files served by a `chatd` daemon, without\n"
@ -158,7 +158,10 @@
(directory (directory
"Root directory for channels and messages. Defaults to CWD." "Root directory for channels and messages. Defaults to CWD."
(single-char #\o) (single-char #\o)
(value (required PATH))))) (value (required PATH)))
(debug
(single-char #\d)
"Print all messages received from the IRC server.")))
;; Prints cli usage to stderr. ;; Prints cli usage to stderr.
@ -225,7 +228,8 @@
;; Kick off the main loop! ;; Kick off the main loop!
(irc:loop connection (irc:loop connection
(make-irc-command-callback connection) (make-irc-command-callback connection)
(make-irc-reply-callback connection)))) (make-irc-reply-callback connection)
(alist-ref 'debug args)))))
(main) (main)