From dac95e81e67cc6def91e37ba5bc85d50e6daee60 Mon Sep 17 00:00:00 2001
From: Eike Kettner <eike.kettner@posteo.de>
Date: Fri, 2 Apr 2021 23:16:38 +0200
Subject: [PATCH] Remove unused code for search dropdown
---
.../webapp/src/main/elm/Page/Home/Data.elm | 12 -------
.../webapp/src/main/elm/Page/Home/Update.elm | 32 -------------------
2 files changed, 44 deletions(-)
diff --git a/modules/webapp/src/main/elm/Page/Home/Data.elm b/modules/webapp/src/main/elm/Page/Home/Data.elm
index 450a6b19..2f2302d5 100644
--- a/modules/webapp/src/main/elm/Page/Home/Data.elm
+++ b/modules/webapp/src/main/elm/Page/Home/Data.elm
@@ -22,7 +22,6 @@ import Api.Model.ItemLightList exposing (ItemLightList)
import Api.Model.SearchStats exposing (SearchStats)
import Browser.Dom as Dom
import Comp.ConfirmModal
-import Comp.FixedDropdown
import Comp.ItemCardList
import Comp.ItemDetail.FormChange exposing (FormChange)
import Comp.ItemDetail.MultiEditMenu exposing (SaveNameState(..))
@@ -50,7 +49,6 @@ type alias Model =
, moreAvailable : Bool
, moreInProgress : Bool
, throttle : Throttle Msg
- , searchTypeDropdown : Comp.FixedDropdown.Model SearchType
, searchTypeDropdownValue : SearchType
, lastSearchType : SearchType
, dragDropData : DD.DragDropData
@@ -92,13 +90,6 @@ init flags viewMode =
let
searchMenuModel =
Comp.SearchMenu.init flags
-
- searchTypeOptions =
- if flags.config.fullTextSearchEnabled then
- [ BasicSearch, ContentOnlySearch ]
-
- else
- [ BasicSearch ]
in
{ searchMenuModel = searchMenuModel
, itemListModel = Comp.ItemCardList.init
@@ -107,8 +98,6 @@ init flags viewMode =
, moreAvailable = True
, moreInProgress = False
, throttle = Throttle.create 1
- , searchTypeDropdown =
- Comp.FixedDropdown.init searchTypeOptions
, searchTypeDropdownValue =
if Comp.SearchMenu.isFulltextSearch searchMenuModel then
ContentOnlySearch
@@ -177,7 +166,6 @@ type Msg
| LoadMore
| UpdateThrottle
| SetBasicSearch String
- | SearchTypeMsg (Comp.FixedDropdown.Msg SearchType)
| ToggleSearchType
| KeyUpSearchbarMsg (Maybe KeyCode)
| ScrollResult (Result Dom.Error ())
diff --git a/modules/webapp/src/main/elm/Page/Home/Update.elm b/modules/webapp/src/main/elm/Page/Home/Update.elm
index 04ad7529..740ffe06 100644
--- a/modules/webapp/src/main/elm/Page/Home/Update.elm
+++ b/modules/webapp/src/main/elm/Page/Home/Update.elm
@@ -277,38 +277,6 @@ update mId key flags settings msg model =
ContentOnlySearch ->
update mId key flags settings (SearchMenuMsg Comp.SearchMenu.SetNamesSearch) model
- SearchTypeMsg lm ->
- let
- ( sm, mv ) =
- Comp.FixedDropdown.update lm model.searchTypeDropdown
-
- mvChange =
- Util.Maybe.filter (\a -> a /= model.searchTypeDropdownValue) mv
-
- m0 =
- { model
- | searchTypeDropdown = sm
- , searchTypeDropdownValue = Maybe.withDefault model.searchTypeDropdownValue mv
- }
-
- next =
- case mvChange of
- Just BasicSearch ->
- Just Comp.SearchMenu.SetNamesSearch
-
- Just ContentOnlySearch ->
- Just Comp.SearchMenu.SetFulltextSearch
-
- _ ->
- Nothing
- in
- case next of
- Just lm_ ->
- update mId key flags settings (SearchMenuMsg lm_) m0
-
- Nothing ->
- withSub ( m0, Cmd.none )
-
KeyUpSearchbarMsg (Just Enter) ->
update mId key flags settings (DoSearch model.searchTypeDropdownValue) model