From 2c2ab8dc2c6fb003cfec3bd79fdeaaf0999fd355 Mon Sep 17 00:00:00 2001 From: Boutade Date: Thu, 26 Sep 2019 09:25:18 -0500 Subject: reoranizing, cleaning up, fixing cracks --- utility-apps.lisp | 10 ---------- 1 file changed, 10 deletions(-) (limited to 'utility-apps.lisp') diff --git a/utility-apps.lisp b/utility-apps.lisp index f6b4416..c9789bf 100644 --- a/utility-apps.lisp +++ b/utility-apps.lisp @@ -125,13 +125,3 @@ (getf (event-content event) :|join_rule|)) (join-room client room-id))) -(defparameter +join-room-path+ "/_matrix/client/r0/rooms/~a/join") - - - -(defun join-room (client room-id) - (let ((body (list :|roomId| room-id)) - (url (format nil +join-room-path+ room-id))) - (send (client url body :method :post :wrap make-basic-json) - (format *standard-output* "JOINED ROOM ~a" room-id) - (format *error-output* "JOIN ROOM FAILED ~a" room-id)))) -- cgit v1.2.3