core (pq): integrate agent api, create e2ee info items (#3859)

src/Simplex/Chat/Messages/CIContent.hs

@@ -343,6 +343,9 @@ sndConnEventToText = \case
     SPSecured -> "secured new address" <> forMember m <> "..."
     SPCompleted -> "you changed address" <> forMember m
   SCERatchetSync syncStatus m -> ratchetSyncStatusToText syncStatus <> forMember m
+  SCEPQEnabled enabled
+    | enabled -> "post-quantum encryption enabled"
+    | otherwise -> "post-quantum encryption disabled"
   where
     forMember member_ =
       maybe "" (\GroupMemberRef {profile = Profile {displayName}} -> " for " <> displayName) member_

src/Simplex/Chat/Messages/CIContent/Events.hs

@@ -48,6 +48,7 @@ data RcvConnEvent
 data SndConnEvent
   = SCESwitchQueue {phase :: SwitchPhase, member :: Maybe GroupMemberRef}
   | SCERatchetSync {syncStatus :: RatchetSyncState, member :: Maybe GroupMemberRef}
+  | SCEPQEnabled {enabled :: Bool}
   deriving (Show)
 
 data RcvDirectEvent