From cf0808dea948fcd3ba21de13be49aab3f03f3cc8 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sun, 14 Jul 2024 22:24:33 +0200
Subject: Subscribe on entering chatroom

---
 main/Main.hs | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to 'main')

diff --git a/main/Main.hs b/main/Main.hs
index 394cd30..dfa3e1b 100644
--- a/main/Main.hs
+++ b/main/Main.hs
@@ -526,7 +526,13 @@ cmdSelectContext :: Command
 cmdSelectContext = do
     n <- read <$> asks ciLine
     join (asks ciContextOptions) >>= \ctxs -> if
-        | n > 0, (ctx : _) <- drop (n - 1) ctxs -> modify $ \s -> s { csContext = ctx }
+        | n > 0, (ctx : _) <- drop (n - 1) ctxs -> do
+            modify $ \s -> s { csContext = ctx }
+            case ctx of
+                SelectedChatroom rstate -> do
+                    when (not (roomStateSubscribe rstate)) $ do
+                        chatroomSetSubscribe (head $ roomStateData rstate) True
+                _ -> return ()
         | otherwise -> throwError "invalid index"
 
 cmdSend :: Command
-- 
cgit v1.2.3