Mortivacional.hs

Mortivacional.hs

module Mortivacional where
import System.Console.ANSI

drawLine :: IO ()
drawLine = putStrLn $ replicate 23 '-'

turnRed :: IO ()
turnRed = setSGR [ SetConsoleIntensity BoldIntensity
                 , SetColor Foreground Vivid Red
                 ]

turnGreen :: IO ()
turnGreen = setSGR [ SetConsoleIntensity BoldIntensity
                   , SetColor Foreground Dull Green
                   ]

turnCyan :: IO ()
turnCyan = setSGR [ SetConsoleIntensity BoldIntensity
                  , SetColor Foreground Vivid Cyan
                  ]

main :: IO ()
main =
  turnGreen
  >> drawLine
  >> turnCyan
  >> putStrLn "Conte me suas angústias"
  >> turnGreen
  >> drawLine
  >> turnCyan
  >> getLine
  >>= \cry -> do
    turnRed
    putStrLn $ "> " ++ case cry of
      "amigos"    -> "Você não tem"
      "crush"     -> "Ela não tem quer"
      "dinheiro"  -> "Você não tem"
      "emprego"   -> "Só com Java"
      "esperanca" -> "Já morreu"
      "fe"        -> "Desista"
      otherwise   -> "Foda-se"
    main