diff options
| author | Boutade <thegoofist@protonmail.com> | 2019-09-27 14:33:53 -0500 |
|---|---|---|
| committer | Boutade <thegoofist@protonmail.com> | 2019-09-27 14:33:53 -0500 |
| commit | 9acadd33902f03a99146bfbae52863365e4d60b2 (patch) | |
| tree | 0364a2512d1a03c7e2008a44ad6aa2dcec28a856 /utility-apps.lisp | |
| parent | 5cb532ecac85fec24815f8326718436a444fa9b1 (diff) | |
made create-direct-message-room
accidentally added roshambot example to this commit
Diffstat (limited to 'utility-apps.lisp')
| -rw-r--r-- | utility-apps.lisp | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/utility-apps.lisp b/utility-apps.lisp index 16df32f..01ac5b6 100644 --- a/utility-apps.lisp +++ b/utility-apps.lisp @@ -168,6 +168,12 @@ (and like (search name contact :test #'string-equal)))) (client-contacts client)))) +(defun ensure-direct-room (client name &key like) + (let-if (room (find-contact client name :like like :get-direct-room t)) + room + (create-direct-message-room client name :like like))) + + ;;; Basic Joiner Bot |