mirror of
https://github.com/TheAnachronism/docspell.git
synced 2025-06-22 02:18:26 +00:00
00b65f664d
The order of tags is based on their overall counts and doesn't change when tag association changes (due drag and drop) or the search.
121 lines
3.1 KiB
Elm
121 lines
3.1 KiB
Elm
{-
|
|
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
|