Rename HomePage to SearchPage

modules/webapp/src/main/elm/Page/ItemDetail/Update.elm

@@ -60,7 +60,7 @@ update key flags inav settings msg model =
                             Cmd.none
 
                         _ ->
-                            Page.set key HomePage
+                            Page.set key SearchPage
             in
             { model = { model | detail = result.model }
             , cmd = Cmd.batch [ pageSwitch, Cmd.map ItemDetailMsg result.cmd ]

modules/webapp/src/main/elm/Page/Login/Update.elm

@@ -53,7 +53,7 @@ update loginData flags msg model =
         AuthResp (Ok lr) ->
             let
                 gotoRef =
-                    Maybe.withDefault HomePage loginData.referrer |> Page.goto
+                    Maybe.withDefault SearchPage loginData.referrer |> Page.goto
             in
             if lr.success && not lr.requireSecondFactor then
                 ( { model | formState = AuthSuccess lr, password = "" }

modules/webapp/src/main/elm/Page/Search/Data.elm

@@ -5,7 +5,7 @@
 -}
 
 
-module Page.Home.Data exposing
+module Page.Search.Data exposing
     ( ConfirmModalValue(..)
     , Model
     , Msg(..)

modules/webapp/src/main/elm/Page/Search/SideMenu.elm

@@ -5,7 +5,7 @@
 -}
 
 
-module Page.Home.SideMenu exposing (view)
+module Page.Search.SideMenu exposing (view)
 
 import Comp.Basic as B
 import Comp.ItemDetail.MultiEditMenu
@@ -16,8 +16,8 @@ import Data.UiSettings exposing (UiSettings)
 import Html exposing (..)
 import Html.Attributes exposing (..)
 import Html.Events exposing (onClick)
-import Messages.Page.HomeSideMenu exposing (Texts)
-import Page.Home.Data exposing (..)
+import Messages.Page.SearchSideMenu exposing (Texts)
+import Page.Search.Data exposing (..)
 import Set
 import Styles as S
 

modules/webapp/src/main/elm/Page/Search/Update.elm

@@ -5,7 +5,7 @@
 -}
 
 
-module Page.Home.Update exposing
+module Page.Search.Update exposing
     ( UpdateResult
     , update
     )
@@ -28,9 +28,9 @@ import Data.ItemSelection
 import Data.Items
 import Data.SearchMode exposing (SearchMode)
 import Data.UiSettings exposing (UiSettings)
-import Messages.Page.Home exposing (Texts)
+import Messages.Page.Search exposing (Texts)
 import Page exposing (Page(..))
-import Page.Home.Data exposing (..)
+import Page.Search.Data exposing (..)
 import Process
 import Scroll
 import Set exposing (Set)

modules/webapp/src/main/elm/Page/Search/View2.elm

@@ -5,7 +5,7 @@
 -}
 
 
-module Page.Home.View2 exposing (viewContent, viewSidebar)
+module Page.Search.View2 exposing (viewContent, viewSidebar)
 
 import Api
 import Comp.Basic as B
@@ -27,10 +27,10 @@ import Data.UiSettings exposing (UiSettings)
 import Html exposing (..)
 import Html.Attributes exposing (..)
 import Html.Events exposing (onClick, onInput)
-import Messages.Page.Home exposing (Texts)
+import Messages.Page.Search exposing (Texts)
 import Page exposing (Page(..))
-import Page.Home.Data exposing (..)
-import Page.Home.SideMenu
+import Page.Search.Data exposing (..)
+import Page.Search.SideMenu
 import Set
 import Styles as S
 import Util.Html
@@ -44,7 +44,7 @@ viewSidebar texts visible flags settings model =
         , class S.sidebarBg
         , classList [ ( "hidden", not visible ) ]
         ]
-        [ Page.Home.SideMenu.view texts.sideMenu flags settings model
+        [ Page.Search.SideMenu.view texts.sideMenu flags settings model
         ]
 
 

modules/webapp/src/main/elm/Page/Share/Data.elm

@@ -19,7 +19,7 @@ import Comp.SharePasswordForm
 import Data.Flags exposing (Flags)
 import Data.ItemArrange exposing (ItemArrange)
 import Http
-import Page.Home.Data exposing (Msg(..))
+import Page.Search.Data exposing (Msg(..))
 import Set exposing (Set)
 import Util.Html exposing (KeyCode)
 

modules/webapp/src/main/elm/Page/Upload/View2.elm

@@ -195,7 +195,7 @@ renderSuccessMsg texts public model =
                     [ text texts.successBox.line1
                     , a
                         [ class S.successMessageLink
-                        , Page.href HomePage
+                        , Page.href SearchPage
                         ]
                         [ text texts.successBox.itemsPage
                         ]