module TeaCleaner.CommandLine
    ( ProgramOptions(..)
    , commandLineInfo
    , execParser
    ) where

import Data.Text (Text)
import Options.Applicative
    ( Parser
    , ParserInfo
    , (<**>)
    , argument
    , execParser
    , fullDesc
    , help
    , helper
    , info
    , long
    , metavar
    , progDesc
    , str
    , switch
    )

data ProgramOptions = ProgramOptions
    { server :: Text
    , token :: Text
    , liveRun :: Bool
    } deriving (Eq, Show)

commandLineInfo :: ParserInfo ProgramOptions
commandLineInfo = info (commandLine <**> helper)
    $ fullDesc <> progDesc "Helps to detect some spam gitea accounts"

commandLine :: Parser ProgramOptions
commandLine = ProgramOptions
    <$> serverOption
    <*> tokenOption
    <*> liveRunOption
  where
    serverOption = argument str
        $ metavar "SERVER" <> help "Gitea server URL"
    tokenOption = argument str
        $ metavar "TOKEN" <> help "Access token"
    liveRunOption = switch $ long "live-run" <> help "Purge suspicious users"