From 2c297cb6747080cd47cdcd9bbd23c5f24a092e8f Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sat, 13 Apr 2024 08:29:25 +0200
Subject: Chatroom metadata updates

---
 main/Test.hs | 26 ++++++++++++++++++++++----
 1 file changed, 22 insertions(+), 4 deletions(-)

(limited to 'main/Test.hs')

diff --git a/main/Test.hs b/main/Test.hs
index b32872a..7aadd47 100644
--- a/main/Test.hs
+++ b/main/Test.hs
@@ -268,6 +268,7 @@ commands = map (T.pack *** id)
     , ("chatroom-create", cmdChatroomCreate)
     , ("chatroom-list-local", cmdChatroomListLocal)
     , ("chatroom-watch-local", cmdChatroomWatchLocal)
+    , ("chatroom-set-name", cmdChatroomSetName)
     ]
 
 cmdStore :: Command
@@ -574,7 +575,22 @@ cmdDmListContact = do
 cmdChatroomCreate :: Command
 cmdChatroomCreate = do
     [name] <- asks tiParams
-    void $ createChatroom (Just name) Nothing
+    room <- createChatroom (Just name) Nothing
+    cmdOut $ unwords $ "chatroom-create-done" : chatroomInfo room
+
+getChatroomStateData :: Text -> CommandM (Stored ChatroomStateData)
+getChatroomStateData tref = do
+    st <- asks tiStorage
+    Just ref <- liftIO $ readRef st (encodeUtf8 tref)
+    return $ wrappedLoad ref
+
+cmdChatroomSetName :: Command
+cmdChatroomSetName = do
+    [cid, name] <- asks tiParams
+    sdata <- getChatroomStateData cid
+    updateChatroomByStateData sdata (Just name) Nothing >>= \case
+        Just room -> cmdOut $ unwords $ "chatroom-set-name-done" : chatroomInfo room
+        Nothing -> cmdOut "chatroom-set-name-failed"
 
 cmdChatroomListLocal :: Command
 cmdChatroomListLocal = do
@@ -594,9 +610,11 @@ cmdChatroomWatchLocal = do
         Just diff -> forM_ diff $ \case
             AddedChatroom room -> outLine out $ unwords $ "chatroom-watched-added" : chatroomInfo room
             RemovedChatroom room -> outLine out $ unwords $ "chatroom-watched-removed" : chatroomInfo room
-            UpdatedChatroom oldroom room -> outLine out $ unwords $ "chatroom-watched-updated" : chatroomInfo room ++
-                map (show . refDigest . storedRef) (roomStateData oldroom) ++
-                map (show . refDigest . storedRef) (roomStateData room)
+            UpdatedChatroom oldroom room -> outLine out $ unwords $ concat
+                [ [ "chatroom-watched-updated" ], chatroomInfo room
+                , [ "old" ], map (show . refDigest . storedRef) (roomStateData oldroom)
+                , [ "new" ], map (show . refDigest . storedRef) (roomStateData room)
+                ]
 
 chatroomInfo :: ChatroomState -> [String]
 chatroomInfo room =
-- 
cgit v1.2.3