lizarb 1.0.3 → 1.0.5

data/lib/dev_system/sub/command/input_commands/input_command_test.rb

@@ -0,0 +1,19 @@
+class DevSystem::InputCommandTest < DevSystem::CommandTest
+
+  test :subject_class do
+    assert subject_class == DevSystem::InputCommand
+  end
+
+  test :settings do
+    assert_equality subject_class.log_level, 0
+
+    assert_equality subject_class.token, :input
+    assert_equality subject_class.singular, :input_command
+    assert_equality subject_class.plural, :input_commands
+
+    assert_equality subject_class.system, DevSystem
+    assert_equality subject_class.subsystem, DevSystem::Command
+    assert_equality subject_class.division, DevSystem::InputCommand
+  end
+
+end

data/lib/dev_system/sub/command/input_commands/tty_input_command.rb

@@ -0,0 +1,55 @@
+class DevSystem::TtyInputCommand < DevSystem::InputCommand
+
+  def self.prompt
+    require "tty-prompt"
+    @prompt ||= TTY::Prompt.new symbols: {marker: ">", radio_on: "x", radio_off: " "}
+  end
+
+  def self.pick_one title, options = ["Yes", "No"]
+    prompt.select title, options, filter: true, show_help: :always, per_page: 20
+  rescue TTY::Reader::InputInterrupt
+    puts
+    puts
+    log "Control-C"
+    exit
+  end
+
+  #
+
+  def self.pick_color title = "Pick a color", string: nil
+    options = ColorShell.colors.map { [(stick _2, "#{string} # #{_1}", :b), _1] }.to_h
+
+    prompt.select \
+      title,
+      options,
+      filter: true, show_help: :always, per_page: 28
+  rescue TTY::Reader::InputInterrupt
+    puts
+    puts
+    log "Control-C"
+    exit
+  end
+
+  #
+
+  def self.multi_select title, choices
+    raise "choices must be a hash" unless choices.is_a? Hash
+    return choices if choices.empty?
+    
+    options = {
+      enum: ")",
+      per_page: 20,
+      help: "(space to select, enter to finish)",
+      show_help: :always,
+      default: 1..choices.count
+    }
+    prompt.multi_select title, choices, options
+  rescue TTY::Reader::InputInterrupt
+    puts
+    puts
+    log "Control-C"
+    exit
+  end
+    
+
+end

data/lib/dev_system/sub/command/input_commands/tty_input_command_test.rb

@@ -0,0 +1,19 @@
+class DevSystem::TtyInputCommandTest < DevSystem::InputCommandTest
+
+  test :subject_class do
+    assert subject_class == DevSystem::TtyInputCommand
+  end
+
+  test :settings do
+    assert_equality subject_class.log_level, 0
+
+    assert_equality subject_class.token, :tty
+    assert_equality subject_class.singular, :tty_input_command
+    assert_equality subject_class.plural, :tty_input_commands
+
+    assert_equality subject_class.system, DevSystem
+    assert_equality subject_class.subsystem, DevSystem::Command
+    assert_equality subject_class.division, DevSystem::InputCommand
+  end
+
+end

data/lib/dev_system/sub/generator/commands/generate_command.rb

@@ -0,0 +1,9 @@
+class DevSystem::GenerateCommand < DevSystem::SimpleCommand
+
+  def call_default
+    log :lower, "env.count is #{env.count}"
+
+    DevBox[:generator].call env
+  end
+
+end

data/lib/dev_system/sub/generator/commands/generate_command_test.rb

@@ -0,0 +1,11 @@
+class DevSystem::GenerateCommandTest < DevSystem::SimpleCommandTest
+
+  test :subject_class do
+    assert subject_class == DevSystem::GenerateCommand
+  end
+
+  test :settings do
+    assert_equality subject_class.log_level, 0
+  end
+
+end

data/lib/dev_system/sub/generator/commands/new_command.rb

@@ -0,0 +1,10 @@
+class DevSystem::NewCommand < DevSystem::SimpleCommand
+
+  def call_default
+    log :lower, "env.count is #{env.count}"
+    args = env[:args] = ["new", *env[:args]]
+    log "args = #{args.inspect}"
+    DevBox[:generator].call env
+  end
+
+end

data/lib/dev_system/sub/generator/commands/new_command_test.rb

@@ -0,0 +1,7 @@
+class DevSystem::NewCommandTest < DevSystem::SimpleCommandTest
+
+  test :subject_class do
+    assert subject_class == DevSystem::NewCommand
+  end
+
+end

data/lib/dev_system/sub/generator/generator.rb

@@ -0,0 +1,19 @@
+class DevSystem::Generator < Liza::Controller
+
+  def self.get_generator_signatures
+    signatures = []
+    ancestors_until(Generator).each do |c|
+      signatures +=
+        c.methods_defined.select do |name|
+          c.method(name).parameters == [[:req, :args]]
+        end.map do |name|
+          OpenStruct.new({
+            name: ( name == :call ? "" : name.to_s ),
+            description: "# no description",
+          })
+        end
+    end
+    signatures
+  end
+
+end

data/lib/dev_system/sub/generator/generator_panel.rb

@@ -0,0 +1,98 @@
+class DevSystem::GeneratorPanel < Liza::Panel
+  class Error < StandardError; end
+  class NotFoundError < Error; end
+
+  #
+
+  def call env
+    log :low, "env.count is #{env.count}"
+    parse env
+    find env
+    forward env
+    inform env
+    save env
+  rescue Exception => e
+    rescue_from_panel(e, with: env)
+  end
+
+  #
+
+  def parse env
+    if log_level? :low
+      puts
+      log "env.count is #{env.count}"
+    end
+    raise NotFoundError, "generator not found" if env[:args].none?
+
+    generator_name, generator_coil = env[:args].first.split(":").map(&:to_sym)
+
+    env[:generator_name_original] = generator_name
+    env[:generator_name] = short(generator_name).to_sym
+    env[:generator_coil_original] = generator_coil
+    env[:generator_coil] = generator_coil
+    log :higher, "generator:coil is #{env[:generator_name]}:#{env[:generator_coil]}"
+  end
+
+  #
+
+  def find env
+    if log_level? :low
+      puts
+      log "env.count is #{env.count}"
+    end
+    begin
+      k = Liza.const "#{env[:generator_name]}_generator"
+      log :lower, k
+      env[:generator_class] = k
+    rescue Liza::ConstNotFound
+      raise NotFoundError, "generator #{env[:generator_name].inspect} not found"
+    end
+  end
+
+  #
+
+  def forward env
+    generator_class = env[:generator_class]
+
+    return forward_base_generator env if generator_class < BaseGenerator
+    return forward_generator env if generator_class < Generator
+  end
+
+  def forward_base_generator env
+    log :lower,  "forwarding"
+    env[:args].shift
+    env[:generator_class].call env
+  end
+
+  def forward_generator env
+    method_name = env[:generator_coil]
+    method_name = :call if method_name == :default
+
+    args = env[:args][1..-1]
+    log :lower,  "#{env[:generator_class]}.#{method_name}(#{args})"
+    env[:generator_class].public_send method_name, args
+  end
+
+  #
+
+  def inform env
+    if log_level? :low
+      puts
+      log "env.count is #{env.count}"
+    end
+    env[:generator] or return log :lower, "not implemented"
+    env[:generator].inform
+  end
+
+  #
+
+  def save env
+    if log_level? :low
+      puts
+      log "env.count is #{env.count}"
+    end
+    env[:generator] or return log :lower, "not implemented"
+    env[:generator].save
+  end
+
+end

data/lib/dev_system/sub/generator/generator_panel_test.rb

@@ -0,0 +1,79 @@
+class DevSystem::GeneratorPanelTest < Liza::PanelTest
+
+  test :subject_class do
+    assert subject_class == DevSystem::GeneratorPanel
+  end
+
+  test_methods_defined do
+    on_self
+    on_instance \
+      :call,
+      :find,
+      :forward, :forward_base_generator, :forward_generator,
+      :inform,
+      :parse,
+      :save
+  end
+
+  test :settings do
+    assert_equality subject_class.log_level, 0
+  end
+  
+  #
+  
+  test :parse, true do
+    env = {args: ["system"]}
+    subject.parse env
+    assert_equality env[:generator_name_original], :system
+    assert_equality env[:generator_name], :system
+    assert_equality env[:generator_coil_original], nil
+    assert_equality env[:generator_coil], nil
+  end
+  
+  test :parse, true, :coil do
+    env = {args: ["system:install"]}
+    subject.parse env
+    assert_equality env[:args], ["system:install"]
+    assert_equality env[:generator_name_original], :system
+    assert_equality env[:generator_name], :system
+    assert_equality env[:generator_coil_original], :install
+    assert_equality env[:generator_coil], :install
+  end
+  
+  test :parse, false do
+    env = {args: ["x"]}
+    subject.parse env
+    assert_equality env[:args], ["x"]
+    assert_equality env[:generator_name_original], :x
+    assert_equality env[:generator_name], :x
+    assert_equality env[:generator_coil_original], nil
+    assert_equality env[:generator_coil], nil
+  end
+  
+  test :parse, false, :coil do
+    env = {args: ["x:y"]}
+    subject.parse env
+    assert_equality env[:args], ["x:y"]
+    assert_equality env[:generator_name_original], :x
+    assert_equality env[:generator_name], :x
+    assert_equality env[:generator_coil_original], :y
+    assert_equality env[:generator_coil], :y
+  end
+  
+  #
+  
+  test :find, true do
+    env = {generator_name: :command}
+    subject.find env
+    assert_equality env[:generator_class], CommandGenerator
+  end
+  
+  test :find, false do
+    env = {generator_name: :x}
+    subject.find env
+    assert false
+  rescue DevSystem::GeneratorPanel::NotFoundError
+    assert true  
+  end
+
+end

data/lib/dev_system/{dev/controllers → sub/generator}/generator_test.rb

@@ -4,9 +4,13 @@ class DevSystem::GeneratorTest < Liza::ControllerTest
     assert subject_class == DevSystem::Generator
   end
 
+  test_methods_defined do
+    on_self :get_generator_signatures
+    on_instance
+  end
+
   test :settings do
-    assert subject_class.log_level == :normal
-    assert subject_class.log_color == :green
+    assert_equality subject_class.log_level, 0
   end
 
 end

data/lib/dev_system/sub/generator/generators/base_generator.rb

@@ -0,0 +1,64 @@
+class DevSystem::BaseGenerator < DevSystem::Generator
+
+  #
+
+  def self.call(env)
+    log :lower, "env.count is #{env.count}"
+    
+    generator = env[:generator] = new
+    generator.call env
+  end
+
+  #
+
+  attr_reader :env
+
+  def call(env)
+    log :lower, "env.count is #{env.count}"
+    @env = env
+    
+    method_name = "call_#{env[:generator_coil] || :default}"
+    return public_send method_name if respond_to? method_name
+
+    log "method not found: #{method_name.inspect}"
+
+    raise NoMethodError, "method not found: #{method_name.inspect}", caller 
+  end
+
+  def inform
+    log "not implemented"
+  end
+
+  def save
+    log "not implemented"
+  end
+
+  #
+
+  def args
+    env[:args]
+  end
+
+  def command
+    env[:command]
+  end
+
+  #
+
+  def self.get_generator_signatures
+    signatures = []
+    ancestors_until(BaseGenerator).each do |c|
+      signatures +=
+        c.instance_methods_defined.select do |name|
+          name.start_with? "call_"
+        end.map do |name|
+          OpenStruct.new({
+            name: ( name.to_s.sub("call_", "").sub("default", "") ),
+            description: "# no description",
+          })
+        end
+    end
+    signatures
+  end
+
+end

data/lib/dev_system/sub/generator/generators/base_generator_test.rb

@@ -0,0 +1,11 @@
+class DevSystem::BaseGeneratorTest < DevSystem::GeneratorTest
+
+  test :subject_class do
+    assert subject_class == DevSystem::BaseGenerator
+  end
+
+  test :settings do
+    assert_equality subject_class.log_level, 0
+  end
+
+end

data/lib/dev_system/sub/generator/generators/generator_generator.rb

@@ -0,0 +1,71 @@
+class DevSystem::GeneratorGenerator < DevSystem::SimpleGenerator
+
+  # liza g generator name place=app 
+
+  def call_default
+    @controller_class = Generator
+    
+    name!
+    place!
+
+    ancestor = SimpleGenerator
+    create_controller @name, @controller_class, @place, @path, ancestor: ancestor do |unit, test|
+      unit.section :controller_section_1, caption: "liza g #{@name} name place=app"
+      unit.section :controller_section_2, caption: "liza g #{@name}:examples"
+      unit.view    :generator_view_1, key: :controller_section_1
+      test.section :controller_test_section_1
+    end
+  end
+
+end
+
+__END__
+
+# view controller_section_1.rb.erb
+
+  def call_default
+    @controller_class = <%= @name.camelize %>
+
+    name!
+    place!
+
+    create_controller @name, @controller_class, @place, @path do |unit, test|
+      unit.section :controller_section_1
+      test.section :controller_test_section_1
+    end
+  end
+# view controller_section_2.rb.erb
+
+  # def call_examples
+  #   copy_examples <%= @name.camelize %>
+  # end
+# view generator_view_1.rb.erb
+  def self.call(env)
+    # 
+  end
+
+<%= "#" %> view controller_test_section_1.rb.erb
+
+  test :subject_class, :subject do
+    assert_equality <%%= @class_name %>, subject_class
+    assert_equality <%%= @class_name %>, subject.class
+  end
+
+  # test :subject_class, :call do
+  #   a = 1
+  #   b = 2
+  #   assert_equality a, b
+  # end
+  #
+  # test :subject, :call do
+  #   a = 1
+  #   b = 2
+  #   assert_equality a, b
+  # end
+
+# view controller_test_section_1.rb.erb
+
+  test :subject_class, :subject do
+    assert_equality <%= @class_name %>, subject_class
+    assert_equality <%= @class_name %>, subject.class
+  end

data/lib/dev_system/sub/generator/generators/generator_generator_test.rb

@@ -0,0 +1,11 @@
+class DevSystem::GeneratorGeneratorTest < Liza::SimpleGeneratorTest
+
+  test :subject_class do
+    assert subject_class == DevSystem::GeneratorGenerator
+  end
+
+  test :settings do
+    assert_equality subject_class.log_level, 0
+  end
+
+end

data/lib/dev_system/sub/generator/generators/new_generator.rb

@@ -0,0 +1,74 @@
+class DevSystem::NewGenerator < DevSystem::SimpleGenerator
+
+  def call_default
+    args = env[:args]
+    log "args = #{args.inspect}"
+    # setup
+
+    name = args.shift || "app_1"
+
+    from = "#{Lizarb::APP_DIR}/examples/new"
+    log "from: #{from}"
+    to = "#{Dir.pwd}/#{name}"
+
+    return log "Directory #{to.light_green} already exists." if Dir.exist? to
+
+    log "Liza Application initializing at `#{to}`"
+
+    # app
+
+    FileUtils.cp_r from, to, verbose: true
+
+    # extra
+
+    puts
+
+    FileShell.gitkeep "#{to}/lib"
+    FileShell.gitkeep "#{to}/tmp"
+
+    TextShell.write "#{to}/.gitignore", render(:gitignore, format: :gitignore)
+    # TextShell.write "#{to}/Procfile", render(:Procfile, format: :yml)
+    TextShell.write "#{to}/.tool-versions", render(:toolversions, format: :txt)
+
+    FileUtils.cp_r "#{Lizarb::APP_DIR}/README.md",
+                   "#{to}/README.md",
+                   verbose: true
+    # FileUtils.cp_r "#{Lizarb::APP_DIR}/web_files",
+    #                "#{to}/web_files",
+    #                verbose: true
+
+    puts
+
+    KernelShell.call_backticks \
+      "cd #{to}; liza generate gemfile +confirm",
+      log_level: :normal
+
+    KernelShell.call_backticks \
+      "cd #{to}; BUNDLE_GEMFILE=Gemfile bundle install",
+      log_level: :normal
+
+    KernelShell.call_backticks \
+      "cd #{to}; git init -b main; git add .; git commit -m 'lizarb new app_1 (v#{Lizarb::VERSION})'",
+      log_level: :normal
+
+    log "Liza Application initialized at `#{to}`"
+  end
+end
+
+__END__
+
+# view gitignore.gitignore.erb
+# Ignore all files in all subdirectories
+.gitignore
+/.bundle/
+/tmp/
+*.sqlite
+*.rdb
+
+# view toolversions.txt.erb
+ruby <%= RUBY_VERSION %>
+
+# view Procfile.yml.erb
+# HEROKU EXAMPLE
+
+web: MODE=demo bundle exec liza rack h=0.0.0.0 p=$PORT

data/lib/dev_system/sub/generator/generators/new_generator_test.rb

@@ -0,0 +1,11 @@
+class DevSystem::NewGeneratorTest < DevSystem::SimpleGeneratorTest
+
+  test :subject_class do
+    assert subject_class == DevSystem::NewGenerator
+  end
+
+  test :settings do
+    assert_equality subject_class.log_level, 0
+  end
+
+end