module UI.Adjunct exposing (..)

import Keyboard
import Maybe.Extra as Maybe
import Return
import UI.Alfred.State as Alfred
import UI.Audio.State as Audio
import UI.Commands.State as Commands
import UI.Common.State as Common
import UI.Interface.State exposing (hideOverlay)
import UI.Page as Page
import UI.Playlists.Page as Playlists
import UI.Playlists.State as Playlists
import UI.Queue.Page as Queue
import UI.Queue.State as Queue
import UI.Settings.Page as Settings
import UI.Sources.Page as Sources
import UI.Tracks.State as Tracks
import UI.Types exposing (..)



-- 📣


keyboardInput : Keyboard.Msg -> Manager
keyboardInput msg model =
    (\m ->
        let
            skip =
                Return.singleton m
        in
        if m.focusedOnInput && Maybe.isNothing model.alfred then
            case m.pressedKeys of
                [ Keyboard.Escape ] ->
                    hideOverlay m

                _ ->
                    skip

        else if Maybe.isJust model.alfred then
            case m.pressedKeys of
                [ Keyboard.ArrowDown ] ->
                    Alfred.selectNext m

                [ Keyboard.ArrowUp ] ->
                    Alfred.selectPrevious m

                [ Keyboard.Enter ] ->
                    Alfred.runSelectedAction m

                [ Keyboard.Escape ] ->
                    hideOverlay m

                -- Meta key
                --
                [ Keyboard.Character "K", Keyboard.Meta ] ->
                    Commands.showPalette m

                -- Ctrl key
                --
                [ Keyboard.Character "K", Keyboard.Control ] ->
                    Commands.showPalette m

                [ Keyboard.Character "L", Keyboard.Control ] ->
                    Playlists.assistWithSelectingPlaylist m

                _ ->
                    skip

        else
            case m.pressedKeys of
                [ Keyboard.Character "[", Keyboard.Control ] ->
                    Queue.rewind m

                [ Keyboard.Character "]", Keyboard.Control ] ->
                    Queue.shift m

                [ Keyboard.Character "{", Keyboard.Shift, Keyboard.Control ] ->
                    case m.nowPlaying of
                        Just { duration, item, playbackPosition } ->
                            case duration of
                                Just d ->
                                    Audio.seek
                                        { trackId = (Tuple.second item.identifiedTrack).id
                                        , progress = (playbackPosition - 10) / d
                                        }
                                        m

                                Nothing ->
                                    Return.singleton m

                        Nothing ->
                            Return.singleton m

                [ Keyboard.Character "}", Keyboard.Shift, Keyboard.Control ] ->
                    case m.nowPlaying of
                        Just { duration, item, playbackPosition } ->
                            case duration of
                                Just d ->
                                    Audio.seek
                                        { trackId = (Tuple.second item.identifiedTrack).id
                                        , progress = (playbackPosition + 10) / d
                                        }
                                        m

                                Nothing ->
                                    Return.singleton m

                        Nothing ->
                            Return.singleton m

                -- Meta key
                --
                [ Keyboard.Character "K", Keyboard.Meta ] ->
                    Commands.showPalette m

                -- Ctrl key
                --
                [ Keyboard.Character "K", Keyboard.Control ] ->
                    Commands.showPalette m

                [ Keyboard.Character "L", Keyboard.Control ] ->
                    Playlists.assistWithSelectingPlaylist m

                [ Keyboard.Character "N", Keyboard.Control ] ->
                    Tracks.scrollToNowPlaying m

                [ Keyboard.Character "P", Keyboard.Control ] ->
                    Audio.playPause m

                [ Keyboard.Character "R", Keyboard.Control ] ->
                    Queue.toggleRepeat m

                [ Keyboard.Character "S", Keyboard.Control ] ->
                    Queue.toggleShuffle m

                --
                [ Keyboard.Character "1", Keyboard.Control ] ->
                    Common.changeUrlUsingPage Page.Index m

                [ Keyboard.Character "2", Keyboard.Control ] ->
                    Common.changeUrlUsingPage (Page.Playlists Playlists.Index) m

                [ Keyboard.Character "3", Keyboard.Control ] ->
                    Common.changeUrlUsingPage (Page.Queue Queue.Index) m

                [ Keyboard.Character "8", Keyboard.Control ] ->
                    Common.changeUrlUsingPage (Page.Sources Sources.Index) m

                [ Keyboard.Character "9", Keyboard.Control ] ->
                    Common.changeUrlUsingPage (Page.Settings Settings.Index) m

                --
                [ Keyboard.Escape ] ->
                    if Maybe.isJust m.contextMenu then
                        Return.singleton { m | contextMenu = Nothing }

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

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

                    else if Maybe.isJust m.selectedCover then
                        Return.singleton { m | selectedCover = Nothing }

                    else
                        case m.page of
                            Page.Playlists Playlists.Index ->
                                Return.singleton { m | page = Page.Index }

                            Page.Playlists _ ->
                                Return.singleton { m | page = Page.Playlists Playlists.Index }

                            Page.Queue _ ->
                                Return.singleton { m | page = Page.Index }

                            _ ->
                                skip

                _ ->
                    skip
    )
        { model | pressedKeys = Keyboard.update msg model.pressedKeys }