module Marihana
    ( mainMarihana
    ) where

import System.Environment (getArgs)
import System.Directory

mainMarihana = do
    args <- getArgs
    case args of
        ["init", x] -> initMarihana x
        ["new-post"] -> putStrLn "new-post"
        ["new-page"] -> putStrLn "new-page"
        ["build"] -> putStrLn "build"
        ["deploy"] -> putStrLn "deploy"
        ["help"] -> helpMarihana
        _ -> helpMarihana

initMarihana x = do
    createDirectory x

helpMarihana = do
    putStr . unlines $
        concat ["Usage: marihana [OPTION]"] :
        "Options:" :
        "  init <directory>\t\tSetup a new blog" :
        "  new-post <article-name>\tCreate a new article" :
        "  new-page <page-name>\t\tCreate a new page" :
        "  build\t\t\t\tBuild static files" :
        "  deploy\t\t\tDeploy blog" :
        []