From 913bfb611cd3927271dcd80b102093fa0b7b8f8a Mon Sep 17 00:00:00 2001
From: Eike Kettner <eike.kettner@posteo.de>
Date: Sun, 13 Sep 2020 17:23:13 +0200
Subject: [PATCH] Remove unused viewmode

---
 modules/webapp/src/main/elm/Page/Home/Data.elm   | 8 --------
 modules/webapp/src/main/elm/Page/Home/Update.elm | 5 +----
 modules/webapp/src/main/elm/Page/Home/View.elm   | 9 ++-------
 3 files changed, 3 insertions(+), 19 deletions(-)

diff --git a/modules/webapp/src/main/elm/Page/Home/Data.elm b/modules/webapp/src/main/elm/Page/Home/Data.elm
index b8661b96..7b2e8bf7 100644
--- a/modules/webapp/src/main/elm/Page/Home/Data.elm
+++ b/modules/webapp/src/main/elm/Page/Home/Data.elm
@@ -2,7 +2,6 @@ module Page.Home.Data exposing
     ( Model
     , Msg(..)
     , SearchType(..)
-    , ViewMode(..)
     , defaultSearchType
     , doSearchCmd
     , init
@@ -30,7 +29,6 @@ type alias Model =
     { searchMenuModel : Comp.SearchMenu.Model
     , itemListModel : Comp.ItemCardList.Model
     , searchInProgress : Bool
-    , viewMode : ViewMode
     , menuCollapsed : Bool
     , searchOffset : Int
     , moreAvailable : Bool
@@ -57,7 +55,6 @@ init flags =
     { searchMenuModel = Comp.SearchMenu.init
     , itemListModel = Comp.ItemCardList.init
     , searchInProgress = False
-    , viewMode = Listing
     , menuCollapsed = True
     , searchOffset = 0
     , moreAvailable = True
@@ -119,11 +116,6 @@ searchTypeString st =
             "Contents Only"
 
 
-type ViewMode
-    = Listing
-    | Detail
-
-
 itemNav : String -> Model -> { prev : Maybe String, next : Maybe String }
 itemNav id model =
     let
diff --git a/modules/webapp/src/main/elm/Page/Home/Update.elm b/modules/webapp/src/main/elm/Page/Home/Update.elm
index 69ce2d41..3cc5c2ed 100644
--- a/modules/webapp/src/main/elm/Page/Home/Update.elm
+++ b/modules/webapp/src/main/elm/Page/Home/Update.elm
@@ -105,7 +105,6 @@ update key flags settings msg model =
                     { model
                         | searchInProgress = False
                         , searchOffset = noff
-                        , viewMode = Listing
                         , moreAvailable = list.groups /= []
                     }
             in
@@ -121,7 +120,6 @@ update key flags settings msg model =
                         | searchInProgress = False
                         , moreInProgress = False
                         , searchOffset = noff
-                        , viewMode = Listing
                         , moreAvailable = list.groups /= []
                     }
             in
@@ -244,7 +242,6 @@ doSearch flags settings model =
     withSub
         ( { model_
             | searchInProgress = cmd /= Cmd.none
-            , viewMode = Listing
             , searchOffset = 0
             , throttle = newThrottle
           }
@@ -258,7 +255,7 @@ doSearchMore flags settings model =
         cmd =
             doSearchCmd flags settings model.searchOffset model
     in
-    ( { model | moreInProgress = True, viewMode = Listing }
+    ( { model | moreInProgress = True }
     , cmd
     )
 
diff --git a/modules/webapp/src/main/elm/Page/Home/View.elm b/modules/webapp/src/main/elm/Page/Home/View.elm
index e7083f57..6d8260be 100644
--- a/modules/webapp/src/main/elm/Page/Home/View.elm
+++ b/modules/webapp/src/main/elm/Page/Home/View.elm
@@ -81,13 +81,8 @@ view flags settings model =
                 ]
             ]
             [ viewSearchBar flags model
-            , case model.viewMode of
-                Listing ->
-                    Html.map ItemCardListMsg
-                        (Comp.ItemCardList.view settings model.itemListModel)
-
-                Detail ->
-                    div [] []
+            , Html.map ItemCardListMsg
+                (Comp.ItemCardList.view settings model.itemListModel)
             ]
         , div
             [ classList