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

Remove more unused client code

Browse Source
This commit is contained in:
eikek
2022-01-29 15:04:04 +01:00
parent 74db2d39a7
commit e4527400ca
4 changed files with 6 additions and 62 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
modules/webapp/src/main/elm/App/Data.elm
View File

@ -104,11 +104,7 @@ init key url flags_ settings =
Page.Dashboard.Data.init flags Page.Dashboard.Data.init flags
searchViewMode = searchViewMode =
if settings.sideMenuVisible then Page.Search.Data.SearchView
Page.Search.Data.SearchView
else
Page.Search.Data.SimpleView
in in
( { flags = flags ( { flags = flags
, key = key , key = key

13
modules/webapp/src/main/elm/Page/Search/Data.elm
View File

@ -109,8 +109,7 @@ initSelectViewModel flags =
type ViewMode type ViewMode
= SimpleView = SearchView
| SearchView
| SelectView SelectViewModel | SelectView SelectViewModel
| PublishView Comp.PublishItems.Model | PublishView Comp.PublishItems.Model
@ -149,9 +148,6 @@ init flags viewMode =
menuCollapsed : Model -> Bool menuCollapsed : Model -> Bool
menuCollapsed model = menuCollapsed model =
case model.viewMode of case model.viewMode of
SimpleView ->
True
SearchView -> SearchView ->
False False
@ -165,9 +161,6 @@ menuCollapsed model =
selectActive : Model -> Bool selectActive : Model -> Bool
selectActive model = selectActive model =
case model.viewMode of case model.viewMode of
SimpleView ->
False
SearchView -> SearchView ->
False False
@ -181,9 +174,6 @@ selectActive model =
editActive : Model -> Bool editActive : Model -> Bool
editActive model = editActive model =
case model.viewMode of case model.viewMode of
SimpleView ->
False
SearchView -> SearchView ->
False False
@ -203,7 +193,6 @@ type Msg
| ItemSearchResp Bool (Result Http.Error ItemLightList) | ItemSearchResp Bool (Result Http.Error ItemLightList)
| ItemSearchAddResp (Result Http.Error ItemLightList) | ItemSearchAddResp (Result Http.Error ItemLightList)
| DoSearch SearchType | DoSearch SearchType
| ToggleSearchMenu
| ToggleSelectView | ToggleSelectView
| LoadMore | LoadMore
| SetBasicSearch String | SetBasicSearch String

39
modules/webapp/src/main/elm/Page/Search/Update.elm
View File

@ -276,34 +276,10 @@ update bookmarkId mId key flags texts settings msg model =
else else
doSearch param model doSearch param model
ToggleSearchMenu ->
let
nextView =
case model.viewMode of
SimpleView ->
SearchView
SearchView ->
SimpleView
SelectView _ ->
SimpleView
PublishView q ->
PublishView q
in
withSub
( { model | viewMode = nextView }
, Cmd.none
)
ToggleSelectView -> ToggleSelectView ->
let let
( nextView, cmd ) = ( nextView, cmd ) =
case model.viewMode of case model.viewMode of
SimpleView ->
( SelectView <| initSelectViewModel flags, loadEditModel flags )
SearchView -> SearchView ->
( SelectView <| initSelectViewModel flags, loadEditModel flags ) ( SelectView <| initSelectViewModel flags, loadEditModel flags )
@ -644,11 +620,7 @@ update bookmarkId mId key flags texts settings msg model =
SelectView { svm | mergeModel = result.model } SelectView { svm | mergeModel = result.model }
Comp.ItemMerge.OutcomeMerged -> Comp.ItemMerge.OutcomeMerged ->
if settings.sideMenuVisible then SearchView
SearchView
else
SimpleView
model_ = model_ =
{ model | viewMode = nextView } { model | viewMode = nextView }
@ -836,17 +808,10 @@ update bookmarkId mId key flags texts settings msg model =
UiSettingsUpdated -> UiSettingsUpdated ->
let let
defaultViewMode = defaultViewMode =
if settings.sideMenuVisible then SearchView
SearchView
else
SimpleView
viewMode = viewMode =
case model.viewMode of case model.viewMode of
SimpleView ->
defaultViewMode
SearchView -> SearchView ->
defaultViewMode defaultViewMode

10
modules/webapp/src/main/elm/Page/Search/View2.elm
View File

@ -93,9 +93,6 @@ mainView texts flags settings model =
(publishResults texts settings flags model pm) (publishResults texts settings flags model pm)
] ]
SimpleView ->
Nothing
SearchView -> SearchView ->
Nothing Nothing
in in
@ -109,7 +106,7 @@ mainView texts flags settings model =
bookmarkQueryWidget : Texts -> UiSettings -> Flags -> Model -> List (Html Msg) bookmarkQueryWidget : Texts -> UiSettings -> Flags -> Model -> List (Html Msg)
bookmarkQueryWidget texts settings flags model = bookmarkQueryWidget texts _ _ model =
case model.topWidgetModel of case model.topWidgetModel of
BookmarkQuery m -> BookmarkQuery m ->
[ div [ class "px-2 mb-4 border-l border-r border-b dark:border-slate-600" ] [ div [ class "px-2 mb-4 border-l border-r border-b dark:border-slate-600" ]
@ -136,7 +133,7 @@ itemMergeView texts settings svm =
publishResults : Texts -> UiSettings -> Flags -> Model -> Comp.PublishItems.Model -> List (Html Msg) publishResults : Texts -> UiSettings -> Flags -> Model -> Comp.PublishItems.Model -> List (Html Msg)
publishResults texts settings flags model pm = publishResults texts settings flags _ pm =
[ Html.map PublishViewMsg [ Html.map PublishViewMsg
(Comp.PublishItems.view texts.publishItems settings flags pm) (Comp.PublishItems.view texts.publishItems settings flags pm)
] ]
@ -188,9 +185,6 @@ confirmModal texts model =
itemsBar : Texts -> Flags -> UiSettings -> Model -> List (Html Msg) itemsBar : Texts -> Flags -> UiSettings -> Model -> List (Html Msg)
itemsBar texts flags settings model = itemsBar texts flags settings model =
case model.viewMode of case model.viewMode of
SimpleView ->
[ defaultMenuBar texts flags settings model ]
SearchView -> SearchView ->
[ defaultMenuBar texts flags settings model ] [ defaultMenuBar texts flags settings model ]