From 4bf1a8866cf4286d3fca9e89a4afa20d11800edb Mon Sep 17 00:00:00 2001
From: Teddy Wing
Date: Sun, 8 May 2022 23:19:02 +0200
Subject: config: Add a `print-object` method

Makes it more convenient to inspect the config object's fields.
---
 src/config.lisp | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/src/config.lisp b/src/config.lisp
index ecee3de..5be891e 100644
--- a/src/config.lisp
+++ b/src/config.lisp
@@ -33,3 +33,10 @@
      :initarg :jql
      :reader jql
      :documentation "JQL querying issues to watch")))
+
+(defmethod print-object ((object config) stream)
+  (with-slots (login token endpoint sendmail email-to verbose jql) object
+    (print-unreadable-object (object stream :type t)
+      (format stream
+              ":login ~S :token ~S :endpoint ~S :sendmail ~S :email-to ~S :verbose ~S :jql ~S"
+              login token endpoint sendmail email-to verbose jql))))
-- 
cgit v1.2.3