trurl-0.2.0.0: src/Main.hs

{-# LANGUAGE OverloadedStrings #-}

module Main where

import Trurl
import System.Environment

help :: IO ()
help = do
  putStrLn "trurl <command> [parameters]"
  putStrLn "  update -- fetch the updates from repository"
  putStrLn "  create <name> <project_template> [parameters_string] -- create project of specified type with specified name; optionally add JSON parameters"
  putStrLn "  new <name> <template> [parameters_string] -- create file from the template with specified parameters, wrap it with \"\""
  putStrLn "  list -- print all available templates"
  putStrLn "  help <template> -- print template info"
  putStrLn "  help -- print this help"

main :: IO ()
main = do
  args <- getArgs
  case args of
    []                                -> help
    ["help"]                          -> help
    ["help", template]                -> helpTemplate template
    ["update"]                        -> updateFromRepository
    ["create", name, project]         -> createProject name project "{}"
    ["create", name, project, params] -> createProject name project params
    ["new", name, template, params]   -> newTemplate name template params
    ["list"]                          -> listTemplates
    _                                 -> putStrLn "Unknown command"