diff options
| author |  Uko Kokņevičs | 2025-10-12 15:30:52 +0300 |
|---|---|---|
| committer | Uko Kokņevičs | 2025-10-12 15:30:52 +0300 |
| commit | a9708dbdd58245b0078c3609f3fba942409eede8 (patch) | |
| tree | c722ed796504bafdc8038cc5c69537ae34add556 | |
| parent | Add Animation and PhotoSize types (diff) | |
| download | ukkoclot-a9708dbdd58245b0078c3609f3fba942409eede8.tar.gz ukkoclot-a9708dbdd58245b0078c3609f3fba942409eede8.tar.xz ukkoclot-a9708dbdd58245b0078c3609f3fba942409eede8.zip | |
msginfo: pretty print the response
| -rw-r--r-- | src/bot/impl.lisp | 2 | ||||
| -rw-r--r-- | src/main.lisp | 2 |
2 files changed, 2 insertions, 2 deletions
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 @@ | |||
| 56 | (defgeneric fixup-value (value) | 56 | (defgeneric fixup-value (value) |
| 57 | (:documentation "Fixup top-level VALUE before passing it onto telegram") | 57 | (:documentation "Fixup top-level VALUE before passing it onto telegram") |
| 58 | (:method (value) | 58 | (:method (value) |
| 59 | (jzon:stringify value)) | 59 | (jzon:stringify value :pretty *print-pretty*)) |
| 60 | (:method ((value null)) | 60 | (:method ((value null)) |
| 61 | value) | 61 | value) |
| 62 | (:method ((value number)) | 62 | (: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 @@ | |||
| 222 | 222 | ||
| 223 | ((and (equal simple-cmd "msginfo") | 223 | ((and (equal simple-cmd "msginfo") |
| 224 | (message-reply-to-message msg)) | 224 | (message-reply-to-message msg)) |
| 225 | (reply-message bot it (fixup-value it))) | 225 | (reply-message bot it (let ((*print-pretty* t)) (fixup-value it)))) |
| 226 | 226 | ||
| 227 | ((equal simple-cmd "ping") | 227 | ((equal simple-cmd "ping") |
| 228 | (let* ((start-time (get-internal-real-time)) | 228 | (let* ((start-time (get-internal-real-time)) |