{-# LANGUAGE OverloadedStrings #-}
module Main (main) where

import Common
import Prelude ()

import Data.Maybe (fromMaybe)

import qualified GitHub
import qualified GitHub.Endpoints.Users as GitHub

main :: IO ()
main = do
  auth <- getAuth
  possibleUser <- GitHub.userInfoFor' auth "mike-burns"
  putStrLn $ either (("Error: " <>) . tshow) formatUser possibleUser

formatUser :: GitHub.User -> Text
formatUser user =
  (formatName userName login) <> "\t" <> (fromMaybe "" company) <> "\t" <>
    (fromMaybe "" location) <> "\n" <>
    (fromMaybe "" blog) <> "\t" <> "<" <> (fromMaybe "" email) <> ">" <> "\n" <>
    GitHub.getUrl htmlUrl <> "\t" <> tshow createdAt <> "\n" <>
    "hireable: " <> formatHireable (fromMaybe False isHireable) <> "\n\n" <>
    (fromMaybe "" bio)
  where
    userName = GitHub.userName user
    login = GitHub.userLogin user
    company = GitHub.userCompany user
    location = GitHub.userLocation user
    blog = GitHub.userBlog user
    email = GitHub.userEmail user
    htmlUrl = GitHub.userHtmlUrl user
    createdAt = GitHub.userCreatedAt user
    isHireable = GitHub.userHireable user
    bio = GitHub.userBio user

formatName :: Maybe Text -> GitHub.Name GitHub.User -> Text
formatName Nothing login = GitHub.untagName login
formatName (Just name) login = name <> "(" <> GitHub.untagName login <> ")"

formatHireable :: Bool -> Text
formatHireable True = "yes"
formatHireable False = "no"