bugfix

1 files changed, 19 insertions, 4 deletions

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