TheAnachronism/docspell
1
0
Fork 0
mirror of https://github.com/TheAnachronism/docspell.git synced 2025-06-24 11:28:25 +00:00
Code Issues Packages Projects Releases Wiki Activity

Improve main view in home page

Browse Source
This commit is contained in:
eikek
2021-08-16 17:00:57 +02:00
parent 7070371cf7
commit cf10f63af4
2 changed files with 29 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files

51
modules/webapp/src/main/elm/Page/Home/View2.elm
View File

@ -51,11 +51,7 @@ viewContent texts flags settings model =
]
(searchStats texts flags settings model
++ itemsBar texts flags settings model
++ [ div [ class "sm:relative" ]
(itemMergeView texts settings model
++ itemCardList texts flags settings model
)
]
++ mainView texts flags settings model
++ confirmModal texts model
)
@ -64,26 +60,37 @@ viewContent texts flags settings model =
--- Helpers
itemMergeView : Texts -> UiSettings -> Model -> List (Html Msg)
itemMergeView texts settings model =
case model.viewMode of
SelectView svm ->
case svm.action of
MergeSelected ->
[ div
[ class S.dimmerMerge
, class "mt-10 sm:mt-0"
]
[ Html.map MergeItemsMsg
(Comp.ItemMerge.view texts.itemMerge settings svm.mergeModel)
]
]
mainView : Texts -> Flags -> UiSettings -> Model -> List (Html Msg)
mainView texts flags settings model =
let
mergeView =
case model.viewMode of
SelectView svm ->
case svm.action of
MergeSelected ->
Just svm
_ ->
Nothing
_ ->
[]
Nothing
in
case mergeView of
Just svm ->
[ div [ class "sm:relative mb-2" ]
(itemMergeView texts settings svm)
]
_ ->
[]
Nothing ->
itemCardList texts flags settings model
itemMergeView : Texts -> UiSettings -> SelectViewModel -> List (Html Msg)
itemMergeView texts settings svm =
[ Html.map MergeItemsMsg
(Comp.ItemMerge.view texts.itemMerge settings svm.mergeModel)
]
confirmModal : Texts -> Model -> List (Html Msg)