From 8ddd1311f5988d68cacf0c528e8fe7dc9faa9e6f Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sat, 8 Mar 2025 21:09:22 +0100
Subject: Deleting chatrooms

Changelog: Added `/delete` command to delete chatrooms for current user
---
 main/Test.hs | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'main/Test.hs')

diff --git a/main/Test.hs b/main/Test.hs
index 183ed51..0181575 100644
--- a/main/Test.hs
+++ b/main/Test.hs
@@ -287,6 +287,7 @@ commands = map (T.pack *** id)
     , ("dm-list-peer", cmdDmListPeer)
     , ("dm-list-contact", cmdDmListContact)
     , ("chatroom-create", cmdChatroomCreate)
+    , ("chatroom-delete", cmdChatroomDelete)
     , ("chatroom-list-local", cmdChatroomListLocal)
     , ("chatroom-watch-local", cmdChatroomWatchLocal)
     , ("chatroom-set-name", cmdChatroomSetName)
@@ -764,6 +765,13 @@ cmdChatroomCreate = do
     room <- createChatroom (Just name) Nothing
     cmdOut $ unwords $ "chatroom-create-done" : chatroomInfo room
 
+cmdChatroomDelete :: Command
+cmdChatroomDelete = do
+    [ cid ] <- asks tiParams
+    sdata <- getChatroomStateData cid
+    deleteChatroomByStateData sdata
+    cmdOut $ unwords [ "chatroom-delete-done", T.unpack cid ]
+
 getChatroomStateData :: Text -> CommandM (Stored ChatroomStateData)
 getChatroomStateData tref = do
     st <- asks tiStorage
-- 
cgit v1.2.3