lizarb 1.0.4 → 1.0.5

data/lib/desk_system/commands/glimmer_command.rb

@@ -0,0 +1,26 @@
+class DeskSystem::GlimmerCommand < DevSystem::SimpleCommand
+  
+  # liza glimmer
+
+  def call_default
+    call_examples
+  end
+
+  # liza glimmer:examples
+
+  def call_examples
+    log stick :b, system.color, "Glimmer is a free Ruby Desktop Development Cross-Platform Native GUI Library!"
+    log [
+      (stick :b, "Learn more at "),
+      (stick :b, system.color, "https://github.com/AndyObtiva/glimmer-dsl-libui")
+    ]
+    
+    puts
+    log "args = #{env[:args].inspect}"
+    # require "glimmer-dsl-libui"
+    require "examples/meta_example"
+    
+    log "done at #{Time.now}"
+  end
+  
+end

data/lib/desk_system/commands/glimmer_command_test.rb

@@ -0,0 +1,10 @@
+class DeskSystem::GlimmerCommandTest < DevSystem::SimpleCommandTest
+  
+  # 
+
+  test :subject_class, :subject do
+    assert_equality DeskSystem::GlimmerCommand, subject_class
+    assert_equality DeskSystem::GlimmerCommand, subject.class
+  end
+  
+end

data/lib/desk_system/desk_box.rb

@@ -0,0 +1,5 @@
+class DeskSystem::DeskBox < Liza::Box
+  
+  #
+
+end

data/lib/desk_system/desk_box_test.rb

@@ -0,0 +1,8 @@
+class DeskSystem::DeskBoxTest < Liza::BoxTest
+  
+  test :subject_class, :subject do
+    assert_equality DeskSystem::DeskBox, subject_class
+    assert_equality DeskSystem::DeskBox, subject.class
+  end
+
+end

data/lib/desk_system.rb

@@ -0,0 +1,8 @@
+class DeskSystem < Liza::System
+  class Error < Liza::Error; end
+
+  #
+
+  color :turquoise
+
+end

data/lib/dev_system/{dev/controllers/command → commands}/test_command.rb

@@ -3,11 +3,13 @@ class DevSystem::TestCommand < DevSystem::Command
   def self.call args
     log "args = #{args.inspect}"
 
-    App.load_all
-
     now = Time.now
     test_classes = Liza::Test.descendants
 
+    if args.any?
+      test_classes = test_classes.select { |tc| args.any? { tc.source_location_radical.snakecase.include? _1.snakecase } }
+    end
+
     _call_silence_base_units
     
     if Lizarb::IS_APP_DIR
@@ -63,7 +65,12 @@ class DevSystem::TestCommand < DevSystem::Command
     end
   end
 
+
   def self._call_counting test_classes
+    puts
+    Liza.log ""
+    Liza.log stick :b, " TEST TOTALS ".center(140, "-")
+    Liza.log ""
     puts
     totals = Hash.new { 0 }
     last_namespace = nil
@@ -75,11 +82,32 @@ class DevSystem::TestCommand < DevSystem::Command
       test_class.totals.each do |k, v|
         totals[k] += v.size
       end
-      Liza.log "  #{"#{test_class}.totals".ljust 60} #{test_class.totals.map { |k, v| [k, v.size] }.to_h}"
+      size = 60 - test_class.subject_class.to_s.size
+      Liza.log "#{_color_unit test_class.subject_class}#{".totals".ljust size} #{test_class.totals.map { |k, v| [k, v.size] }.to_h}"
     end
     puts
-    Liza.log "  #{"Total".ljust 60} #{totals}"
+    Liza.log "#{"Total".ljust 60} #{totals}"
     puts
   end
 
+  def self._color_unit klass
+    return klass.to_s unless klass < Liza::Unit
+    return klass.to_s if klass.superclass == Liza::Unit
+
+    ret = ""
+    namespace, _sep, classname = klass.name.rpartition('::')
+    unless namespace.empty?
+      system_color = klass.system.color
+      ret << stick(namespace, system_color, :b).to_s
+      ret << "::"
+    end
+
+    klass = klass.division if klass.is_a? Liza::Controller
+    unit_color = nil
+    unit_color = klass.system.color
+
+    ret << stick(classname, unit_color).to_s
+    ret
+  end
+
 end

data/lib/dev_system/{dev/controllers/command → commands}/test_command_test.rb

@@ -5,8 +5,7 @@ class DevSystem::TestCommandTest < DevSystem::CommandTest
   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/dev_box.rb

@@ -0,0 +1,79 @@
+class DevSystem::DevBox < Liza::Box
+
+  # Preconfigure your bench panel
+  
+  configure :bench do
+    # 
+  end
+
+  # Preconfigure your command panel
+  
+  configure :command do
+    # 
+    rescue_from CommandPanel::NotFoundError, with: NotFoundCommand
+  end
+
+  def self.command(...)
+    self[:command].call(...)
+  end
+
+  def self.input
+    self[:command].input
+  end
+  
+  def self.pick_one(...)
+    self[:command].pick_one(...)
+  end
+  
+  def self.pick_many(...)
+    self[:command].pick_many(...)
+  end
+  
+  # Preconfigure your generator panel
+  
+  configure :generator do
+    # 
+    rescue_from GeneratorPanel::NotFoundError, with: NotFoundGenerator
+  end
+
+  # Preconfigure your log panel
+
+  configure :log do
+    # 
+  end
+
+  # Preconfigure your shell panel
+
+  configure :shell do
+    # 
+  end
+
+  def self.formatters
+    self[:shell].formatters
+  end
+
+  def self.converters
+    self[:shell].converters
+  end
+
+  def self.converters_to
+    self[:shell].converters_to
+  end
+
+  def self.format(...)
+    self[:shell].format(...)
+  end
+
+  def self.format?(...)
+    self[:shell].format?(...)
+  end
+
+  def self.convert(...)
+    self[:shell].convert(...)
+  end
+
+  def self.convert?(...)
+    self[:shell].convert?(...)
+  end
+
+end

data/lib/dev_system/dev_box_test.rb

@@ -0,0 +1,33 @@
+class DevSystem::DevBoxTest < Liza::BoxTest
+
+  test :subject_class do
+    assert subject_class == DevSystem::DevBox
+  end
+
+  test_methods_defined do
+    on_self \
+      :command,
+      :convert, :convert?, :converters, :converters_to,
+      :format, :format?, :formatters,
+      :input,
+      :pick_many, :pick_one
+    on_instance
+  end
+
+  test :settings do
+    assert_equality subject_class.log_level, 0
+  end
+
+  test :subsystems do
+    a = subject_class.panels.keys
+    b = [:bench, :command, :generator, :log, :shell]
+    assert_equality a, b
+    
+    assert_sub :bench,     DevSystem::Bench,     DevSystem::BenchPanel
+    assert_sub :command,   DevSystem::Command,   DevSystem::CommandPanel
+    assert_sub :generator, DevSystem::Generator, DevSystem::GeneratorPanel
+    assert_sub :log,       DevSystem::Log,       DevSystem::LogPanel
+    assert_sub :shell,     DevSystem::Shell,     DevSystem::ShellPanel
+  end
+
+end

data/lib/dev_system/generators/env_generator.rb

@@ -0,0 +1,87 @@
+class DevSystem::EnvGenerator < DevSystem::Generator
+
+  def self.call args
+    log "args = #{args.inspect}"
+
+    new.call args
+  end
+
+  def call args
+    log "args = #{args.inspect}"
+
+    if app_env_exists?
+      log "env files already exist".red.blink
+    else
+      write_env_files
+    end
+
+    puts
+    log "done"
+  end
+
+  private
+
+  def app_env_exists?
+    FileShell.exist? "app.env"
+  end
+
+  def write_env_files
+    # app
+    @env_name = nil
+    content = render :env, format: :env
+    puts "-" * 80
+    puts content.green
+    TextShell.write "app.env",      content
+
+    # app.code
+    @env_name = :code
+    content = render :env, format: :env
+    puts "-" * 80
+    puts content.green
+    TextShell.write "app.code.env", content
+
+    # app.demo
+    @env_name = :demo
+    content = render :env, format: :env
+    puts "-" * 80
+    puts content.green
+    TextShell.write "app.demo.env", content
+  end
+
+end
+
+__END__
+
+# view env.env.erb
+#
+<%= render :"#{@env_name || :blank}", format: :env -%>
+#
+
+# app variables
+
+
+
+<% App.systems.keys.each do |k| -%>
+# <%= k %> variables
+
+
+
+<% end -%>
+
+# view code.env.erb
+# ENV VARIABLES FOR MODE=code (default)
+#
+# MODE=code lizarb commands
+# lizarb commands
+
+# view demo.env.erb
+# ENV VARIABLES FOR MODE=demo
+#
+# MODE=demo lizarb commands
+
+# view blank.env.erb
+# ENV VARIABLES FOR ALL MODES
+#
+# MODE=code lizarb commands
+# MODE=demo lizarb commands
+# lizarb commands

data/lib/dev_system/generators/env_generator_test.rb

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

data/lib/dev_system/generators/gemfile_generator.rb

@@ -0,0 +1,47 @@
+class DevSystem::GemfileGenerator < DevSystem::SimpleGenerator
+
+  # liza g gemfile
+
+  def call_default
+    @gemspec_name = get_gemspec_name
+
+    create_file "Gemfile", :gemfile, :rb
+  end
+
+  def get_gemspec_name
+    ls = Dir["*.gemspec"]
+    ls.first.split(".").first if ls.any?
+  end
+
+end
+
+__END__
+
+# view gemfile.rb.erb
+
+# frozen_string_literal: true
+
+source "https://rubygems.org"
+<% if @gemspec_name -%>
+
+# Specify your gem's dependencies in <%= @gemspec_name %>.gemspec
+# gemspec path: "../path/to/<%= @gemspec_name %>"
+gemspec :<%= @gemspec_name %>
+<% end -%>
+
+group :default do
+  gem "lizarb", "~> <%= Lizarb::VERSION %>"
+  # gem "lizarb", github: "lizarb/lizarb"
+  # gem "lizarb", path: "../lizarb"
+end
+
+group :dev do
+  # gems you only want to load if DevSystem is loaded
+
+  # Shell
+  # gem "htmlbeautifier", "~> 1.4"
+  # gem "commonmarker", "~> 0.23.9"
+  # gem "haml", "~> 6.1"
+  # gem "sassc", "~> 2.4"
+  # gem "coffee-script", "~> 2.4"
+end

data/lib/dev_system/generators/gemfile_generator_test.rb

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

data/lib/dev_system/generators/system_generator.rb

@@ -0,0 +1,70 @@
+class DevSystem::SystemGenerator < DevSystem::SimpleGenerator
+
+  # liza g system name color=coral
+
+  def call_default
+    @name = command.simple_arg_ask_snakecase 0, "What is the name of the system you want to generate?"
+    log "@name = #{@name}"
+
+    @color = command.simple_color :color, string: "#{@name.camelize}System"
+    log "@color = #{@color}"
+
+    append_system_to_app
+    create_system
+    create_box
+  end
+
+  private
+
+  def append_system_to_app
+    file = TextFileShell.new App.filename
+    
+    lines = LineShell.extract_wall_of file.old_lines, "  system :"
+    lines << "  system :#{@name}\n"
+    file.new_lines = LineShell.replace_wall_of file.old_lines, "  system :", lines
+
+    add_change file
+  end
+
+  def create_system
+    unit    = UnitHelper.new
+    classes = ["#{@name.camelize}System", "Liza::System"]
+    path    = App.root.join("lib/#{@name.snakecase}_system.rb")
+    
+    create_unit unit, classes, path, :system
+  end
+
+  def create_box
+    unit, test = UnitHelper.new, UnitHelper.new
+    unit_classes = ["#{@name.camelize}System::#{@name.camelize}Box", "Liza::Box"]
+    test_classes = ["#{@name.camelize}System::#{@name.camelize}BoxTest", "Liza::BoxTest"]
+    unit_path = App.root.join("lib/#{@name.snakecase}_system/#{@name.snakecase}_box.rb")
+    test_path = App.root.join("lib/#{@name.snakecase}_system/#{@name.snakecase}_box_test.rb")
+
+    @class_name = unit_classes[0]
+    test.section :box_test_section_1, caption: ""
+    
+    create_unit unit, unit_classes, unit_path, :unit
+    create_unit test, test_classes, test_path, :unit
+  end
+
+end
+
+__END__
+
+# view system.rb.erb
+class <%= @class_names[0] %> < <%= @class_names[1] %>
+  class Error < Liza::Error; end
+  
+  #
+
+  color :<%= @color %>
+
+end
+
+# view box_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/generators/system_generator_test.rb

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

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

@@ -1,3 +1,7 @@
 class DevSystem::Bench < Liza::Controller
+  
+  #
+
+  set :plural,   :benches
 
 end

data/lib/dev_system/{dev/panels → sub/bench}/bench_panel_test.rb

@@ -4,9 +4,13 @@ class DevSystem::BenchPanelTest < Liza::PanelTest
     assert subject_class == DevSystem::BenchPanel
   end
 
+  test_methods_defined do
+    on_self
+    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/bench/bench_test.rb

@@ -0,0 +1,24 @@
+class DevSystem::BenchTest < Liza::ControllerTest
+
+  test :subject_class do
+    assert subject_class == DevSystem::Bench
+  end
+
+  test_methods_defined do
+    on_self
+    on_instance
+  end
+
+  test :settings do
+    assert_equality subject_class.log_level, 0
+
+    assert_equality subject_class.token, nil
+    assert_equality subject_class.singular, :bench
+    assert_equality subject_class.plural, :benches
+
+    assert_equality subject_class.system, DevSystem
+    assert_equality subject_class.subsystem, DevSystem::Bench
+    assert_equality subject_class.division, DevSystem::Bench
+  end
+
+end

data/lib/dev_system/{dev/controllers/bench → sub/bench/benches}/not_found_bench.rb

@@ -8,7 +8,6 @@ class DevSystem::NotFoundBench < DevSystem::Bench
 
     # 2. FIND generators
 
-    App.load_all
     benches = Liza::Bench.descendants
     benches -= ignored_benches
 
@@ -16,7 +15,7 @@ class DevSystem::NotFoundBench < DevSystem::Bench
 
     keys = benches.map { _1.last_namespace.snakecase[0..-7] }.uniq.sort
 
-    log "Liza comes with #{keys.count} benches you can use."
+    log "This app has #{keys.count} benches you can use."
     log "Here they are:"
     puts
 

data/lib/dev_system/{dev/controllers/bench → sub/bench/benches}/not_found_bench_test.rb

@@ -5,8 +5,7 @@ class DevSystem::NotFoundBenchTest < DevSystem::BenchTest
     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/{dev/controllers/command → sub/bench/commands}/bench_command.rb

@@ -7,7 +7,7 @@ class DevSystem::BenchCommand < DevSystem::Command
 
     # 2. FIND bench
 
-    return call_not_found args if args.none?
+    return NotFoundBench.call args if args.none?
 
     bench = args[0]
 
@@ -24,8 +24,4 @@ class DevSystem::BenchCommand < DevSystem::Command
     bench_klass.call args[1..-1]
   end
 
-  def self.call_not_found args
-    Liza::NotFoundBench.call args
-  end
-
 end

data/lib/dev_system/{dev/controllers/command → sub/bench/commands}/bench_command_test.rb

@@ -5,8 +5,7 @@ class DevSystem::BenchCommandTest < DevSystem::CommandTest
   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/bench/generators/bench_generator.rb

@@ -0,0 +1,70 @@
+class DevSystem::BenchGenerator < DevSystem::SimpleGenerator
+  
+  # liza g bench name place=app +sorted
+
+  def call_default
+    @controller_class = Bench
+
+    name!
+    place!
+
+    @args = Array command.simple_args[1..-1]
+    ancestor = @controller_class
+
+    # THIS IS A HACK! WILL BE FIXED SOON!
+    if File.exist? "app/dev/benches/sorted_bench.rb"
+      @sorted = command.simple_boolean_yes :sorted, "Use SortedBench?"
+      log "@sorted = #{@sorted.inspect}"
+      ancestor = "SortedBench" if @sorted
+    end
+    
+    create_controller @name, @controller_class, @place, @path, ancestor: ancestor do |unit, test|
+      unit.section :controller_section_1, caption: "liza bench #{ @name }"
+      test.section :controller_test_section_1
+    end
+  end
+
+  # liza g bench:examples
+
+  def call_examples
+    copy_examples Bench
+  end
+
+end
+
+__END__
+
+# view controller_section_1.rb.erb
+
+  repetitions 1_000_000
+  # repetitions 10_000_000
+  # repetitions 100_000_000
+
+  setup do
+    log "repetitions: #{repetitions}"
+  end
+
+  #
+
+<% if @args.any? -%>
+<%   @args.each do |arg| -%>
+  mark "<%= arg %>" do
+    a = 1.to_s.to_sym
+  end
+
+<%   end -%>
+<% else -%>
+  mark "alternative 1" do
+    a = "1".to_sym
+  end
+
+  mark "alternative 2" do
+    a = :"1"
+  end
+<% 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/bench/generators/bench_generator_test.rb

@@ -0,0 +1,10 @@
+class DevSystem::BenchGeneratorTest < DevSystem::SimpleGeneratorTest
+
+  #
+  
+  test :subject do
+    assert_equality DevSystem::BenchGenerator, subject_class
+    assert_equality DevSystem::BenchGenerator, subject.class
+  end
+  
+end