diffuse / src / Core / UI / Interface / State.elm

module UI.Interface.State exposing (..)

import Alfred
import Debouncer.Basic as Debouncer
import Maybe.Extra as Maybe
import Notifications
import Return exposing (return)
import Return.Ext as Return
import Theme
import Tracks
import UI.Alfred.State as Alfred
import UI.Common.State as Common
import UI.Common.Types exposing (DebounceManager)
import UI.DnD as DnD
import UI.Page as Page
import UI.Playlists.State as Playlists
import UI.Ports as Ports
import UI.Queue.State as Queue
import UI.Theme
import UI.Types exposing (..)
import UI.User.State.Export exposing (saveEnclosedUserData)



-- 🔱


assistWithChangingTheme : Manager
assistWithChangingTheme model =
    { action =
        \{ result } ->
            case result of
                Just { value } ->
                    value
                        |> Alfred.command
                        |> Maybe.map List.singleton
                        |> Maybe.withDefault []

                Nothing ->
                    []
    , index =
        [ { name = Just "Themes"
          , items =
                List.map
                    (\theme ->
                        { icon = Just (theme.icon 16)
                        , title = theme.title
                        , value = Alfred.Command (ChangeTheme { id = theme.id })
                        }
                    )
                    UI.Theme.list
          }
        ]
    , message = "Choose a theme."
    , operation = Alfred.Query
    }
        |> Alfred.create
        |> (\a -> Alfred.assign a model)


blur : Manager
blur model =
    Return.singleton { model | focusedOnInput = False, pressedKeys = [] }


changeTheme : Theme.Id -> Manager
changeTheme id model =
    saveEnclosedUserData { model | theme = Just id }


contextMenuConfirmation : String -> Msg -> Manager
contextMenuConfirmation conf msg model =
    return
        { model | confirmation = Just conf }
        (Return.task msg)


copyToClipboard : String -> Manager
copyToClipboard string =
    string
        |> Ports.copyToClipboard
        |> Return.communicate


resizeDebounce : DebounceManager
resizeDebounce =
    Common.debounce
        .resizeDebouncer
        (\d m -> { m | resizeDebouncer = d })
        ResizeDebounce


dnd : DnD.Msg Int -> Manager
dnd dragMsg model =
    let
        ( d, { initiated } ) =
            DnD.update dragMsg model.dnd

        m =
            if initiated then
                { model | dnd = d, isDragging = True }

            else
                { model | dnd = d }
    in
    if DnD.hasDropped d then
        case m.page of
            Page.Queue _ ->
                let
                    ( from, to ) =
                        ( Maybe.withDefault 0 <| DnD.modelSubject d
                        , Maybe.withDefault 0 <| DnD.modelTarget d
                        )

                    newFuture =
                        Queue.moveItem
                            { from = from, to = to, shuffle = m.shuffle }
                            m.playingNext
                in
                Queue.fill { m | playingNext = newFuture }

            Page.Index ->
                let
                    trackCanBeMoved =
                        not m.favouritesOnly && Maybe.isNothing m.searchTerm
                in
                case m.scene of
                    Tracks.Covers ->
                        -- TODO
                        Return.singleton m

                    Tracks.List ->
                        if trackCanBeMoved then
                            Playlists.moveTrackInSelected
                                { to = Maybe.withDefault 0 (DnD.modelTarget d) }
                                m

                        else
                            "Can't move tracks in a playlist whilst using favourites-only mode, or while searching."
                                |> Notifications.casual
                                |> Common.showNotificationWithModel m

            _ ->
                Return.singleton m

    else
        Return.singleton m


focusedOnInput : Manager
focusedOnInput model =
    Return.singleton { model | focusedOnInput = True }


hideOverlay : Manager
hideOverlay model =
    if Maybe.isJust model.contextMenu then
        Return.singleton { model | contextMenu = Nothing }

    else if Maybe.isJust model.confirmation then
        Return.singleton { model | confirmation = Nothing }

    else if Maybe.isJust model.alfred then
        Return.singleton { model | alfred = Nothing }

    else
        Return.singleton model


lostWindowFocus : Manager
lostWindowFocus model =
    Return.singleton { model | focusedOnInput = False, pressedKeys = [] }


preferredColorSchemaChanged : { dark : Bool } -> Manager
preferredColorSchemaChanged { dark } model =
    Return.singleton { model | darkMode = dark }


msgViaContextMenu : Msg -> Manager
msgViaContextMenu msg model =
    return
        (case msg of
            ContextMenuConfirmation _ _ ->
                model

            _ ->
                { model | confirmation = Nothing, contextMenu = Nothing }
        )
        (Return.task msg)


removeNotification : { id : Int } -> Manager
removeNotification { id } model =
    model.notifications
        |> List.filter (Notifications.id >> (/=) id)
        |> (\n -> { model | notifications = n })
        |> Return.singleton


removeQueueSelection : Manager
removeQueueSelection model =
    Return.singleton { model | selectedQueueItem = Nothing }


removeTrackSelection : Manager
removeTrackSelection model =
    Return.singleton { model | selectedTrackIndexes = [] }


resizedWindow : ( Int, Int ) -> Manager
resizedWindow ( width, height ) model =
    Return.singleton
        { model
            | contextMenu = Nothing
            , viewport = { height = toFloat height, width = toFloat width }
        }


searchDebounce : DebounceManager
searchDebounce =
    Common.debounce
        .searchDebouncer
        (\d m -> { m | searchDebouncer = d })
        SearchDebounce


setIsTouchDevice : Bool -> Manager
setIsTouchDevice bool model =
    Return.singleton { model | isTouchDevice = bool }


stoppedDragging : Manager
stoppedDragging model =
    let
        notDragging =
            { model | isDragging = False }
    in
    -- Depending on where we stopped dragging something,
    -- do the appropriate thing.
    case model.page of
        Page.Queue _ ->
            dnd DnD.stoppedDragging notDragging

        Page.Index ->
            dnd DnD.stoppedDragging notDragging

        _ ->
            Return.singleton notDragging



-- MESSAGES


onResize : Int -> Int -> Msg
onResize w h =
    ( w, h )
        |> ResizedWindow
        |> Debouncer.provideInput
        |> ResizeDebounce