{-
   Copyright 2020 Eike K. & Contributors

   SPDX-License-Identifier: AGPL-3.0-or-later
-}


module Page.Share.Data exposing (Mode(..), Model, Msg(..), PageError(..), SearchBarMode(..), init, initCmd)

import Api
import Api.Model.ItemLightList exposing (ItemLightList)
import Api.Model.SearchStats exposing (SearchStats)
import Api.Model.ShareSecret exposing (ShareSecret)
import Api.Model.ShareVerifyResult exposing (ShareVerifyResult)
import Comp.ItemCardList
import Comp.PowerSearchInput
import Comp.SearchMenu
import Comp.SharePasswordForm
import Data.Flags exposing (Flags)
import Data.ItemArrange exposing (ItemArrange)
import Http
import Page.Search.Data exposing (Msg(..))
import Set exposing (Set)
import Util.Html exposing (KeyCode)


type Mode
    = ModeInitial
    | ModePassword
    | ModeShare


type PageError
    = PageErrorNone
    | PageErrorHttp Http.Error
    | PageErrorAuthFail


type SearchBarMode
    = SearchBarNormal
    | SearchBarContent


type alias Model =
    { mode : Mode
    , verifyResult : ShareVerifyResult
    , passwordModel : Comp.SharePasswordForm.Model
    , pageError : PageError
    , searchMenuModel : Comp.SearchMenu.Model
    , powerSearchInput : Comp.PowerSearchInput.Model
    , searchInProgress : Bool
    , itemListModel : Comp.ItemCardList.Model
    , initialized : Bool
    , contentSearch : Maybe String
    , searchMode : SearchBarMode
    , viewMode :
        { menuOpen : Bool
        , showGroups : Bool
        , arrange : ItemArrange
        , rowsOpen : Set String
        }
    }


emptyModel : Flags -> Model
emptyModel flags =
    { mode = ModeInitial
    , verifyResult = Api.Model.ShareVerifyResult.empty
    , passwordModel = Comp.SharePasswordForm.init
    , pageError = PageErrorNone
    , searchMenuModel = Comp.SearchMenu.init flags
    , powerSearchInput = Comp.PowerSearchInput.init
    , searchInProgress = False
    , itemListModel = Comp.ItemCardList.init
    , initialized = False
    , contentSearch = Nothing
    , searchMode = SearchBarContent
    , viewMode =
        { menuOpen = False
        , showGroups = True
        , arrange = Data.ItemArrange.Cards
        , rowsOpen = Set.empty
        }
    }


init : Maybe String -> Flags -> ( Model, Cmd Msg )
init shareId flags =
    let
        em =
            emptyModel flags
    in
    case shareId of
        Just id ->
            ( { em | initialized = True }, Api.verifyShare flags (ShareSecret id Nothing) VerifyResp )

        Nothing ->
            ( em, Cmd.none )


initCmd : String -> Flags -> Cmd Msg
initCmd shareId flags =
    Api.verifyShare flags (ShareSecret shareId Nothing) VerifyResp


type Msg
    = VerifyResp (Result Http.Error ShareVerifyResult)
    | SearchResp (Result Http.Error ItemLightList)
    | StatsResp Bool (Result Http.Error SearchStats)
    | PasswordMsg Comp.SharePasswordForm.Msg
    | SearchMenuMsg Comp.SearchMenu.Msg
    | PowerSearchMsg Comp.PowerSearchInput.Msg
    | ResetSearch
    | ItemListMsg Comp.ItemCardList.Msg
    | ToggleSearchBar
    | SetContentSearch String
    | ContentSearchKey (Maybe KeyCode)
    | ToggleViewMenu
    | ToggleArrange ItemArrange
    | ToggleShowGroups