config: Add a `print-object` method

Makes it more convenient to inspect the config object's fields.

1 files changed, 7 insertions, 0 deletions

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))))