lizarb 1.0.4 → 1.0.5

data/lib/dev_system/sub/command/commands/simple_command_test.rb

@@ -0,0 +1,11 @@
+class DevSystem::SimpleCommandTest < DevSystem::BaseCommandTest
+
+  test :subject_class do
+    assert_equality subject_class, DevSystem::SimpleCommand
+  end
+
+  test :settings do
+    assert_equality subject_class.log_level, 0
+  end
+
+end

data/lib/dev_system/sub/command/generators/command_generator.rb

@@ -0,0 +1,90 @@
+class DevSystem::CommandGenerator < DevSystem::SimpleGenerator
+
+  # liza g command name place=app
+
+  def call_default
+    call_simple
+  end
+
+  # liza g command:simple name place=app
+
+  def call_simple
+    @controller_class = Command
+
+    name!
+    place!
+    @args = Array command.simple_args[1..-1]
+
+    ancestor = SimpleCommand
+    create_controller @name, @controller_class, @place, @path, ancestor: ancestor do |unit, test|
+      unit.section :controller_section_1,
+        caption: "liza #{ @name }",
+        method_name: "default"
+      
+      @args.each.with_index do |arg, i|
+        unit.section :controller_section_1,
+          caption: "liza #{ @name }:#{ arg }",
+          method_name: arg
+      end
+
+      test.section :controller_test_section_1
+    end
+  end
+
+  # liza g command:base name place=app
+
+  def call_base
+    @controller_class = Command
+
+    name!
+    place!
+    @args = Array command.simple_args[1..-1]
+
+    ancestor = BaseCommand
+    create_controller @name, @controller_class, @place, @path, ancestor: ancestor do |unit, test|
+      unit.section :base_command_section_1,
+        caption: "liza #{ @name }"
+      
+      test.section :controller_test_section_1
+    end
+  end
+  
+  # liza g command:examples
+
+  def call_examples
+    copy_examples Command
+  end
+  
+end
+
+__END__
+
+# view controller_section_1.rb.erb
+
+  def call_<%= @current_section[:method_name] %>
+    args = env[:args]
+    log :lower, "args is #{ args.inspect }"
+    log "simple_args is #{ simple_args.inspect }"
+
+    log stick :b, :<%= ColorShell.colors.keys.sample %>, "I just think Ruby is the Best for coding!"
+
+    log "done at #{ Time.now }"
+  end
+
+# view base_command_section_1.rb.erb
+
+  def self.call(env)
+    args = env[:args]
+    log :lower, "args is #{ args.inspect }"
+
+    log stick :b, :<%= ColorShell.colors.keys.sample %>, "I just think Ruby is the Best for coding!"
+
+    log "done at #{ Time.now }"
+  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/command/generators/command_generator_test.rb

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

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

@@ -0,0 +1,17 @@
+class DevSystem::HighlineInputCommand < DevSystem::InputCommand
+
+  def self.highline
+    require "highline"
+    @highline ||= HighLine.new
+  end
+
+  def self.pick_one title, options = ["Yes", "No"]
+    highline.choose do |menu|
+      menu.prompt = title
+      options.each do |option|
+        menu.choice option
+      end
+    end
+  end
+
+end

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

@@ -0,0 +1,19 @@
+class DevSystem::HighlineInputCommandTest < DevSystem::InputCommandTest
+
+  test :subject_class do
+    assert subject_class == DevSystem::HighlineInputCommand
+  end
+
+  test :settings do
+    assert_equality subject_class.log_level, 0
+
+    assert_equality subject_class.token, :highline
+    assert_equality subject_class.singular, :highline_input_command
+    assert_equality subject_class.plural, :highline_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/input_command.rb

@@ -0,0 +1,20 @@
+class DevSystem::InputCommand < DevSystem::Command
+
+  #
+
+  division!
+
+  #
+
+  def self.call args
+    log "args = #{args.inspect}"
+  end
+
+  def self.pick_one title, options = ["Yes", "No"]
+    log "#{title} #{options.inspect}"
+
+    s = Kernel.gets.chomp.downcase
+    options.find { _1.downcase.start_with? s } || options.first
+  end
+
+end

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/{dev/controllers/command → sub/generator/commands}/new_command_test.rb

@@ -1,4 +1,4 @@
-class DevSystem::NewCommandTest < DevSystem::CommandTest
+class DevSystem::NewCommandTest < DevSystem::SimpleCommandTest
 
   test :subject_class do
     assert subject_class == DevSystem::NewCommand

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