module SlackBuilder.CommandLine
    ( SlackBuilderCommand(..)
    , PackagistArguments(..)
    , TextArguments(..)
    , slackBuilderParser
    ) where

import Data.Text (Text)
import Options.Applicative
    ( Parser
    , ParserInfo(..)
    , metavar
    , argument
    , str
    , info
    , fullDesc
    , subparser
    , command
    )

data SlackBuilderCommand
    = PackagistCommand PackagistArguments
    | TextCommand TextArguments

data PackagistArguments = PackagistArguments
    { vendor :: Text
    , name :: Text
    } deriving (Eq, Show)

newtype TextArguments = TextArguments Text

packagistArguments :: Parser PackagistArguments
packagistArguments = PackagistArguments
    <$> argument str (metavar "VENDOR")
    <*> argument str (metavar"NAME")

textArguments :: Parser TextArguments
textArguments = TextArguments <$> argument str (metavar "URL")

slackBuilderParser :: ParserInfo SlackBuilderCommand
slackBuilderParser = info slackBuilderCommand fullDesc

slackBuilderCommand :: Parser SlackBuilderCommand
slackBuilderCommand = subparser
    $ command "packagist" (info (PackagistCommand <$> packagistArguments) mempty)
    <> command "text" (info (TextCommand <$> textArguments) mempty)