From 4e5ee14582cf2f918a76ffb9e37ee9c5809a53b2 Mon Sep 17 00:00:00 2001 From: Boutade Date: Wed, 25 Sep 2019 12:04:25 -0500 Subject: bugfix --- utility-apps.lisp | 23 +++++++++++++++++++---- 1 file changed, 19 insertions(+), 4 deletions(-) (limited to 'utility-apps.lisp') diff --git a/utility-apps.lisp b/utility-apps.lisp index 7ea4b21..0fdd3fb 100644 --- a/utility-apps.lisp +++ b/utility-apps.lisp @@ -9,9 +9,24 @@ :documentation "An output stream to which messages are logged." ))) +(defun print-assoc (alist &optional (stream t)) + (loop :for (k . v) :in alist + :do (format stream "~a: ~a~%" k v))) + (defmethod handle-event :after ((log message-log) room (event timeline-event)) - (format (output log) "~a in ~a: ~a~%" - (sender event) - room - (msg-body event))) + (let ((fields `(("sender" . ,(sender event)) + ("event type" . ,(event-type event)) + ("message type" . ,(msg-type event)) + ("messge body" . ,(msg-body event))))) + (print-assoc fields (output log)) + (terpri (output log)))) + + +(defmethod handle-event :after ((log message-log) room (event room-state-event)) + (let ((fields `(("sender" . ,(sender event)) + ("event type" . ,(event-type event)) + ("state key" . ,(state-key event)) + ("content" . ,(event-content event))))) + (print-assoc fields (output log)) + (terpri (output log)))) -- cgit v1.2.3