mobile: support images (#536)

* ios api

* ios wip

* android wip

* ios files folder

* ios get address on start

* android app files folder

* ios more backend

* android more backend

* translation

* ios image without text, remove preview

* android image without text, remove preview

* fix translation

* file name in previews and w/t text

* Revert "file name in previews and w/t text"

This reverts commit 0110570e55.

* ios filename in preview

* android filename in preview

* android wider images

* ios determine width on image for correct quote width

* ios images in previews wip

* ios square image in quote

* ios: update image layout

* android images in quotes

* android remove redundant modifier

* android clip to bounds

* android - image in right side of quote

* android refactor image view

* android - refactor, align quote text top

* android fix emoji view

* fix image layout

* full screen image view, fix quote layout

* android various size

* android fixed image width

* android meta on image

* ios: add drag gesture to hide full-screen image

* android: make image-only meta white

* refactor file.stored

* android: meta icon color

* android: open chat scrolled to last unread item

* copy/share image messages

* android: full screen image

* check file is loaded

* terminal: refactor view for messages with files

* android: change to onClick, only show stored file

* android: remove close sheet bar

* android: close image view on click

* translation

* android: pass showMenu to CIImageView to show menu on long click

* increase DropDown width

Co-authored-by: Evgeny Poberezkin <2769109+epoberezkin@users.noreply.github.com>

src/Simplex/Chat/View.hs

@@ -200,19 +200,15 @@ viewChatItem chat ChatItem {chatDir, meta, content, quotedItem, file} = case cha
       quote = maybe [] (groupQuote g) quotedItem
   _ -> []
   where
-    sndMsg to quote mc = case (msgContentText mc, file) of
+    withSndFile = withFile viewSentFileInvitation
+    withRcvFile = withFile viewReceivedFileInvitation
+    withFile view dir l = maybe l (\f -> l <> view dir f meta) file
+    sndMsg = msg viewSentMessage
+    rcvMsg = msg viewReceivedMessage
+    msg view dir quote mc = case (msgContentText mc, file) of
       ("", Just _) -> []
-      _ -> viewSentMessage to quote mc meta
-    withSndFile to l = case file of
-      -- TODO pass CIFile
-      Just CIFile {fileId, filePath = Just fPath} -> l <> viewSentFileInvitation to fileId fPath meta
-      _ -> l
-    rcvMsg from quote mc = case (msgContentText mc, file) of
-      ("", Just _) -> []
-      _ -> viewReceivedMessage from quote mc meta
-    withRcvFile from l = case file of
-      Just f -> l <> viewReceivedFileInvitation from f meta
-      _ -> l
+      -- (_, Just _) -> prependFirst "      " $ ttyMsgContent mc
+      _ -> view dir quote mc meta
 
 viewItemUpdate :: MsgDirectionI d => ChatInfo c -> ChatItem c d -> [StyledString]
 viewItemUpdate chat ChatItem {chatDir, meta, content, quotedItem} = case chat of
@@ -476,8 +472,10 @@ viewSentMessage to quote mc = sentWithTime_ (prependFirst to $ quote <> prependF
 viewSentBroadcast :: MsgContent -> Int -> ZonedTime -> [StyledString]
 viewSentBroadcast mc n ts = prependFirst (highlight' "/feed" <> " (" <> sShow n <> ") " <> ttyMsgTime ts <> " ") (ttyMsgContent mc)
 
-viewSentFileInvitation :: StyledString -> FileTransferId -> FilePath -> CIMeta d -> [StyledString]
-viewSentFileInvitation to fId fPath = sentWithTime_ $ ttySentFile to fId fPath
+viewSentFileInvitation :: StyledString -> CIFile d -> CIMeta d -> [StyledString]
+viewSentFileInvitation to CIFile {fileId, filePath} = case filePath of
+  Just fPath -> sentWithTime_ $ ttySentFile to fileId fPath
+  _ -> const []
 
 sentWithTime_ :: [StyledString] -> CIMeta d -> [StyledString]
 sentWithTime_ styledMsg CIMeta {localItemTs} =