From 856e5e8f6bc0e7d4fe8a164b2e7027c042b385bd Mon Sep 17 00:00:00 2001
From: Jaidyn Ann <10477760+JadedCtrl@users.noreply.github.com>
Date: Mon, 29 May 2023 11:17:11 -0500
Subject: [PATCH] Support ircc's debugging output

---
 irc-chatdir.scm | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/irc-chatdir.scm b/irc-chatdir.scm
index 50a36fc..0cb0353 100755
--- a/irc-chatdir.scm
+++ b/irc-chatdir.scm
@@ -126,7 +126,7 @@
 
 (define *help-msg*
   (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"
    "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"
@@ -158,7 +158,10 @@
 	(directory
 	 "Root directory for channels and messages. Defaults to CWD."
 	 (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.
@@ -225,7 +228,8 @@
 	  ;; Kick off the main loop!
 	  (irc:loop connection
 				(make-irc-command-callback connection)
-				(make-irc-reply-callback connection))))
+				(make-irc-reply-callback connection)
+                (alist-ref 'debug args)))))
 
 
 (main)