lizarb 1.0.4 → 1.0.6

data/lib/dev_system/subsystems/shell/view_shells/logo_view_shell.rb.svg.erb

@@ -0,0 +1,59 @@
+# view svg.svg.erb
+<?xml version="1.0" encoding="UTF-8"?>
+<%= render %>
+
+# view logo.svg.erb
+<svg
+    data-name="LizaRB"
+    viewBox="0 0 1758.69 2075.94"
+    xmlns="http://www.w3.org/2000/svg"
+    xmlns:xlink="http://www.w3.org/1999/xlink">
+
+<%= render :tail %>
+<%= render :ruby %>
+<%= render :body %>
+<%= render :eye %>
+</svg>
+
+# view body.svg.erb
+    <path
+      fill="<%= @pallet[0] %>"
+      d="M 418 1197 C 411 1191 403 1186 396 1180 C 272 1064 211 923 222 752 C 229 651 250 554 300 465 C 356 367 435 293 536 243 C 582 220 628 197 681 197 C 728 197 774 202 821 205 C 835 206 849 208 863 208 C 886 209 893 200 887 177 C 881 154 874 131 867 107 C 851 53 868 31 924 36 C 1030 46 1133 68 1223 130 C 1285 174 1328 233 1362 299 C 1367 308 1373 316 1381 322 C 1418 351 1434 399 1417 443 C 1409 462 1411 481 1412 500 C 1415 546 1417 591 1403 635 C 1393 672 1380 679 1342 682 C 1304 686 1266 694 1228 700 C 1122 720 1022 700 927 649 C 917 644 910 634 901 628 C 896 625 888 621 884 623 C 864 634 844 647 824 659 C 834 681 842 704 855 724 C 863 736 878 744 892 751 C 903 758 917 761 929 768 C 944 777 949 793 944 809 C 939 826 925 836 906 834 C 898 833 891 830 883 827 C 833 808 782 799 728 808 C 693 813 672 792 679 762 C 682 746 696 736 715 733 C 729 731 743 730 757 728 C 760 728 762 727 765 726 C 763 693 753 686 722 690 C 673 697 624 699 576 706 C 542 711 508 720 476 731 C 452 739 451 752 471 769 C 485 780 499 791 511 803 C 522 814 532 815 544 805 C 549 802 554 798 560 796 C 577 789 596 794 606 808 C 616 821 615 839 603 853 C 594 863 583 872 573 881 C 541 909 518 944 500 982 C 487 1008 471 1015 448 1006 C 429 998 423 982 431 956 C 437 940 445 925 453 910 C 474 869 450 827 406 827 C 378 825 350 855 350 884 C 332 993 355 1091 422 1180 C 424 1183 426 1187 428 1191 C 427 1192 425 1193 424 1194 Z"
+    />
+
+# view tail.svg.erb
+    <defs>
+        <linearGradient id="grad<%= @pallet.object_id %>" x1="-5.1" y1="9510" x2="980" y2="9510" gradientTransform="translate(74 -127) rotate(1)" gradientUnits="userSpaceOnUse">
+            <stop offset="0" stop-color="<%= @pallet[1] %>" />
+            <stop offset="0.4" stop-color="<%= @pallet[0] %>" />
+            <stop offset="0.8" stop-color="<%= @pallet[0] %>" />
+            <stop offset="1" stop-color="<%= @pallet[2] %>" />
+        </linearGradient>
+    </defs>
+    <path
+        fill="url(#grad<%= @pallet.object_id %>)"
+        d="M596 208C411 239 266 332 161 485 25 682 7 893 106 1110c50 112 132 200 236 265 136 85 283 118 441 82 163-37 259-178 232-338-25-146-157-230-293-186-96 31-147 125-116 216 24 71 88 113 157 103 46-7 93-45 101-83 4-19-4-36-21-44-14-6-32-2-42 13-18 29-54 29-81 17-21-9-32-36-27-66s27-52 59-59c62-15 123 23 139 87 25 95-45 185-143 183-95-2-178-37-247-101-87-81-129-181-118-301 2-22 7-45 10-68-1-2-2-3 269-629Z"
+    />
+
+# view eye.svg.erb
+    <circle cx="1062" cy="382" r="110" fill="#ffffff" />
+    <circle cx="1035" cy="382" r="55" fill="#333" />
+    <circle cx="1000" cy="360" r="24" fill="#ffffff" />
+
+# view ruby.svg.erb
+    <defs>
+        <style>
+            .st0 { fill: #c42b2a; }
+            .st1 { fill: #c73330; }
+            .st2 { fill: #bc3131; }
+        </style>
+    </defs>
+
+    <path class="st0" d="M941.86,777.37c1.18.84,2.28.88,3.67.85l304.17-.26c10.24,4.91,16.68,11.65,24.12,19.9,22.36,24.83,43.88,52.01,65.21,77.83,29.31,35.48,60.93,72.18,88.42,108.86,15.41,20.56,22.9,43.69,9.55,67.86-150.76,176.16-303.3,351.11-456.4,525.25-25.47,17.99-63.37,15.8-85.1-7.04-7.04-7.4-14.02-16.09-20.85-23.85-142.61-161.87-282.34-326.34-424.44-488.66-9.5-11.3-11.7-24.31-10.77-38.77,1.09-16.86,11.06-29.05,20.9-41.69,26.22-33.7,54.39-67.2,81.62-100.17,21.22-25.71,42.53-52.34,64.62-77.24,8.02-9.05,14.71-17.15,26.1-22.19l307.57-.4,1.15-1.25c.53-.09.17.75.48.97Z"/>
+
+    <path class="st2" d="M781.93,1033.04h-322.57v10c0,6.92,3.85,16.66,10.77,25.13,6.92,8.46,415.42,477.9,435.79,500.97,11.93,14.42,33.65,16.74,33.65,16.74"/>
+    <path class="st2" d="M960.66,1586.17s21.73-2.3,33.65-16.72c20.39-23.08,428.9-492.49,435.82-500.95,6.92-8.46,10.77-18.21,10.77-25.13v-10h-322.57"/>
+    <path class="st1" d="M781.93,1033.04l157.62,552.83s5.66,2.05,9.86,2.8c4.21.75,11.27-2.52,11.27-2.52l157.66-552.81h-.01l-178.78-.28"/>
+    <path class="st0" d="M1437.23,1015.29c-4.23-9.04-3.07-6.73-4.23-9.04-1.16-2.3-12.7-16.87-12.7-16.87,0,0-148.25-183.35-157.49-188.73-9.22-5.39-11.53-6.84-11.53-6.84l-133.12,240.18-168.17-241.43-167.87,241.23-133.5-239.99s-2.3,1.16-11.54,6.54c-9.24,5.39-157.5,188.73-157.5,188.73,0,0-11.54,14.55-12.7,16.87-1.16,2.3,0,0-4.23,9.04s-3.5,18.76-3.5,18.76h322.57l336.4.31h322.57s.74-9.72-3.5-18.76h.02Z"/>
+    <polygon class="st1" points="782.14 1033.79 950.38 793.56 648.65 793.8 782.14 1033.79"/>
+    <polygon class="st1" points="949.94 793.82 1118.16 1034.04 1251.35 793.82 949.94 793.82"/>

data/lib/dev_system/subsystems/shell/view_shells/logo_view_shell_test.rb

@@ -0,0 +1,15 @@
+class DevSystem::LogoViewShellTest < DevSystem::ViewShellTest
+
+  section :subject
+
+  test :subject_class, :subject do
+    assert_equality subject_class, DevSystem::LogoViewShell
+    assert_equality subject.class, DevSystem::LogoViewShell
+  end
+
+  test :get_svg do
+    content = subject.get_svg
+    assert_equality content[0..26], "<svg\n    data-name=\"LizaRB\""
+  end
+
+end

data/lib/dev_system/subsystems/shell/view_shells/view_shell.rb

@@ -0,0 +1,5 @@
+class DevSystem::ViewShell < DevSystem::Shell
+  division!
+
+
+end

data/lib/dev_system/subsystems/shell/view_shells/view_shell_test.rb

@@ -0,0 +1,10 @@
+class DevSystem::ViewShellTest < DevSystem::ShellTest
+
+  section :subject
+
+  test :subject_class, :subject do
+    assert_equality subject_class, DevSystem::ViewShell
+    assert_equality subject.class, DevSystem::ViewShell
+  end
+
+end

data/lib/dev_system.rb

@@ -1,8 +1,14 @@
 class DevSystem < Liza::System
-  class Error < Liza::Error; end
+  class Error < Error; end
 
   #
 
-  set :log_color, :green
+  color :green
 
+  panel :bench
+  panel :command
+  panel :generator
+  panel :log
+  panel :shell
+  
 end

data/lib/eco_system/eco_box.rb

@@ -0,0 +1,5 @@
+class EcoSystem::EcoBox < Liza::Box
+
+  section :preconfiguration
+
+end

data/lib/eco_system/eco_box_test.rb

@@ -0,0 +1,16 @@
+class EcoSystem::EcoBoxTest < Liza::BoxTest
+
+  section :systemic
+
+  test :subject_class do
+    assert_equality subject_class, EcoSystem::EcoBox
+  end
+
+  test_sections(
+  )
+
+  test :settings do
+    assert_equality subject_class.log_level, 4
+  end
+
+end

data/lib/eco_system/eco_system_test.rb

@@ -0,0 +1,9 @@
+class EcoSystem::EcoSystemTest < Liza::SystemTest
+
+  section :systemic
+
+  test :subject_class do
+    assert_equality subject_class, EcoSystem::EcoSystem
+  end
+
+end

data/lib/eco_system.rb

@@ -0,0 +1,11 @@
+class EcoSystem < Liza::System
+
+  section :default
+
+  color :lightest_green
+
+  section :info
+
+  #
+
+end

data/lib/happy_system/happy_box.rb

@@ -0,0 +1,9 @@
+class HappySystem::HappyBox < Liza::Box
+
+  # Preconfigure your axo panel
+
+  configure :axo do
+    # 
+  end
+
+end

data/lib/happy_system/happy_box_test.rb

@@ -0,0 +1,20 @@
+class HappySystem::HappyBoxTest < Liza::BoxTest
+
+  test :subject_class do
+    assert subject_class == HappySystem::HappyBox
+  end
+
+  test_methods_defined do
+    on_self
+    on_instance
+  end
+
+  test :panels do
+    a = subject_class.panels.keys
+    b = [:axo]
+    assert_equality a, b
+    
+    assert_sub :axo, HappySystem::Axo, HappySystem::AxoPanel
+  end
+
+end

data/lib/happy_system/happy_system_test.rb

@@ -0,0 +1,3 @@
+class HappySystem::HappySystemTest < Liza::SystemTest
+
+end

data/lib/happy_system/subsystems/axo/axo.rb

@@ -0,0 +1,11 @@
+class HappySystem::Axo < Liza::Controller
+
+  def self.call(env)
+    super
+    log :high, "env.count is #{env.count}"
+    new.tap { _1.env = env }.call(env[:args])
+  end
+
+  attr_accessor :env
+
+end

data/lib/happy_system/subsystems/axo/axo_panel.rb

@@ -0,0 +1,9 @@
+class HappySystem::AxoPanel < Liza::Panel
+
+  def call(env)
+    log :high, "env.count is #{env.count}"
+    env[:args] = Array env[:args][1..-1]
+    env[:axo].call env
+  end
+
+end

data/lib/happy_system/subsystems/axo/axo_panel_test.rb

@@ -0,0 +1,12 @@
+class HappySystem::AxoPanelTest < Liza::PanelTest
+
+  test :subject_class do
+    assert subject_class == HappySystem::AxoPanel
+  end
+
+  test_methods_defined do
+    on_self
+    on_instance :call
+  end
+  
+end

data/lib/happy_system/subsystems/axo/axo_test.rb

@@ -0,0 +1,12 @@
+class HappySystem::AxoTest < Liza::ControllerTest
+
+  test :subject_class do
+    assert subject_class == HappySystem::Axo
+  end
+
+  test_methods_defined do
+    on_self :call
+    on_instance :env, :env=
+  end
+
+end

data/lib/happy_system/subsystems/axo/commands/axo_command.rb

@@ -0,0 +1,41 @@
+class HappySystem::AxoCommand < DevSystem::SimpleCommand
+  
+  #
+
+  def call_default
+    find!
+
+    env[:axo] = @axo
+    HappyBox[:axo].call(env)
+
+    log "done at #{Time.now}"
+  end
+
+  def find!
+    @name = simple_args[0]
+
+    if @name
+      @axo = Liza.const "#{@name}_axo"
+      return
+    end
+
+    @axo = pick_axo
+    @name = @axo.last_namespace.snakecase
+  ensure
+    log :low, "@name = #{@name}"
+    log :low, "@axo = #{@axo}"
+  end
+
+  def pick_axo
+    Lizarb.eager_load!
+    axos = Axo.descendants
+    options = axos.sort_by(&:last_namespace).map do |axo|
+      [
+        "#{axo.last_namespace.snakecase.ljust 30} - #{axo} - #{(axo.get :description) || "No description."}",
+        axo
+      ]
+    end.to_h
+    InputShell.pick_one "Pick an Axolotl ASCII Animation to run", options
+  end
+
+end

data/lib/happy_system/subsystems/axo/commands/axo_command_test.rb

@@ -0,0 +1,8 @@
+class HappySystem::AxoCommandTest < DevSystem::SimpleCommandTest
+  
+  test :subject_class, :subject do
+    assert_equality HappySystem::AxoCommand, subject_class
+    assert_equality HappySystem::AxoCommand, subject.class
+  end
+
+end

data/lib/happy_system/subsystems/axo/generators/axo_generator.rb

@@ -0,0 +1,17 @@
+class HappySystem::AxoGenerator < DevSystem::ControllerGenerator
+
+  # liza g axo name place=app
+
+  def call_default
+    set_default_super ""
+    set_default_require ""
+
+    @description = InputShell.ask("Do you want to add a description?", default: "No description")
+
+    create_controller do |unit, test|
+      unit.section name: :controller
+      test.section name: :subject
+    end
+  end
+  
+end

data/lib/happy_system/subsystems/axo/generators/axo_generator.rb.controller.rb.erb

@@ -0,0 +1,49 @@
+# view controller.rb.erb
+
+  set :description, <%= @description.inspect %>
+
+  # liza axo <%= @name %> 2 2
+  def call(args)
+    cycles = args[0] || "3"
+    sleep_time = args[1] || "3"
+
+    cycles = cycles.to_i
+    sleep_time = sleep_time.to_f / 10
+
+    array = <<-HEREDOC.split("\n")
+              >(.___.)<
+               >(.__.)<
+               >(.___.)<    code
+                >(.__.)<    code to
+                >(.___.)<   code to the
+                 >(.__.)<   code to the right
+                 >(.___.)<  code to the right
+                 >(.__.)<
+code                >(.___.)<
+code to             >(.__.)<
+code to the        >(.___.)<
+code to the left   >(.__.)<
+code to the left  >(.___.)<
+              >(.__.)<
+HEREDOC
+
+    cycles.times do |i|
+      array.each_with_index do |s, j|
+        KernelShell.call_system "clear"
+
+        puts "Axo v0"
+        puts "frame: #{j}/#{array.size}"
+        puts "cycle: #{i}/#{cycles} (#{sleep_time}spf)"
+        puts
+        puts
+        puts "   #{stick s, :bold, :light_white}"
+        puts
+
+        sleep sleep_time
+      end
+    end
+
+    puts stick "That was actually quite a nice workout session!", :black, :white
+    puts stick "        We should do this again some time.     ", :black, :white
+
+  end

data/lib/happy_system/subsystems/axo/generators/axo_generator_test.rb

@@ -0,0 +1,12 @@
+class HappySystem::AxoGeneratorTest < DevSystem::ControllerGeneratorTest
+
+  test :subject_class do
+    assert_equality subject_class, HappySystem::AxoGenerator
+    assert_equality subject.class, HappySystem::AxoGenerator
+  end
+
+  test_erbs_defined(
+    "controller.rb.erb",
+  )
+  
+end

data/lib/happy_system.rb

@@ -1,12 +1,14 @@
 # frozen_string_literal: true
 
 class HappySystem < Liza::System
-  class Error < StandardError; end
+  class Error < Error; end
   # Your code goes here...
 
   #
 
-  set :log_color, :magenta
+  color :coral
+
+  panel :axo
 
   #
 end

data/lib/lab_system/clients/kroki_client.rb

@@ -0,0 +1,135 @@
+class LabSystem::KrokiClient < NetSystem::Client
+
+  # 
+
+  def self.call(name, action, output_format, &block)
+    super({})
+    new(name, action, output_format, &block).call
+  end
+
+  # diagrams
+
+  def self.diagrams
+    fetch(:diagrams) { {} }
+  end
+
+  def self.diagram name, endpoint, *formats
+    diagrams[name] = {endpoint:, formats:}
+
+    define_singleton_method name do |action, format, &block|
+      call(name, action, format, &block)
+    end
+
+    define_singleton_method "new_#{name}" do |action, format, &block|
+      new(name, action, format, &block)
+    end
+  end
+
+  # define diagrams
+
+  # TODO: https://kroki.io/#support
+
+  # diagram :key, "/api", :png, :svg, :jpeg, :pdf, :txt, :base64
+  diagram :plantuml, "/plantuml", :svg
+  diagram :nomnoml, "/nomnoml", :svg
+
+  #
+
+  attr_reader :name, :action, :format, :result, :code, :cache_key
+
+  def initialize(name, action, format, &block)
+    @name = name
+    @render_format = name
+    @action = action
+    @format = format
+    @result = nil
+    instance_exec(&block) if block_given?
+  end
+
+  #
+
+  def call
+    t = Time.now
+    log "Calling #{endpoint} with #{action}.#{name}"
+
+    render_code!
+    read_cache!
+
+    return @result if @result
+
+    http_request!
+    write_cache!
+
+    @result
+  ensure
+    log "#{t.diff}s to render #{action.inspect}"
+    @result
+  end
+
+  #
+
+  def endpoint
+    self.class.diagrams[name][:endpoint]
+  end
+
+  def url
+    "#{KrokiDockerShell.url}#{endpoint}"
+  end
+
+  #
+
+  def render_code!
+    @code = render! @action
+    require "digest/md5"
+    @code_md5 = Digest::MD5.hexdigest(@code)
+  end
+
+  def read_cache!
+    raise "must be called after render_code!" unless @code_md5
+    @cache_key = "tmp/#{App.mode}/clients/kokri/#{action}_#{@code_md5}.#{format}"
+    log "cache_key = #{@cache_key.inspect}"
+    @result = TextShell.read @cache_key if TextShell.exist? @cache_key
+  end
+
+  def write_cache!
+    TextShell.write @cache_key, result
+    cache_key = "tmp/#{App.mode}/clients/kokri/#{action}_#{@code_md5}.#{name}"
+    TextShell.write cache_key, @code
+  end
+
+  def http_request!
+    require "net/http"
+    require "json"
+    t = Time.now
+    
+    request_uri = URI(url)
+    request_headers = {'Content-Type' => 'application/json'}
+    request_body = {diagram_source: code, output_format: format}.to_json
+    log "POST #{request_uri} #{request_headers.count} headers and #{request_body.size} bytes of data."
+    @response = Net::HTTP.post(request_uri, request_body, request_headers)
+
+    if @response.code == '200'
+      @result = @response.body
+    else
+      puts "---- HTTP #{@response.code} ----"
+      puts @response.body
+      puts "----"
+      raise "Error calling Kroki API. HTTP Status Code: #{@response.code}"
+    end
+  ensure
+    log "#{t.diff}s to request #{request_uri}"
+  end
+
+end
+
+__END__
+
+# view ab.plantuml.erb
+
+@startuml
+A <|.. B
+@enduml
+
+# view ab.nomnoml.erb
+
+[A]<:-[B]

data/lib/lab_system/clients/kroki_client_test.rb

@@ -0,0 +1,28 @@
+class LabSystem::KrokiClientTest < NetSystem::ClientTest
+
+  test :subject_class do
+    assert_equality subject_class, LabSystem::KrokiClient
+  end
+
+  #
+
+  test :call do
+    result = subject_class.call(:nomnoml, :ab, :svg)
+    assert result.start_with? "<svg"
+  end
+
+  #
+
+  test :nomnoml do
+    result = subject_class.nomnoml(:ab, :svg)
+    assert result.start_with? "<svg"
+  end
+
+  test :plantuml do
+    result = subject_class.plantuml(:ab, :svg)
+    unless assert result.start_with? %|<?xml version="1.0" encoding="us-ascii" standalone="no"?><svg|
+      puts result
+    end
+  end
+
+end