module Web.Tweet.Exec ( exec
, Program (..)
, Command (..)) where
import Web.Tweet
import Options.Applicative
import qualified Data.ByteString.Char8 as BS
import Control.Monad
import Data.Foldable (fold)
import Data.List
import Data.Monoid
import System.Directory
data Program = Program { subcommand :: Command , cred :: Maybe FilePath }
data Command = Timeline { count :: Maybe Int , color :: Bool }
| SendInput { tweetInputs :: Maybe Int, replyId :: Maybe String, replyHandles :: Maybe [String] }
| Profile { count :: Maybe Int , color :: Bool , screenName :: String }
| Raw { screenName :: String }
| Send { tweets :: Maybe Int , replyId :: Maybe String , replyHandles :: Maybe [String] , userInput :: String }
| Sort { color :: Bool , screenName :: String }
fromStdIn :: Int -> FilePath -> IO ()
fromStdIn = threadStdIn [] Nothing
fromCLI :: String -> Int -> FilePath -> IO ()
fromCLI str = thread str [] Nothing
threadStdIn :: [String] -> Maybe Int -> Int -> FilePath -> IO ()
threadStdIn hs idNum num filepath = do
contents <- getContents
thread contents hs idNum num filepath
exec :: IO ()
exec = execParser opts >>= select
where
opts = info (helper <*> program)
(fullDesc
<> progDesc "Tweet and view tweets"
<> header "clit - a Command Line Interface Tweeter")
select :: Program -> IO ()
select (Program (Send (Just n) Nothing Nothing input) Nothing) = fromCLI input n =<< (++ "/.cred") <$> getHomeDirectory
select (Program (Send Nothing Nothing Nothing input) Nothing) = fromCLI input 15 =<< (++ "/.cred") <$> getHomeDirectory
select (Program (Send (Just n) Nothing Nothing input) (Just file)) = fromCLI input n file
select (Program (Send Nothing Nothing Nothing input) (Just file)) = fromCLI input 15 file
select (Program (Send (Just n) (Just id) (Just handles) input) Nothing) = thread input handles (read id) n =<< (++ "/.cred") <$> getHomeDirectory
select (Program (Send (Just n) (Just id) (Just handles) input) (Just file)) = thread input handles (pure . read $ id) n file
select (Program (Send Nothing (Just id) (Just handles) input) (Just file)) = thread input handles (pure . read $ id) 15 file
select (Program (Send (Just n) (Just id) Nothing input) Nothing) = (thread input [] (pure . read $ id) n) =<< (++ "/.cred") <$> getHomeDirectory
select (Program (Send Nothing (Just id) Nothing input) Nothing) = thread input [] (pure . read $ id) 15 =<< (++ "/.cred") <$> getHomeDirectory
select (Program (Send Nothing (Just id) (Just handles) input) Nothing) = thread input handles (pure . read $ id) 15 =<< (++ "/.cred") <$> getHomeDirectory
select (Program (Send (Just n) (Just id) Nothing input) (Just file)) = thread input [] (pure . read $ id) n file
select (Program (Send (Just n) Nothing (Just handles) input) (Just file)) = thread input handles Nothing n file
select (Program (SendInput (Just n) Nothing Nothing) Nothing) = fromStdIn n =<< (++ "/.cred") <$> getHomeDirectory
select (Program (SendInput Nothing Nothing Nothing) Nothing) = fromStdIn 15 =<< (++ "/.cred") <$> getHomeDirectory
select (Program (SendInput (Just n) Nothing Nothing) (Just file)) = fromStdIn n file
select (Program (SendInput Nothing Nothing Nothing) (Just file) ) = fromStdIn 15 file
select (Program (SendInput (Just n) (Just id) (Just handles)) Nothing) = threadStdIn handles (read id) n =<< (++ "/.cred") <$> getHomeDirectory
select (Program (SendInput (Just n) (Just id) (Just handles)) (Just file)) = threadStdIn handles (pure . read $ id) n file
select (Program (SendInput Nothing (Just id) (Just handles)) (Just file)) = threadStdIn handles (pure . read $ id) 15 file
select (Program (SendInput (Just n) (Just id) Nothing) Nothing) = threadStdIn [] (pure . read $ id) n =<< (++ "/.cred") <$> getHomeDirectory
select (Program (SendInput Nothing (Just id) Nothing) Nothing) = threadStdIn [] (pure . read $ id) 15 =<< (++ "/.cred") <$> getHomeDirectory
select (Program (SendInput Nothing (Just id) (Just handles)) Nothing) = threadStdIn handles (pure . read $ id) 15 =<< (++ "/.cred") <$> getHomeDirectory
select (Program (SendInput (Just n) (Just id) Nothing) (Just file)) = threadStdIn [] (pure . read $ id) n file
select (Program (SendInput (Just n) Nothing (Just handles)) (Just file)) = threadStdIn handles Nothing n file
select (Program (Timeline Nothing False) Nothing) = putStrLn =<< showTimeline 8 False =<< (++ "/.cred") <$> getHomeDirectory
select (Program (Timeline Nothing False) (Just file)) = putStrLn =<< showTimeline 8 False file
select (Program (Timeline (Just n) False) (Just file)) = putStrLn =<< showTimeline 8 False file
select (Program (Timeline (Just n) False) Nothing) = putStrLn =<< showTimeline 8 False =<< (++ "/.cred") <$> getHomeDirectory
select (Program (Timeline Nothing True) Nothing) = putStrLn =<< showTimeline 8 True =<< (++ "/.cred") <$> getHomeDirectory
select (Program (Timeline Nothing True) (Just file)) = putStrLn =<< showTimeline 8 True file
select (Program (Timeline (Just n) True) (Just file)) = putStrLn =<< showTimeline 8 True file
select (Program (Timeline (Just n) True) Nothing) = putStrLn =<< showTimeline 8 True =<< (++ "/.cred") <$> getHomeDirectory
select (Program (Profile (Just n) True name) (Just file)) = putStrLn =<< showProfile name n True file
select (Program (Profile Nothing True name) (Just file)) = putStrLn =<< showProfile name 12 True file
select (Program (Profile (Just n) True name) Nothing) = putStrLn =<< showProfile name n True =<< (++ "/.cred") <$> getHomeDirectory
select (Program (Profile Nothing True name) Nothing) = putStrLn =<< showProfile name 12 True =<< (++ "/.cred") <$> getHomeDirectory
select (Program (Profile (Just n) False name) (Just file)) = putStrLn =<< showProfile name n False file
select (Program (Profile Nothing False name) (Just file)) = putStrLn =<< showProfile name 12 False file
select (Program (Profile (Just n) False name) Nothing) = putStrLn =<< showProfile name n False =<< (++ "/.cred") <$> getHomeDirectory
select (Program (Profile Nothing False name) Nothing) = putStrLn =<< showProfile name 12 False =<< (++ "/.cred") <$> getHomeDirectory
select (Program (Sort True name) (Just file)) = putStrLn =<< showBest name True file
select (Program (Sort True name) Nothing) = putStrLn =<< showBest name True =<< (++ "/.cred") <$> getHomeDirectory
select (Program (Sort False name) (Just file)) = putStrLn =<< showBest name False file
select (Program (Sort False name) Nothing) = putStrLn =<< showBest name False =<< (++ "/.cred") <$> getHomeDirectory
select (Program (Raw name) Nothing) = do
raw <- getRaw name Nothing =<< (++ "/.cred") <$> getHomeDirectory
writeFile (name ++ ".txt") (unlines raw)
putStrLn $ "Written output to: " ++ name ++ ".txt"
select (Program (Raw name) (Just file)) = do
raw <- getRaw name Nothing file
writeFile (name ++ ".txt") (unlines raw)
putStrLn $ "Written output to: " ++ name ++ ".txt"
program :: Parser Program
program = Program
<$> (hsubparser
(command "send" (info tweet (progDesc "Send a tweet from the command-line"))
<> command "input" (info tweetInput (progDesc "Send a tweet from stdIn"))
<> command "view" (info timeline (progDesc "Get your timeline"))
<> command "user" (info profile (progDesc "Get a user's profile"))
<> command "raw" (info raw (progDesc "Grab tweets en masse."))
<> command "hits" (info best (progDesc "View a user's top tweets."))))
<*> (optional $ strOption
(long "cred"
<> short 'c'
<> metavar "CREDENTIALS"
<> help "path to credentials"))
timeline :: Parser Command
timeline = Timeline
<$> (optional $ read <$> strOption
(long "count"
<> short 'n'
<> metavar "NUM"
<> help "number of tweetInputs to fetch, default 5"))
<*> switch
(long "color"
<> short 'l'
<> help "Display timeline with colorized terminal output.")
raw :: Parser Command
raw = Raw
<$> argument str
(metavar "SCREEN_NAME"
<> help "Screen name of user whose tweetInputs you want in bulk.")
profile :: Parser Command
profile = Profile
<$> (optional $ read <$> strOption
(long "count"
<> short 'n'
<> metavar "NUM"
<> help "Number of tweetInputs to fetch, default 12"))
<*> switch
(long "color"
<> short 'l'
<> help "Whether to display profile with colorized terminal output")
<*> argument str
(metavar "SCREEN_NAME"
<> help "Screen name of user you want to view.")
best :: Parser Command
best = Sort
<$> switch
(long "color"
<> short 'l'
<> help "Display timeline with colorized terminal output.")
<*> argument str
(metavar "SCREEN_NAME"
<> help "Screen name of user you want to view.")
tweet :: Parser Command
tweet = Send
<$> (optional $ read <$> strOption
(long "tweets"
<> short 't'
<> metavar "NUM"
<> help "Number of tweetInputs in a row, default 15"))
<*> (optional $ strOption
(long "reply"
<> short 'r'
<> help "id of status to reply to - be sure to include their handle, e.g. @my_build_errors"))
<*> (optional (some $ strOption $
(long "handle"
<> short 'h'
<> metavar "HANDLE1"
<> help "Handles to include in replies")))
<*> (unwords <$> (some $ argument str
(metavar "TEXT"
<> help "text of tweet to be sent")))
tweetInput :: Parser Command
tweetInput = SendInput
<$> (optional $ read <$> strOption
(long "tweets"
<> short 't'
<> metavar "NUM"
<> help "Number of tweets in a row, default 15"))
<*> (optional $ strOption
(long "reply"
<> short 'r'
<> help "id of status to reply to - be sure to include their handle, e.g. @my_build_errors"))
<*> (optional $ (some $ argument str
(metavar "HANDLE1"
<> help "handles to include in replies")))