Merge branch 'master' into remote-desktop

2026-06-07 15:23:11 +00:00 · 2023-10-12 10:43:59 +01:00
parent c2a858b06e 4df8ea2e78
commit 73652e4bba
51 changed files with 1652 additions and 529 deletions
@@ -381,6 +381,11 @@ mcExtMsgContent = \case
  MCQuote _ c -> c
  MCForward c -> c

+isQuote :: MsgContainer -> Bool
+isQuote = \case
+  MCQuote {} -> True
+  _ -> False
+
 data LinkPreview = LinkPreview {uri :: Text, title :: Text, description :: Text, image :: ImageData, content :: Maybe LinkContent}
  deriving (Eq, Show, Generic)