From 5736b214b44bf34b3d2c0d6921c5044a6ad4378b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Tue, 29 Oct 2024 20:19:46 +0100
Subject: Chatroom-specific identity

Changelog: Chatroom-specific identity
---
 main/Test.hs | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

(limited to 'main/Test.hs')

diff --git a/main/Test.hs b/main/Test.hs
index 741ffe8..1b156ae 100644
--- a/main/Test.hs
+++ b/main/Test.hs
@@ -290,6 +290,7 @@ commands = map (T.pack *** id)
     , ("chatroom-unsubscribe", cmdChatroomUnsubscribe)
     , ("chatroom-members", cmdChatroomMembers)
     , ("chatroom-join", cmdChatroomJoin)
+    , ("chatroom-join-as", cmdChatroomJoinAs)
     , ("chatroom-leave", cmdChatroomLeave)
     , ("chatroom-message-send", cmdChatroomMessageSend)
     ]
@@ -757,7 +758,7 @@ cmdChatroomListLocal = do
 cmdChatroomWatchLocal :: Command
 cmdChatroomWatchLocal = do
     [] <- asks tiParams
-    h <- getHead
+    h <- getOrLoadHead
     out <- asks tiOutput
     void $ watchChatrooms h $ \_ -> \case
         Nothing -> return ()
@@ -815,6 +816,14 @@ cmdChatroomJoin = do
     joinChatroomByStateData =<< getChatroomStateData cid
     cmdOut "chatroom-join-done"
 
+cmdChatroomJoinAs :: Command
+cmdChatroomJoinAs = do
+    [ cid, name ] <- asks tiParams
+    st <- asks tiStorage
+    identity <- liftIO $ createIdentity st (Just name) Nothing
+    joinChatroomAsByStateData identity =<< getChatroomStateData cid
+    cmdOut $ unwords [ "chatroom-join-as-done", T.unpack cid ]
+
 cmdChatroomLeave :: Command
 cmdChatroomLeave = do
     [ cid ] <- asks tiParams
-- 
cgit v1.2.3