lizarb 1.0.4 → 1.0.6

data/lib/lerb.rb

@@ -1,152 +0,0 @@
-# frozen_string_literal: true
-
-# https://docs.ruby-lang.org/en/3.2/ERB.html
-require "erb"
-
-$LERB_VERBOSE = ENV["LERB_VERBOSE"]
-
-class LERB < ERB
-  class Error < StandardError; end
-  class BuildError < Error; end
-  class ExecutionError < Error; end
-
-  # output
-
-  def self.puts string=nil
-    super if $LERB_VERBOSE
-  end
-
-  # loaders
-
-  DEFAULT_KEY = "inline.txt.erb"
-
-  def self.load path_radical
-    erbs = []
-
-    "#{path_radical}.rb".tap do |filename|
-      _load erbs, filename
-    end
-
-    Dir.glob("#{path_radical}.*.erb").each do |filename|
-      _load erbs, filename
-    end
-
-    Dir.glob("#{path_radical}/*.*.erb").each do |filename|
-      _load erbs, filename
-    end
-
-    #
-
-    puts "#{erbs.size} erbs".on_red
-    erbs.each do |h|
-      puts "key: #{h.key}".on_green
-    end
-
-    erbs
-  end
-
-  def self._load erbs, filename
-    is_erb = filename.end_with? ".erb"
-    is_ignoring_ruby = !is_erb
-    is_accepting_views = false
-    
-    puts
-    puts "LERB filename: #{filename}".on_red
-    
-    puts "LERB is_erb: #{is_erb}".on_red
-    puts "LERB is_ignoring_ruby: #{is_ignoring_ruby}".on_red
-    puts "LERB is_accepting_views: #{is_accepting_views}".on_red
-
-    current_lineno = 0
-    current_content = ""
-    current_key = is_erb ? filename.split("/").last : DEFAULT_KEY
-
-    if current_key
-      puts "LERB declare: #{current_key} | because not erb".green
-    end
-
-    File.readlines(filename).each.with_index do |line, lineno|
-      is_line_end = line == "__END__\n"
-
-      # stop ignoring ruby lines if line is __END__
-      # move to next line if ignoring ruby lines
-
-      if is_ignoring_ruby
-        puts "LERB ignore: #{lineno}: #{line[0..-2]}".light_black
-        if is_line_end
-          is_ignoring_ruby = false
-          is_accepting_views = true
-          current_lineno = lineno + 1
-          puts "LERB declare: #{current_key} | current".green if current_key
-        end
-        next
-      end
-
-      if is_accepting_views && line[0..6] == "# view "
-        _load_into erbs, filename, current_lineno, current_key, current_content
-        current_key = line[7..-1].strip
-        current_lineno = lineno + 1
-        current_content = ""
-        puts "LERB declare: #{current_key} | #{lineno}: #{line[0..-2]}".green
-      else
-        current_content += line
-        puts "LERB keeping: #{lineno}: #{line[0..-2]}".bold.white
-      end
-
-      if is_line_end
-        puts "LERB warning: #{lineno}: #{line[0..-2]} found! No longer accepting views".light_yellow
-        is_accepting_views = false
-      end
-    end
-
-    _load_into erbs, filename, current_lineno, current_key, current_content
-
-    erbs
-  end
-
-  def self._load_into erbs, filename, lineno, key, content
-    return unless key
-    return unless key.end_with? "erb"
-    return if content.strip.empty?
-
-    content += "\n" if content[-1] != "\n"
-
-    erbs.push new filename, lineno, key, content
-  end
-
-  # format
-
-  TAG_FORMATS = %w|xml html|
-
-  def tags?
-    TAG_FORMATS.include? format
-  end
-
-  # constructor
-
-  TRIM_MODE = "<>-"
-
-  attr_reader :key, :name, :format
-
-  def initialize filename, lineno, key, content
-    segments = key.split("/").last.split(".")
-    name, format = segments[0..1]
-
-    if format.gsub(/[^a-z0-9]/, "") != format
-      raise BuildError, "key '#{key}' has an invalid format '#{format}'"
-    end
-
-    super content, trim_mode: TRIM_MODE
-    self.filename, self.lineno, @key, @name, @format = filename, lineno, key, name, format
-  end
-
-  # result
-
-  def result the_binding, receiver=:unset
-    super the_binding
-  rescue NameError => e
-    raise unless e.receiver == receiver
-    message = "ERB template for a #{e.receiver.class} instance could not find method '#{e.name}'"
-    raise ExecutionError, message, [e.backtrace[0]]
-  end
-end

data/lib/liza/base/box.rb

@@ -1,90 +0,0 @@
-class Liza::Box < Liza::Unit
-  inherited_explicitly_sets_system
-
-  # def self.has_panel symbol, panel_name = symbol
-  #   system_klass = get :system
-  #   panel_class = system_klass.const "#{symbol}_panel"
-
-  #   _has_panel_define panel_name, "get(:panels)[:#{panel_name}]"
-
-  #   panel = panel_class.new panel_name
-  #   add :panels, panel_name, panel
-
-  #   panel_class.on_connected self
-  # end
-
-  # def self.has_controller symbol, panel_name = symbol
-  #   system_klass = get :system
-  #   controller_class = system_klass.const symbol
-
-  #   panel = public_send panel_name
-
-  #   controller_class.on_connected self, panel
-  # end
-
-  # def self.method_missing symbol, *args, &block
-  #   if panels.has_key? symbol
-  #     panels[symbol]
-  #   else
-  #     super
-  #   end
-  # end
-
-  # def self.respond_to_missing? symbol, include_private = false
-  #   get(:panels).keys.include?(symbol) || super
-  # end
-
-#     def self._has_panel_define name, resource
-#       class_eval <<-CODE, __FILE__, __LINE__ + 1
-
-# def self.#{name} &block
-#   if block_given?
-#     #{resource}.instance_eval &block
-#   else
-#     #{resource}
-#   end
-# end
-
-#       CODE
-#     end
-
-  def self.panels
-    get :panels
-  end
-
-  def self.[] symbol
-    panels[symbol].started
-  end
-
-  def self.has_panel symbol, panel_class = nil, &block
-    raise ArgumentError, "block required" unless block_given?
-
-    system_class = get :system
-    panel_class ||= system_class.const "#{symbol}_panel"
-
-    if Hash(get :panels).has_key? symbol
-      panel = panels[symbol]
-    else
-      panel_class.on_connected self
-      panel = panel_class.new symbol
-      add :panels, symbol, panel
-    end
-
-    panel.push block
-  end
-
-  def self.has_controller symbol, panel_name = symbol
-    system_klass = get :system
-    controller_class = system_klass.const symbol
-
-    panel = self[panel_name]
-
-    controller_class.on_connected self, panel
-  end
-
-  def self.configure name, &block
-    has_panel name, &block
-    has_controller name, name
-  end
-
-end

data/lib/liza/base/box_test.rb

@@ -1,10 +0,0 @@
-class Liza::BoxTest < Liza::UnitTest
-  test :subject_class do
-    assert subject_class == Liza::Box
-  end
-
-  test :settings do
-    assert subject_class.log_level == :normal
-    assert subject_class.log_color == :white
-  end
-end

data/lib/liza/base/controller.rb

@@ -1,27 +0,0 @@
-class Liza::Controller < Liza::Unit
-  part :controller_renderer
-
-  inherited_explicitly_sets_system
-
-  def self.on_connected box_klass, panel
-    set :box, box_klass
-    set :panel, panel
-  end
-
-  def self.box
-    get :box
-  end
-
-  def self.panel
-    get :panel
-  end
-
-  def box
-    self.class.box
-  end
-
-  def panel
-    self.class.panel
-  end
-
-end

data/lib/liza/base/controller_test.rb

@@ -1,10 +0,0 @@
-class Liza::ControllerTest < Liza::UnitTest
-  test :subject_class do
-    assert subject_class == Liza::Controller
-  end
-
-  test :settings do
-    assert subject_class.log_level == :normal
-    assert subject_class.log_color == :white
-  end
-end

data/lib/liza/base/panel.rb

@@ -1,52 +0,0 @@
-class Liza::Panel < Liza::Unit
-  inherited_explicitly_sets_system
-
-  def self.on_connected box_klass
-    set :box, box_klass
-  end
-
-  def self.box
-    get :box
-  end
-
-  def box
-    self.class.box
-  end
-
-  #
-
-  def initialize key
-    @key = key
-    @blocks = []
-    @unstarted = true
-    @short = {}
-  end
-
-  #
-
-  def short a, b = nil
-    if b
-      @short[a.to_s] = b.to_s
-    else
-      @short[a.to_s] || a.to_s
-    end
-  end
-
-  #
-
-  def push block
-    @unstarted = true
-    @blocks.push block
-  end
-
-  def started
-    return self unless defined? @unstarted
-    remove_instance_variable :@unstarted
-
-    @blocks.each { |bl| instance_eval(&bl) }
-    @blocks.clear
-
-    self
-  end
-
-end

data/lib/liza/base/panel_test.rb

@@ -1,40 +0,0 @@
-class Liza::PanelTest < Liza::UnitTest
-  test :subject_class do
-    assert subject_class == Liza::Panel
-  end
-
-  def subject
-    @subject ||= subject_class.new "name"
-  end
-
-  test :settings do
-    assert subject_class.log_level == :normal
-    assert subject_class.log_color == :white
-  end
-
-  test :short do
-    assert_equality subject.short("m"), "m"
-    assert_equality subject.short("i"), "i"
-    assert_equality subject.short("n"), "n"
-    assert_equality subject.short("s"), "s"
-    assert_equality subject.short("w"), "w"
-    assert_equality subject.short("a"), "a"
-    assert_equality subject.short("n"), "n"
-
-    subject.short :m, :matz
-    subject.short :i, :is
-    subject.short :n, :nice
-    subject.short :s, :so
-    subject.short :w, :we
-    subject.short :a, :are
-
-    assert_equality subject.short("m"), "matz"
-    assert_equality subject.short("i"), "is"
-    assert_equality subject.short("n"), "nice"
-    assert_equality subject.short("s"), "so"
-    assert_equality subject.short("w"), "we"
-    assert_equality subject.short("a"), "are"
-    assert_equality subject.short("n"), "nice"
-  end
-
-end

data/lib/liza/base_parts/controller_renderer_part.rb

@@ -1,140 +0,0 @@
-class Liza::ControllerRendererPart < Liza::Part
-
-  class Error < Liza::Error; end
-  class RendererNotFound < Error; end
-  class EmptyRenderStack < Error; end
-
-  EMPTY_RENDER_STACK_MESSAGE = <<~STRING
-You called render without ERB keys,
-but the render stack is empty.
-Did you forget to add ERB keys?
-  STRING
-
-  insertion do
-    # EXTENSION
-
-    def self.renderer
-      Liza::ControllerRendererPart::Extension
-    end
-
-    def renderer
-      @renderer ||= self.class.renderer.new self
-    end
-
-    # CLASS
-
-    def self.controller_ancestors
-      ancestors.take_while { |k| k != Liza::Controller }
-    end
-
-    def self.render_paths
-      @render_paths ||= controller_ancestors.map &:source_location_radical
-    end
-
-    def render_paths
-      self.class.render_paths
-    end
-
-    def self.renderers
-      @renderers ||=
-        LERB.load(source_location_radical)
-            .map { |lerb| [lerb.key, lerb] }
-            .to_h
-    end
-
-    # INSTANCE
-
-    def render *keys
-      if keys.any?
-        _log_render_in keys
-        renderer.render keys, binding, self
-      elsif renderer.stack.any?
-        renderer.stack.pop
-      else
-        raise EmptyRenderStack, EMPTY_RENDER_STACK_MESSAGE, caller
-      end
-    end
-
-    def _log_render_in keys
-      if renderer.stack.any?
-        log "render ↓ #{keys.join ", "}"
-      else
-        log "render #{"→ " * keys.size}#{keys.join ", "}"
-      end
-    end
-  end
-
-  extension do
-    # CLASS
-
-    def self.log(...)
-      solder.log(...)
-    end
-
-    # INSTANCE
-
-    def log(...)
-      self.class.log(...)
-    end
-
-    def erb_lists
-      @erb_lists ||= []
-    end
-
-    def stack
-      @stack ||= []
-    end
-
-    def render keys, the_binding, receiver
-      erbs = find_erbs_for(keys).to_a
-
-      erbs.reverse.each do |key, erb|
-        t = Time.now
-        s = erb.result the_binding, receiver
-        _log_render_out key, s.length, t.diff
-        s = wrap_comment_tags s, erb if App.mode == :code && erb.tags?
-        stack.push s
-      end
-
-      stack.pop
-    end
-
-    def find_erbs_for keys
-      ret = {}
-      keys.each do |key|
-        key = "#{key}.erb"
-
-        controller = solder.class.controller_ancestors.
-          find { |controller| controller.renderers.has_key? key }
-
-        if controller
-          ret[key] = controller.renderers[key]
-        else
-          raise_renderer_not_found key
-        end
-      end
-
-      ret
-    end
-
-    def raise_renderer_not_found key
-      render_paths = solder.render_paths.map { |s| "  #{s}/#{"#{key}".red}" }.join
-      raise RendererNotFound,  %|Failed to find ERB #{key}
-Failed to find ERB #{"#{key}".red} in #{solder.class}.render_paths
-#{render_paths}|
-    end
-
-    def _log_render_out key, length, t
-      if stack.any?
-        log "render #{"↑ #{key}".ljust_blanks 20} with #{length.to_s.rjust_blanks 4} characters in #{t}s"
-      else
-        log "render #{"← #{key}".ljust_blanks 20} with #{length.to_s.rjust_blanks 4} characters in #{t}s"
-      end
-    end
-
-    def wrap_comment_tags s, erb
-      "<!-- #{erb.filename.split("/").last}:#{erb.lineno} -->\n#{s}\n<!-- #{erb.filename.split("/").last} -->"
-    end
-
-  end
-end

data/lib/liza/base_parts/controller_renderer_part_test.rb

@@ -1,16 +0,0 @@
-class Liza::ControllerRendererPartTest < Liza::Test
-
-  test :subject_class do
-    assert subject_class == Liza::ControllerRendererPart
-  end
-
-  test :settings do
-    assert subject_class.get(:log_level) == :normal
-    assert subject_class.get(:log_color) == :white
-    assert subject_class.log_level == :normal
-    assert subject_class.log_color == :white
-
-    assert subject_class.settings == {}
-  end
-
-end

data/lib/liza/meta/part.rb

@@ -1,17 +0,0 @@
-class Liza::Part < Liza::Unit
-  def self.insertion &block
-    if block_given?
-      @insertion = block
-    else
-      @insertion
-    end
-  end
-
-  def self.extension &block
-    if block_given?
-      @extension = block
-    else
-      @extension
-    end
-  end
-end

data/lib/liza/meta/part_extension.rb

@@ -1,16 +0,0 @@
-class Liza::PartExtension
-  def self.solder
-    @solder ||=
-      if first_namespace == "Liza"
-        Liza.const_get last_namespace[0..-12]
-      else
-        Object.const_get name[0..-12]
-      end
-  end
-
-  def initialize solder
-    @solder = solder
-  end
-
-  attr_reader :solder
-end

data/lib/liza/meta/part_test.rb

@@ -1,6 +0,0 @@
-class Liza::PartTest < Liza::Test
-  test :subject_class do
-    assert subject_class == Liza::Part
-  end
-
-end

data/lib/liza/meta/system.rb

@@ -1,18 +0,0 @@
-class Liza::System < Liza::Unit
-
-  def self.const name
-    const_get name.to_s.camelize
-  end
-
-  def self.insertion key, &block
-    if block_given?
-      registrar[:"insertion_#{key}"] = block
-    else
-      registrar[:"insertion_#{key}"]
-    end
-  end
-
-  def self.registrar
-    @registrar ||= {}
-  end
-end

data/lib/liza/meta/system_test.rb

@@ -1,11 +0,0 @@
-class Liza::SystemTest < Liza::UnitTest
-  test :subject_class do
-    assert subject_class == Liza::System
-  end
-
-  test :settings do
-    assert subject_class.log_level == :normal
-    assert subject_class.log_color == :white
-  end
-
-end

data/lib/liza/ruby_tests/module_test.rb

@@ -1,21 +0,0 @@
-class Liza::ModuleTest < Liza::RubyTest
-  
-  test :subject_class do
-    assert subject_class == Module
-  end
-
-  test :source_location do
-    assert Object.source_location == []
-
-    assert Liza::Command.source_location[1] == 1
-    assert TerminalCommand.source_location[1] == 1
-  end
-
-  test :source_location_radical do
-    assert Object.source_location_radical == nil
-
-    assert Liza::Command.source_location_radical.end_with? "/lib/dev_system/dev/controllers/command"
-    assert TerminalCommand.source_location_radical.end_with? "/lib/dev_system/dev/controllers/command/terminal_command"
-  end
-
-end

data/lib/liza/test/test.rb

@@ -1,10 +0,0 @@
-class Liza::Test < Liza::Unit
-
-  part :test_assertions
-  part :test_assertions_advanced
-  part :test_dsl
-  part :test_log
-  part :test_subject
-  part :test_tree
-
-end