From 8afe75a607f0c5a87799ca794441bc2384c69042 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Luan=20Guimar=C3=A3es?= <luang@protonmail.ch>
Date: Fri, 1 Jun 2018 03:34:52 -0300
Subject: [PATCH] Add support to 'new' command

---
 Dockerfile              |  2 +-
 config/config.exs       | 18 ++++++++++--------
 lib/command/executor.ex | 10 ++++------
 lib/command/new.ex      | 32 ++++++++++++++++++++++++++++++++
 lib/command/pandoc.ex   |  5 ++++-
 lib/pandocker.ex        |  1 +
 6 files changed, 52 insertions(+), 16 deletions(-)
 create mode 100644 lib/command/new.ex

diff --git a/Dockerfile b/Dockerfile
index c3dfa51..88e600e 100644
--- a/Dockerfile
+++ b/Dockerfile
@@ -37,7 +37,7 @@ RUN apt-get install -y gnupg2 && \
     && curl -L http://packages.erlang-solutions.com/debian/erlang_solutions.asc | apt-key add - \
     && apt-get update \
     && mkdir -p /usr/share/man/man1/ \
-    && apt-get install -y elixir erlang-inets erlang --no-install-recommends \
+    && apt-get install -y git elixir erlang-inets erlang --no-install-recommends \
     && apt-get clean -y
 
 ADD mix.exs /tmp/mix.exs
diff --git a/config/config.exs b/config/config.exs
index 99a2556..3777346 100644
--- a/config/config.exs
+++ b/config/config.exs
@@ -32,17 +32,19 @@ config :pandocker, envs: %{
 }
 
 config :pandocker, defaults: %{
-  command: "help",
-  config_yaml:  "pandocker.yml",
-  project_root: "/code",
-  source_path:  'src',
-  output_file:  'out.pdf',
-  files:        "/pandocker/examples/example.md"
+  command:        "help",
+  config_yaml:    "pandocker.yml",
+  project_root:   "/code",
+  source_path:    'src',
+  output_file:    'out.pdf',
+  files:          "/pandocker/examples/example.md",
+  templates_url:  "https://github.com/luanguimaraesla/pandocker-templates",
 }
 
 config :pandocker, tokens: %{
-  command: ~r/^\s*(?P<command>(compile|help|new))/,
-  config_yaml: ~r/-f (?P<config_yaml>\/?(\w+\/?)*\w+\.(yaml|yml))/,
+  command:        ~r/^\s*(?P<command>(compile|help|new))/,
+  template:       ~r/(-t|--template)\s*(?<template>[-\._\w]+)/,
+  config_yaml:    ~r/-f (?P<config_yaml>\/?(\w+\/?)*\w+\.(yaml|yml))/,
 }
 
 # It is also possible to import configuration files, relative to this
diff --git a/lib/command/executor.ex b/lib/command/executor.ex
index 05a691d..e19fda1 100644
--- a/lib/command/executor.ex
+++ b/lib/command/executor.ex
@@ -27,9 +27,9 @@ defmodule Command.Executor do
     :ok
 
   """
-  def dispatch(commands) do
+  def dispatch({execution_path, commands}) do
     commands
-    |> List.insert_at(0, goto_source_command())
+    |> List.insert_at(0, goto_execution_path(execution_path))
     |> make_os_command
     |> execute
     :ok
@@ -48,9 +48,7 @@ defmodule Command.Executor do
     String.to_charlist(os_command)
   end
 
-  defp goto_source_command do
-    root  = Configuration.Manager.get_env(:project_root)
-    source = Configuration.Manager.get_config(:pandoc, :source_path, &List.to_string/1)
-    "cd " <> Path.join(root, source)
+  defp goto_execution_path(execution_path) do
+    "cd " <> execution_path
   end
 end
diff --git a/lib/command/new.ex b/lib/command/new.ex
new file mode 100644
index 0000000..9736224
--- /dev/null
+++ b/lib/command/new.ex
@@ -0,0 +1,32 @@
+defmodule Command.New do
+  @moduledoc """
+  Command to create a new blank structure for a new project
+  according to a template stored at Github
+  """
+
+  alias Configuration.Manager
+  alias Command.Executor
+
+  @doc """
+  Function to be executed by Pandocker
+  """
+  def exec do
+    build_command()
+    |> Executor.dispatch
+  end
+
+  defp build_command do
+    execution_path = Manager.get_env(:project_root)
+    {execution_path, [git_clone_command(), copy_template_command()]}
+  end
+
+  defp git_clone_command do
+    template_url = Manager.get_env(:templates_url)
+    "git clone " <> template_url <> " /tmp/tmplt"
+  end
+
+  defp copy_template_command do
+    template_name = Manager.get_env(:template)
+    "cp -r " <> Path.join(["/tmp/tmplt/", template_name, "*"]) <> " ."
+  end
+end
diff --git a/lib/command/pandoc.ex b/lib/command/pandoc.ex
index 7a5cd1c..0381762 100644
--- a/lib/command/pandoc.ex
+++ b/lib/command/pandoc.ex
@@ -32,7 +32,10 @@ defmodule Command.Pandoc do
   end
 
   defp build_command(flags, files) do
-    [pandoc_command(flags, files), copyback_command()]
+    root  = Configuration.Manager.get_env(:project_root)
+    source = Configuration.Manager.get_config(:pandoc, :source_path, &List.to_string/1)
+    execution_path = Path.join(root, source)
+    {execution_path, [pandoc_command(flags, files), copyback_command()]}
   end
 
   defp copyback_command do
diff --git a/lib/pandocker.ex b/lib/pandocker.ex
index 4be4136..3c075dc 100644
--- a/lib/pandocker.ex
+++ b/lib/pandocker.ex
@@ -28,6 +28,7 @@ defmodule Pandocker do
     command = Configuration.Manager.get_env(:command) |> String.to_atom
 
     {module, arg} = case command do
+      :new -> {"Elixir.Command.New", nil}
       :compile -> {"Elixir.Command.Pandoc", Configuration.Manager.get_yaml_section(:sections)}
       :help -> {"Elixir.Command.Help", nil}
       _ -> raise "Missing function"