From 9acadd33902f03a99146bfbae52863365e4d60b2 Mon Sep 17 00:00:00 2001
From: Boutade <thegoofist@protonmail.com>
Date: Fri, 27 Sep 2019 14:33:53 -0500
Subject: made create-direct-message-room

accidentally added roshambot example to this commit
---
 utility-apps.lisp | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'utility-apps.lisp')

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
 
-- 
cgit v1.2.3