core: additional group preferences: prohibit SimpleX links, restrict some features to specific roles (#3964)

* core: additional group preferences: prohibit SimpleX links, restrict some features to specific roles

* add role to group preference items, tests

src/Simplex/Chat/Markdown.hs

@@ -144,6 +144,15 @@ markdownToList (m1 :|: m2) = markdownToList m1 <> markdownToList m2
 parseMarkdown :: Text -> Markdown
 parseMarkdown s = fromRight (unmarked s) $ A.parseOnly (markdownP <* A.endOfInput) s
 
+containsFormat :: (Format -> Bool) -> Markdown -> Bool
+containsFormat p (Markdown f _) = maybe False p f
+containsFormat p (m1 :|: m2) = containsFormat p m1 || containsFormat p m2
+
+isSimplexLink :: Format -> Bool
+isSimplexLink = \case
+  SimplexLink {} -> True;
+  _ -> False
+
 markdownP :: Parser Markdown
 markdownP = mconcat <$> A.many' fragmentP
   where