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" : []