diff options
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 |