diff options
| author | Boutade <thegoofist@protonmail.com> | 2019-09-26 09:25:18 -0500 |
|---|---|---|
| committer | Boutade <thegoofist@protonmail.com> | 2019-09-26 09:25:18 -0500 |
| commit | 2c2ab8dc2c6fb003cfec3bd79fdeaaf0999fd355 (patch) | |
| tree | 69f7160aad539800b335fb6c371ae43ef2713b7c /utility-apps.lisp | |
| parent | d9a1f977b7595f4fd829ece4cfa52f9fe5dd76e9 (diff) | |
reoranizing, cleaning up, fixing cracks
Diffstat (limited to 'utility-apps.lisp')
| -rw-r--r-- | utility-apps.lisp | 10 |
1 files changed, 0 insertions, 10 deletions
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)))) |