lizarb 1.0.5 → 1.0.6

data/lib/dev_system/subsystems/command/command_panel_test.rb

@@ -0,0 +1,122 @@
+class DevSystem::CommandPanelTest < Liza::PanelTest
+
+  test :subject_class do
+    assert_equality subject_class, DevSystem::CommandPanel
+  end
+
+  test_methods_defined do
+    on_self
+    on_instance \
+      :build_env,
+      :call, :call_not_found,
+      :find,
+      :forward,
+      :input,
+      :forge,
+      :pick_many, :pick_one
+  end
+
+  def forge_with args
+    env = subject.forge args
+    subject.forge_shortcut env
+    env
+  end
+
+  test :forge, "empty" do
+    env = forge_with []
+    assert_equality env[:command_name_original], nil
+    assert_equality env[:command_name], ""
+    assert_equality env[:command_action_original], nil
+  end
+
+  test :forge, true do
+    env = forge_with ["generate"]
+    assert_equality env[:command_name_original], "generate"
+    assert_equality env[:command_name], "generate"
+    assert_equality env[:command_action_original], nil
+  end
+
+  test :forge, true, :action do
+    env = forge_with ["generate:install"]
+    assert_equality env[:command_name_original], "generate"
+    assert_equality env[:command_name], "generate"
+    assert_equality env[:command_action_original], "install"
+  end
+
+  test :forge, false do
+    env = forge_with ["x"]
+    assert_equality env[:command_name_original], "x"
+    assert_equality env[:command_name], "x"
+    assert_equality env[:command_action_original], nil
+  end
+
+  test :forge, false, :action do
+    env = forge_with ["x:y"]
+    assert_equality env[:command_name_original], "x"
+    assert_equality env[:command_name], "x"
+    assert_equality env[:command_action_original], "y"
+  end
+
+  test :forge_shortcut do
+    subject.shortcut :g, :generate
+    env = {controller: :command, command_name_original: "g"}
+    subject.forge_shortcut env
+    assert_equality env[:command_name], "generate"
+
+    env = {controller: :command, command_name_original: "x"}
+    subject.forge_shortcut env
+    assert_equality env[:command_name], "x"
+  end
+
+  test :find do
+    env = {controller: :command, command_name: "generate", command_action_original: ""}
+    subject.find env
+    assert_equality env[:command_class], DevSystem::GenerateCommand
+
+    env = {controller: :command, ommand_name: "x", command_action_original: ""}
+    subject.find env
+    assert_equality env[:command_class], DevSystem::NotFoundCommand
+  end
+
+  test :find_shortcut do
+    env = {controller: :command, command_class: GenerateCommand, command_action_original: "i"}
+    subject.find_shortcut env
+    assert_equality env[:command_action], "install"
+
+    env = {controller: :command, command_class: GenerateCommand, command_action_original: "x"}
+    subject.find_shortcut env
+    assert_equality env[:command_action], "x"
+  end
+
+  test :forward do
+    todo "test this"
+  end
+
+  #
+
+  test :shortcut do
+    assert_equality subject.shortcut("m"), "m"
+    assert_equality subject.shortcut("i"), "i"
+    assert_equality subject.shortcut("n"), "n"
+    assert_equality subject.shortcut("s"), "s"
+    assert_equality subject.shortcut("w"), "w"
+    assert_equality subject.shortcut("a"), "a"
+    assert_equality subject.shortcut("n"), "n"
+
+    subject.shortcut :m, :matz
+    subject.shortcut :i, :is
+    subject.shortcut :n, :nice
+    subject.shortcut :s, :so
+    subject.shortcut :w, :we
+    subject.shortcut :a, :are
+
+    assert_equality subject.shortcut("m"), "matz"
+    assert_equality subject.shortcut("i"), "is"
+    assert_equality subject.shortcut("n"), "nice"
+    assert_equality subject.shortcut("s"), "so"
+    assert_equality subject.shortcut("w"), "we"
+    assert_equality subject.shortcut("a"), "are"
+    assert_equality subject.shortcut("n"), "nice"
+  end
+
+end

data/lib/dev_system/{sub → subsystems}/command/command_test.rb

@@ -5,12 +5,8 @@ class DevSystem::CommandTest < Liza::ControllerTest
   end
 
   test_methods_defined do
-    on_self :call, :get_command_signatures
-    on_instance :call
-  end
-
-  test :settings do
-    assert_equality subject_class.log_level, 0
+    on_self :get_command_signatures
+    on_instance
   end
 
 end

data/lib/dev_system/subsystems/command/commands/base_command.rb

@@ -0,0 +1,79 @@
+class DevSystem::BaseCommand < DevSystem::Command
+
+  #
+
+  def self.call(menv)
+    super
+    command = menv[:command] = new
+    command.call menv
+  end
+
+  #
+
+  def env() = menv
+
+  def call(menv)
+    log :higher, "menv.count is #{menv.count}"
+    self.menv = menv
+
+    if respond_to? action_method_name
+      around
+    else
+      not_found
+    end
+  end
+
+  def around
+    log :high, "."
+    before
+    public_send action_method_name
+    after
+    log :high, "."
+  rescue Exception => e
+    raise unless defined? rescue_from
+    rescue_from e
+  end
+
+  def before
+    # placebolder
+  end
+
+  def after
+    # placebolder
+  end
+
+  def not_found
+    log stick :red, "Not found: #{action_name}, please define method '#{action_method_name}'"
+  end
+
+  #
+
+  def self.get_command_signatures
+    signatures = []
+    ancestors_until(BaseCommand).each do |c|
+      signatures +=
+        c.instance_methods_defined.select do |name|
+          name.start_with? "call_"
+        end.map do |name|
+          {
+            name: ( name.to_s.sub("call_", "").sub("default", "") ),
+            description: "# no description",
+          }
+        end
+    end
+    signatures.uniq { _1[:name] }
+  end
+
+  #
+
+  menv_reader :args
+
+  def action_name() = menv[:command_action]
+
+  def action_method_name() = "call_#{action_name}"
+
+  def self.typo() = TypographyShell
+
+  def typo() = TypographyShell
+
+end

data/lib/dev_system/{sub → subsystems}/command/commands/base_command_test.rb

@@ -4,8 +4,4 @@ class DevSystem::BaseCommandTest < DevSystem::CommandTest
     assert_equality subject_class, DevSystem::BaseCommand
   end
 
-  test :settings do
-    assert_equality subject_class.log_level, 0
-  end
-
 end

data/lib/dev_system/subsystems/command/commands/irb_command.rb

@@ -0,0 +1,20 @@
+class DevSystem::IrbCommand < DevSystem::SimpleCommand
+  # https://github.com/ruby/ruby/blob/master/lib/irb.rb
+  require "irb"
+
+  # liza irb
+  def call_default
+    IRB.setup(nil)
+    workspace = IRB::WorkSpace.new(binding)
+    irb = IRB::Irb.new(workspace)
+    IRB.conf[:MAIN_CONTEXT] = irb.context
+
+    catch :IRB_EXIT do
+      irb.eval_input
+    end
+    log "exiting..."
+  rescue Interrupt
+    log "Control-C"
+  end
+
+end

data/lib/dev_system/subsystems/command/commands/irb_command_test.rb

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

data/lib/dev_system/subsystems/command/commands/not_found_command.rb

@@ -0,0 +1,83 @@
+class DevSystem::NotFoundCommand < DevSystem::SimpleCommand
+
+  def before
+    super
+    env[:command_action] = "default"
+  end
+
+  def call_default
+    is_global = App.global?
+    self.log_level 1 if is_global
+
+    app_shell = AppShell.new
+    app_shell.filter_by_unit Command
+
+    if is_global
+      app_shell.filter_in_units NewCommand, NotFoundCommand
+    else
+      app_shell.filter_out_units BaseCommand, SimpleCommand, NewCommand
+      failed_name = env[:command_name_original]
+      app_shell.filter_by_name_including failed_name if failed_name
+    end
+
+    outputs(app_shell, failed_name)
+  end
+
+  section :helpers
+
+  def outputs(app_shell, failed_name)
+    domains = app_shell.get_domains.reject(&:empty?)
+    log "domains: #{domains.count}"
+    puts
+
+    if domains.empty?
+      log stick :black, :green, "No results found for '#{failed_name}'"
+      app_shell.undo_filter!
+      domains = app_shell.get_domains
+    end
+
+    domains.each do |domain|
+      next if domain.empty?
+
+      if log? :normal
+        puts typo.h1 domain.name.snakecase.upcase, domain.color
+      end
+
+      puts
+      domain.layers.each do |layer|
+        next if layer.objects.empty?
+
+        if log? :normal
+          m = "h#{layer.level}"
+          name = layer.level==1 ? domain.name.snakecase.upcase : layer.name.to_s
+          puts typo.send m, name, layer.color unless layer.level==3
+
+          puts stick layer.color, layer.path
+          puts
+        end
+
+        layer.objects.each { print_class _1 }
+        puts
+      end
+    end
+  end
+
+  def print_class klass, description: nil
+    return if [NotFoundCommand].include? klass
+
+    sidebar_length = Log.panel.sidebar_size
+    klass.get_command_signatures.each do |signature|
+      signature[:name] =
+        signature[:name].empty? \
+          ? klass.token.to_s
+          : "#{klass.token}:#{signature[:name]}"
+      #
+    end.sort_by { _1[:name] }.map do |signature|
+      puts [
+        "liza #{signature[:name]}".ljust(sidebar_length),
+        (description or signature[:description])
+      ].join ""
+    end
+  end
+  
+end

data/lib/dev_system/{sub → subsystems}/command/commands/not_found_command_test.rb

@@ -4,8 +4,4 @@ class DevSystem::NotFoundCommandTest < DevSystem::SimpleCommandTest
     assert subject_class == DevSystem::NotFoundCommand
   end
 
-  test :settings do
-    assert_equality subject_class.log_level, 0
-  end
-
 end

data/lib/dev_system/subsystems/command/commands/pry_command.rb

@@ -0,0 +1,10 @@
+class DevSystem::PryCommand < DevSystem::SimpleCommand
+  # https://github.com/pry/pry
+  require "pry"
+
+  # liza pry
+  def call_default
+    Pry.start
+  end
+
+end

data/lib/dev_system/subsystems/command/commands/pry_command_test.rb

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