, transformers

        , xdg-basedir

import           AlBhed              (Volume)

import           Control.Exception
import           Control.Monad.IO.Class
import           Control.Monad.Trans.Reader
import           System.Environment.XDG.BaseDir
import           System.IO
import           AlBhed                         (Primer)
import           Options                        (Build, Command, Config, Run)

import qualified Options.Primer                 as Primer
type App a = ReaderT (Config Run) IO a
applicationName :: String
applicationName = "ffxwt"

    (config, command) <- execParser opts
    print command

    (configBuild, command) <- execParser opts
    datadir <- getUserDataDir applicationName
    let config = Options.configBuild datadir configBuild
    runReaderT (dispatch command) config

dispatch :: Command -> ReaderT (Config Run) IO ()
dispatch (Options.Primer x) = primerDispatch x
primerDispatch :: Primer.PrimerCommand -> ReaderT (Config Run) IO ()
primerDispatch (Primer.Add vol loc)         = undefined
primerDispatch (Primer.New vol from to loc) = undefined
primerDispatch Primer.List                  = do
    config <- ask
    primers <- listPrimers
    liftIO $ print primers
listPrimers :: ReaderT (Config Run) IO [Primer]
listPrimers = do
    config <- ask
    -- Get the file contents
    let filename = Options.fromRun $ Options.dataFile config
    liftIO $ withFile filename ReadMode
        (\filehandle -> do
            contents <- hGetContents filehandle
            putStrLn contents
        )
    -- Decode from JSON to list of Al Bhed Primers
    -- Return the primers
    return []