feat(commands): update template list, implement bare template add

Author: devnote-dev

src/commands/template.cr

@@ -4,8 +4,9 @@ module Geode::Commands
       @name = "template"
 
       add_command List.new
-      # add_command Add.new
-      add_command Create.new
+      add_command Add.new
+      # add_command Info.new
+      # add_command Create.new
       # add_command Test.new
       # add_command Remove.new
     end
@@ -20,14 +21,74 @@ module Geode::Commands
       end
 
       def run(arguments : Cling::Arguments, options : Cling::Options) : Nil
-        Dir.each_child(Geode::Config::TEMPLATES) do |name|
-          next unless File.exists? Geode::Config::TEMPLATES / name / "config.ini"
-          next unless File.exists? Geode::Config::TEMPLATES / name / "build.lua"
-          stdout << "• " << name << '\n'
+        Geode::Template.list.each do |name, version|
+          stdout << "• " << name << " (" << version << ")\n"
         end
       end
     end
 
+    class Add < Base
+      def setup : Nil
+        @name = "add"
+
+        add_argument "source", required: true
+      end
+
+      def run(arguments : Cling::Arguments, options : Cling::Options) : Nil
+        source = arguments.get("source").as_s
+        source = Dir.current if source == "."
+        source = Path.new source
+
+        unless File.exists?(source / "control.yml")
+          error "No control.yml file in directory"
+          exit_program
+        end
+
+        unless File.exists?(source / "control.lua")
+          error "No control.lua file in directory"
+          exit_program
+        end
+
+        template = File.open(source / "control.yml") do |file|
+          Geode::Template.from_yaml file
+        end
+
+        unless template.name.matches? /[a-zA-Z][\w:-]+/
+          error "Template name does not match specification",
+            "must start with a letter",
+            "can only consist of letters, numbers, colons or dashes"
+          exit_program
+        end
+
+        # TODO: existing template with the same name & source updates
+        # if newer is higher version
+        if Geode::Template.exists? template.name
+          error "A template with the name '#{template.name}' already exists"
+          exit_program
+        end
+
+        unless template.files.empty?
+          missing = false
+
+          template.files.each do |path|
+            unless File.exists?(source / path)
+              error "Missing file: #{path}"
+              missing = true
+            end
+          end
+
+          exit_program if missing
+        end
+
+        script = File.read source / "control.lua"
+        runner = Lua::Runner.new script, File.open File::NULL
+        runner.load_checks_env
+        runner.run # TODO: check if scripts are used
+
+        template.install source
+      end
+    end
+
     class Create < Base
       private COMMAND = {% if flag?(:darwin) %}"Cmd"{% else %}"Ctrl"{% end %}
       private CHAR    = {% if flag?(:darwin) %}"Q"{% else %}"C"{% end %}