From 61d66a9cd09ad3c01f97f2fc5abc98505258eb9c Mon Sep 17 00:00:00 2001 From: Boutade Date: Wed, 25 Sep 2019 22:33:29 -0500 Subject: integrated server-directory component into example bot --- granolin.lisp | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'granolin.lisp') diff --git a/granolin.lisp b/granolin.lisp index fa2935b..ab04c51 100644 --- a/granolin.lisp +++ b/granolin.lisp @@ -308,6 +308,9 @@ (let ((message-event (make-timeline-event :data nil)) (state-event (make-room-state-event :data nil))) (loop :for (room-id room . ignore) :on (joined-rooms *response-object*) :by #'cddr :do + + (setf room-id (symbol-name room-id)) + ;; handle the timeline events (aka room events) (dolist (ob (getob room :|timeline| :|events|)) (setf (timeline-event-data message-event) ob) @@ -320,6 +323,7 @@ (defun process-invited-room-events (client) (let ((invite-event (make-invitation-event :data nil))) (loop :for (room-id room . ignore) :on (invited-rooms *response-object*) :by #'cddr :do + (setf room-id (symbol-name room-id)) (dolist (ob (getob room :|invite_state| :|events|)) (setf (invitation-event-data invite-event) ob) (handle-event client room-id invite-event))))) -- cgit v1.2.3