core: update chat preferences (#1292)

* core: update chat preferences

* refactor, types

* rename types

* rename types

* make voice on by default

* create new user with empty preferences

* fix test

src/Simplex/Chat/Terminal/Input.hs

@@ -40,7 +40,8 @@ runInputLoop ct cc = forever $ do
     CRChatCmdError _ -> when (isMessage cmd) $ echo s
     _ -> pure ()
   let testV = testView $ config cc
-  printToTerminal ct $ responseToView testV r
+  user <- readTVarIO $ currentUser cc
+  printToTerminal ct $ responseToView user testV r
   where
     echo s = printToTerminal ct [plain s]
     isMessage = \case