Detect how to display pdf files

Closes: #1099
This commit is contained in:
eikek
2021-10-06 23:20:16 +02:00
parent b6187bb88d
commit f216c472ee
15 changed files with 217 additions and 87 deletions

View File

@@ -460,7 +460,7 @@ searchStats texts _ settings model =
itemCardList : Texts -> Flags -> UiSettings -> Model -> List (Html Msg)
itemCardList texts _ settings model =
itemCardList texts flags settings model =
let
previewUrl attach =
Api.attachmentPreviewURL attach.id
@@ -489,6 +489,7 @@ itemCardList texts _ settings model =
(Comp.ItemCardList.view2 texts.itemCardList
itemViewCfg
settings
flags
model.itemListModel
)
, loadMore texts settings model

View File

@@ -9,6 +9,7 @@ module Page.Share.Results exposing (view)
import Api
import Comp.ItemCardList
import Data.Flags exposing (Flags)
import Data.ItemSelection
import Data.UiSettings exposing (UiSettings)
import Html exposing (..)
@@ -18,8 +19,8 @@ import Page exposing (Page(..))
import Page.Share.Data exposing (Model, Msg(..))
view : Texts -> UiSettings -> String -> Model -> Html Msg
view texts settings shareId model =
view : Texts -> UiSettings -> Flags -> String -> Model -> Html Msg
view texts settings flags shareId model =
let
viewCfg =
{ current = Nothing
@@ -32,5 +33,5 @@ view texts settings shareId model =
in
div []
[ Html.map ItemListMsg
(Comp.ItemCardList.view2 texts.itemCardList viewCfg settings model.itemListModel)
(Comp.ItemCardList.view2 texts.itemCardList viewCfg settings flags model.itemListModel)
]

View File

@@ -63,7 +63,7 @@ viewContent texts flags versionInfo uiSettings shareId model =
mainContent : Texts -> Flags -> UiSettings -> String -> Model -> Html Msg
mainContent texts _ settings shareId model =
mainContent texts flags settings shareId model =
div
[ id "content"
, class "h-full flex flex-col"
@@ -76,7 +76,7 @@ mainContent texts _ settings shareId model =
[ text <| Maybe.withDefault "" model.verifyResult.name
]
, Menubar.view texts model
, Results.view texts settings shareId model
, Results.view texts settings flags shareId model
]