TheAnachronism/docspell
1
0
Fork 0
mirror of https://github.com/TheAnachronism/docspell.git synced 2025-06-23 19:08:26 +00:00
Code Issues Packages Projects Releases Wiki Activity

Refactor Dropdown

Browse Source
This commit is contained in:
Eike Kettner
2021-04-02 15:54:02 +02:00
parent b9c98c6578
commit 8d15d97857
26 changed files with 493 additions and 504 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
modules/webapp/src/main/elm/Page/Home/SideMenu.elm
View File

@ -47,7 +47,7 @@ view flags settings model =
SelectView svm ->
case svm.action of
EditSelected ->
viewEditMenu svm settings
viewEditMenu flags svm settings
_ ->
viewSearch flags settings model
@ -83,8 +83,8 @@ viewSearch flags settings model =
]
viewEditMenu : SelectViewModel -> UiSettings -> List (Html Msg)
viewEditMenu svm settings =
viewEditMenu : Flags -> SelectViewModel -> UiSettings -> List (Html Msg)
viewEditMenu flags svm settings =
let
cfg_ =
Comp.ItemDetail.MultiEditMenu.defaultViewConfig
@ -127,5 +127,5 @@ viewEditMenu svm settings =
, rootClasses = "mt-2 text-sm"
}
, Html.map EditMenuMsg
(Comp.ItemDetail.MultiEditMenu.view2 cfg settings svm.editModel)
(Comp.ItemDetail.MultiEditMenu.view2 flags cfg settings svm.editModel)
]

4
modules/webapp/src/main/elm/Page/ItemDetail/View2.elm
View File

@ -17,7 +17,7 @@ import Styles as S
viewSidebar : Texts -> Bool -> Flags -> UiSettings -> Model -> Html Msg
viewSidebar texts visible _ settings model =
viewSidebar texts visible flags settings model =
div
[ id "sidebar"
, class S.sidebar
@ -49,7 +49,7 @@ viewSidebar texts visible _ settings model =
, rootClasses = "text-sm mb-3 "
}
, Html.map ItemDetailMsg
(Comp.ItemDetail.EditForm.view2 settings model.detail)
(Comp.ItemDetail.EditForm.view2 flags settings model.detail)
]

7
modules/webapp/src/main/elm/Page/UserSettings/View2.elm
View File

@ -119,7 +119,7 @@ viewContent flags settings model =
viewImapSettings settings model
Just ScanMailboxTab ->
viewScanMailboxManage settings model
viewScanMailboxManage flags settings model
Just UiSettingsTab ->
viewUiSettings flags settings model
@ -247,8 +247,8 @@ viewNotificationManage settings model =
]
viewScanMailboxManage : UiSettings -> Model -> List (Html Msg)
viewScanMailboxManage settings model =
viewScanMailboxManage : Flags -> UiSettings -> Model -> List (Html Msg)
viewScanMailboxManage flags settings model =
[ h2
[ class S.header1
, class "inline-flex items-center"
@ -276,6 +276,7 @@ viewScanMailboxManage settings model =
]
, Html.map ScanMailboxMsg
(Comp.ScanMailboxManage.view2
flags
settings
model.scanMailboxModel
)