From a9708dbdd58245b0078c3609f3fba942409eede8 Mon Sep 17 00:00:00 2001
From: Uko Kokņevičs
Date: Sun, 12 Oct 2025 15:30:52 +0300
Subject: msginfo: pretty print the response

---
 src/bot/impl.lisp | 2 +-
 src/main.lisp     | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/bot/impl.lisp b/src/bot/impl.lisp
index 162938e..85f4496 100644
--- a/src/bot/impl.lisp
+++ b/src/bot/impl.lisp
@@ -56,7 +56,7 @@
 (defgeneric fixup-value (value)
   (:documentation "Fixup top-level VALUE before passing it onto telegram")
   (:method (value)
-    (jzon:stringify value))
+    (jzon:stringify value :pretty *print-pretty*))
   (:method ((value null))
     value)
   (:method ((value number))
diff --git a/src/main.lisp b/src/main.lisp
index 6d83ff4..96f73a0 100644
--- a/src/main.lisp
+++ b/src/main.lisp
@@ -222,7 +222,7 @@
 
       ((and (equal simple-cmd "msginfo")
             (message-reply-to-message msg))
-       (reply-message bot it (fixup-value it)))
+       (reply-message bot it (let ((*print-pretty* t)) (fixup-value it))))
 
       ((equal simple-cmd "ping")
        (let* ((start-time (get-internal-real-time))
-- 
cgit v1.2.3