chat: APIConnectPlan accepts ConnectTarget; connectPlanName looks up by name

APIConnectPlan/Connect flip from Maybe AConnectionLink to Maybe ConnectTarget.
connectPlan dispatches CTLink -> connectPlanLink (the prior body, renamed)
and CTName -> connectPlanName (new) which looks the name up against
contacts.simplex_name and groups.simplex_name via the new
getContactBySimplexName / getGroupInfoBySimplexName store helpers.

The hit path returns the contact's / group's stored conn link from
preparedContact / preparedGroup; missing prepared state or unknown
names return CEInvalidConnReq. RSLV on-chain resolution is out of
scope for this branch -- known-name lookup is enough for conversation
display, search, and external-link share.

connLinkP_ parser is unchanged: APIConnect's preparedLink_ stays
ACreatedConnLink-shaped, and the Connect / APIConnectPlan parsers
already use inline strP for ConnectTarget without going through the
helper.

Directory.Service call sites updated to wrap their AConnectionLink in
CTLink when invoking APIConnectPlan.

src/Simplex/Chat/Store/Direct.hs

@@ -46,9 +46,11 @@ module Simplex.Chat.Store.Direct
     deleteContactWithoutGroups,
     getDeletedContacts,
     getContactByName,
+    getContactBySimplexName,
     getContact,
     getContactViaShortLinkToConnect,
     getContactIdByName,
+    getContactIdBySimplexName,
     updateContactProfile,
     updateContactUserPreferences,
     updateContactAlias,
@@ -763,6 +765,23 @@ getContactByName db vr user localDisplayName = do
   cId <- getContactIdByName db user localDisplayName
   getContact db vr user cId
 
+getContactBySimplexName :: DB.Connection -> VersionRangeChat -> User -> SimplexNameInfo -> ExceptT StoreError IO (Maybe Contact)
+getContactBySimplexName db vr user ni =
+  liftIO (getContactIdBySimplexName db user ni) >>= \case
+    Nothing -> pure Nothing
+    Just cId -> Just <$> getContact db vr user cId
+
+getContactIdBySimplexName :: DB.Connection -> User -> SimplexNameInfo -> IO (Maybe Int64)
+getContactIdBySimplexName db User {userId} ni =
+  maybeFirstRow fromOnly $
+    DB.query
+      db
+      [sql|
+        SELECT contact_id FROM contacts
+        WHERE user_id = ? AND simplex_name = ? AND deleted = 0
+      |]
+      (userId, ni)
+
 getUserContacts :: DB.Connection -> VersionRangeChat -> User -> IO [Contact]
 getUserContacts db vr user@User {userId} = do
   contactIds <- map fromOnly <$> DB.query db "SELECT contact_id FROM contacts WHERE user_id = ? AND deleted = 0" (Only userId)

src/Simplex/Chat/Store/Groups.hs

@@ -49,9 +49,11 @@ module Simplex.Chat.Store.Groups
     updateGroupPreferences,
     updateGroupProfileFromMember,
     getGroupIdByName,
+    getGroupIdBySimplexName,
     getGroupMemberIdByName,
     getActiveMembersByName,
     getGroupInfoByName,
+    getGroupInfoBySimplexName,
     getGroupMember,
     getHostMember,
     getMentionedGroupMember,
@@ -1043,6 +1045,17 @@ getGroupInfoByName db vr user gName = do
   gId <- getGroupIdByName db user gName
   getGroupInfo db vr user gId
 
+getGroupInfoBySimplexName :: DB.Connection -> VersionRangeChat -> User -> SimplexNameInfo -> ExceptT StoreError IO (Maybe GroupInfo)
+getGroupInfoBySimplexName db vr user ni =
+  liftIO (getGroupIdBySimplexName db user ni) >>= \case
+    Nothing -> pure Nothing
+    Just gId -> Just <$> getGroupInfo db vr user gId
+
+getGroupIdBySimplexName :: DB.Connection -> User -> SimplexNameInfo -> IO (Maybe GroupId)
+getGroupIdBySimplexName db User {userId} ni =
+  maybeFirstRow fromOnly $
+    DB.query db "SELECT group_id FROM groups WHERE user_id = ? AND simplex_name = ?" (userId, ni)
+
 getGroupMember :: DB.Connection -> VersionRangeChat -> User -> GroupId -> GroupMemberId -> ExceptT StoreError IO GroupMember
 getGroupMember db vr user@User {userId} groupId groupMemberId =
   ExceptT . firstRow (toContactMember vr user) (SEGroupMemberNotFound groupMemberId) $