scarpe 0.2.1 → 0.3.0

data/examples/selfitude.rb

@@ -0,0 +1,18 @@
+def printish(msg)
+  #$stderr.puts msg
+  File.open("/tmp/shoesy_stuff.txt", "a") do |f|
+    f.write(msg + "\n")
+  end
+end
+
+Shoes.app do
+  printish "Self top: #{self.inspect}" # It's an instance of Shoes::App, yes
+  stack do
+    printish "Self in stack: #{self.inspect}" # Yup, here too
+  end
+  button("Clickity") do
+    alert("You clicked me!")
+    printish "Self in button handler: #{self.inspect}" # And here too
+  end
+end
+

data/examples/shapes/shapes_fill.rb

@@ -1,10 +1,11 @@
 Shoes.app do
     shape do
         fill "blue"
-        fill "green"
+        stroke "green" # Lines use stroke, not fill, for their color
         line 0,0, 100, 100
+
         fill "red"
+        stroke "black" # Change the stroke back to black for the star
         star 23, 0, 6, 50, 25
     end
-  end
-  
+end

data/examples/shoes_school.rb

@@ -1,4 +1,4 @@
-Shoes.app(title: "Shoes School", height: 700, width: 1000) do
+Shoes.app(title: "Shoes School", height: 800, width: 1000) do
   CHAPTERS = [
     [
       %(
@@ -37,9 +37,7 @@ Shoes.app(title: "Shoes School", height: 700, width: 1000) do
   end
   stack do
     flow do
-      IDE = edit_box(height: 300, width: "100%") do
-        CHAPTERS[current_chapter][0]
-      end
+      IDE = edit_box(CHAPTERS[current_chapter][0], height: 300, width: "100%")
     end
     flow do
       LECTURE = para CHAPTERS[current_chapter][1], size: 30

data/examples/show_hide.rb

@@ -0,0 +1,6 @@
+Shoes.app do
+  @b1 = button("First")
+  @b2 = button("Hide First") { @b1.hide }
+  @b3 = button("Show everybody") { @b1.show; @b2.show; @b3.show; @b4.show }
+  @b4 = button("Toggle Hide-First") { @b2.toggle }
+end

data/examples/simpler-menu.rb

@@ -0,0 +1,21 @@
+# Cut down from a more complicated example widget
+
+class MenuPanel < Shoes::Widget
+  @@boxes = []
+  def initialize(color, args)
+    @@boxes << self
+    background color
+    para "Box #{@@boxes.length}",
+        :margin => 18, :align => "center", :size => 20
+  end
+end
+
+Shoes.app :width => 400, :height => 130 do
+  #style(Link, :underline => nil)
+  #style(LinkHover, :fill => nil, :underline => nil)
+  menu_panel green,  :width => 175, :height => 120, :margin => 4
+  menu_panel blue,   :width => 140, :height => 120, :margin => 4
+  menu_panel red,    :width => 135, :height => 120, :margin => 4
+  menu_panel purple, :width => 125, :height => 120, :margin => 4
+end
+

data/examples/skip_ci/change_my_audio_source.rb

@@ -0,0 +1,21 @@
+# brew install switchaudio-osx
+
+Shoes.app height: 450, width: 450, title: "Change Audio Source 🔊" do
+  flow do
+    background beige
+    border black, strokewidth: 6
+    banner "Change Audio Source", align: "center"
+    ins "Requires SwitchAudioSource, install with:"
+    ins strong "brew install switchaudio-osx"
+  end
+  current = `SwitchAudioSource -c`.chomp
+  @current_source = tagline "Current audio source: #{current}"
+  sources = `SwitchAudioSource -a`.split("\n").map do |source|
+    flow do
+      button source do
+        `SwitchAudioSource -s "#{source.chomp}"`
+        @current_source.replace "Current audio source: #{source.chomp}"
+      end
+    end
+  end
+end

data/examples/skip_ci/guitar_fretboard.rb

@@ -0,0 +1,137 @@
+require 'bloops'
+
+class Fret
+  def initialize(string, fret_idx, note, octave)
+    @string = string
+    @fret_idx = fret_idx
+    @note = note
+    @octave = octave
+  end
+
+  attr_reader :note
+  attr_reader :fret_idx
+  attr_reader :string
+
+  def to_s
+    "#{@note}#{@octave}"
+  end
+end
+
+class GuitarString
+  NOTES = %w{a a# b c c# d d# e f f# g g#}
+  FRET_COUNT = 23
+
+  include Enumerable
+
+  attr_reader :frets
+  attr_reader :fret_radios
+
+  def initialize(idx, open_note, starting_octave)
+    @root_note_index = NOTES.index(open_note)
+    octave = starting_octave
+
+
+    fret_index = 0
+    @frets = NOTES.cycle
+      .take(FRET_COUNT + @root_note_index)
+      .to_a[@root_note_index..-1]
+      .map { |note|
+        if note == NOTES.first
+          octave +=1
+        end
+        Fret.new(idx, fret_index, note, octave)
+      }
+    @fret_radios = {}
+  end
+
+  def render(app)
+    frets = @frets
+    string = self
+
+    app.flow(height: "15%") do
+      frets.each do |f|
+        flow width: "3%" do
+          border black, strokewidth: 1
+          background linen
+          string.fret_radios[f] = radio(f.string)
+          caption f.note
+        end
+      end
+    end
+  end
+end
+
+class Tunings
+  STANDARD  = %w{ e a d g b e }
+  DSTANDARD = %w{ d g c f a d }
+  DADGAD    = %w{ d a d g a d }
+
+  def self.get(constname)
+    tconst = constname.upcase.gsub(" ", "")
+    const_get(tconst).reverse.map.with_index do |n, idx|
+      GuitarString.new(idx, n, 2)
+    end
+  end
+end
+
+def bloops
+  @bloops ||= Bloops.new
+end
+
+def play_chord(notes)
+  bloops.clear
+  sound = bloops.sound Bloops::SQUARE
+  sound.sustain = 0.05
+  sound.decay = 0.35
+
+  notes.each do |n|
+    bloops.tune sound, n
+  end
+
+  bloops.play
+end
+
+Shoes.app(width: 1280, height: 400) do
+  @tuning = "standard"
+  @strings = Tunings::get(@tuning)
+  @fretboard = []
+
+  render_strings = ->(app) {
+    @strings.each do |string|
+      string.render(app)
+    end
+  }
+
+  flow do
+    @current_tuning = title @tuning
+    @fretboard = stack width: "100%", margin: 20, &render_strings
+
+    stack do
+      button "Play" do
+        fretted_notes = @strings.flat_map { |s|
+          s.fret_radios.select { |k, v| v.checked? }.keys
+        }.map(&:to_s)
+
+        play_chord(fretted_notes)
+
+        @strings.map do |s|
+          s.fret_radios.map { |_, r| r.checked = false }
+        end
+      end
+
+      flow do
+        caption "Select a tuning:"
+        @tuning_select = list_box(
+                                  items: ["d standard", "dadgad", "standard"]
+                                 ).change { |tuning| @tuning = tuning }
+        
+        button "Change Tuning" do
+          self.instance_variable_set("@strings", Tunings::get(@tuning))
+          @fretboard.clear
+          @fretboard.append(&render_strings)
+          @current_tuning.replace @tuning
+        end
+      end
+    end
+  end
+end

data/examples/video.rb

@@ -0,0 +1,10 @@
+Shoes.app do
+    stack do
+        para "Video"
+        video "http://techslides.com/demos/sample-videos/small.mp4"
+    end
+    stack do
+        para "Video 2"
+        video "https://samplelib.com/lib/preview/mp4/sample-5s.mp4"
+    end
+end

data/exe/scarpe

@@ -1,58 +1,45 @@
 #!/usr/bin/env ruby
 
-# We need to not use syntactic features of very recent Rubies in this file, so that it parses
-# correctly in earlier Rubies and can successfully give the version-check error.
-if RUBY_VERSION[0..2] < "3.2"
-  STDERR.puts("Scarpe requires Ruby 3.2 or higher!")
-  exit(-1)
-end
+# First we need to load Scarpe and Lacci, which means figuring out where from.
 
-def print_usage
-  puts <<USAGE
-Usage: scarpe [OPTIONS] <scarpe app file>           # Same as "scarpe run"
-       scarpe [OPTIONS] run <scarpe app file>
-       scarpe [OPTIONS] env                         # print Scarpe environment settings
-       scarpe -v                                    # print the Scarpe gem version and exit
-  Options:
-      --dev                          Use development local scarpe, not an installed gem
-      --debug                        Turn on application debug mode
-USAGE
-end
+# --dev option applies to all actions
+use_dev = ARGV.delete("--dev") ? true : false
+use_debug = ARGV.delete("--debug") ? true : false
 
-def env_or_default(env_var, default_val)
-  "#{env_var}: #{ENV[env_var] || default_val}"
+# Default to local webview display if not otherwise given
+ENV['SCARPE_DISPLAY'] ||= 'wv_local'
+
+if use_debug
+  ENV['SCARPE_DEBUG'] = 'true'
+end
+if use_dev
+  dev_path = File.expand_path("../lib", __dir__)
+  $LOAD_PATH.prepend dev_path
 end
 
-def env_or_none(env_var)
-  env_or_default(env_var, "(none)")
+if use_dev
+  require 'bundler/setup'
+  Bundler.require(:default)
 end
+require "scarpe"
+require "lacci/scarpe_cli"
+
+include Scarpe::CLI
 
-def print_env
-  puts <<~SCARPE_ENV
-    Scarpe environment:
-      #{env_or_default("SCARPE_DISPLAY_SERVICE", "(default)wv_local")}
-      #{env_or_default("SCARPE_LOG_CONFIG", "(default)#{Scarpe::Log::DEFAULT_LOG_CONFIG.inspect}")}
-    Scarpe::WV environment:
-      #{env_or_none("SCARPE_TEST_CONTROL")}
-      #{env_or_none("SCARPE_TEST_RESULTS")}
-      #{env_or_none("SCARPE_DEBUG")}
-    Ruby and shell environment:
-      RUBY_DESCRIPTION: #{RUBY_DESCRIPTION.inspect}
-      RUBY_PLATFORM: #{RUBY_PLATFORM.inspect}
-      RUBY_ENGINE: #{RUBY_ENGINE.inspect}
-      #{env_or_none("SHELL")}
-      #{env_or_none("PATH")}
-      #{env_or_none("LD_LIBRARY_PATH")}
-      #{env_or_none("DYLD_LIBRARY_PATH")}
-      #{env_or_none("GEM_ROOT")}
-      #{env_or_none("GEM_HOME")}
-      #{env_or_none("GEM_PATH")}
-  SCARPE_ENV
+# We need to not use syntactic features of very recent Rubies in this file, so that it parses
+# correctly in earlier Rubies and can successfully give the version-check error.
+version_check
+
+def print_usage
+  puts DEFAULT_USAGE
 end
 
-# --dev option applies to all actions
-use_dev = ARGV.delete("--dev") ? true : false
-use_debug = ARGV.delete("--debug") ? true : false
+add_env_categories("Scarpe::WV" => [
+  env_or_default("SCARPE_TEST_CONTROL", "(none)"),
+  env_or_default("SCARPE_TEST_RESULTS", "(none)"),
+  env_or_default("SCARPE_TEST_DEBUG", "(none)"),
+  env_or_default("SCARPE_HTML_RENDERER", "calzini"),
+])
 
 verb = "run"
 verb_target = nil
@@ -83,26 +70,16 @@ else
   verb_target = ARGV[0]
 end
 
-if use_debug
-  ENV['SCARPE_DEBUG'] = 'true'
-end
-if use_dev
-  dev_path = File.expand_path("../lib", __dir__)
-  $LOAD_PATH.prepend dev_path
-end
-# We mustn't require Scarpe sooner than this so that the --dev setting is respected
-require "scarpe"
-
-Shoes = Scarpe unless defined?(Shoes)
-
 case verb
-  when "-v"
-    puts "Scarpe #{Scarpe::VERSION}"
-  when "run"
-    # Run the Scarpe app file
-    load ARGV[0]
-  when "env"
-    print_env
-  else
-    raise "Internal error! Unknown ./exe/scarpe verb!"
+when "-v"
+  puts "Scarpe #{Scarpe::VERSION}"
+  puts "Scarpe-Components #{Scarpe::Components::VERSION}"
+  puts "Lacci #{Lacci::VERSION}"
+when "run"
+  # Run the Scarpe app file
+  Shoes.run_app verb_target
+when "env"
+  print_env
+else
+  raise "Internal error! Unknown ./exe/scarpe verb!"
 end

data/lacci/Gemfile

@@ -0,0 +1,24 @@
+# frozen_string_literal: true
+
+source "https://rubygems.org"
+
+gemspec
+
+gem "scarpe-components", path: "../scarpe-components"
+
+gem "rake", "~> 13.0"
+
+group :test do
+  gem "minitest", "~> 5.0"
+  gem "minitest-reporters"
+end
+
+group :development do
+  gem "yard"
+  gem "redcarpet"
+  gem "debug"
+  gem "rubocop", "~> 1.21"
+  gem "rubocop-shopify"
+  #gem "commonmarker"
+  #gem "github-markup"
+end

data/lacci/Gemfile.lock

@@ -0,0 +1,79 @@
+PATH
+  remote: ../scarpe-components
+  specs:
+    scarpe-components (0.3.0)
+
+PATH
+  remote: .
+  specs:
+    lacci (0.3.0)
+      scarpe-components
+
+GEM
+  remote: https://rubygems.org/
+  specs:
+    ansi (1.5.0)
+    ast (2.4.2)
+    builder (3.2.4)
+    debug (1.8.0)
+      irb (>= 1.5.0)
+      reline (>= 0.3.1)
+    io-console (0.6.0)
+    irb (1.7.2)
+      reline (>= 0.3.6)
+    json (2.6.3)
+    language_server-protocol (3.17.0.3)
+    minitest (5.18.1)
+    minitest-reporters (1.6.0)
+      ansi
+      builder
+      minitest (>= 5.0)
+      ruby-progressbar
+    parallel (1.23.0)
+    parser (3.2.2.3)
+      ast (~> 2.4.1)
+      racc
+    racc (1.7.1)
+    rainbow (3.1.1)
+    rake (13.0.6)
+    redcarpet (3.6.0)
+    regexp_parser (2.8.1)
+    reline (0.3.6)
+      io-console (~> 0.5)
+    rexml (3.2.5)
+    rubocop (1.54.1)
+      json (~> 2.3)
+      language_server-protocol (>= 3.17.0)
+      parallel (~> 1.10)
+      parser (>= 3.2.2.3)
+      rainbow (>= 2.2.2, < 4.0)
+      regexp_parser (>= 1.8, < 3.0)
+      rexml (>= 3.2.5, < 4.0)
+      rubocop-ast (>= 1.28.0, < 2.0)
+      ruby-progressbar (~> 1.7)
+      unicode-display_width (>= 2.4.0, < 3.0)
+    rubocop-ast (1.29.0)
+      parser (>= 3.2.1.0)
+    rubocop-shopify (2.14.0)
+      rubocop (~> 1.51)
+    ruby-progressbar (1.13.0)
+    unicode-display_width (2.4.2)
+    yard (0.9.34)
+
+PLATFORMS
+  x86_64-darwin-22
+
+DEPENDENCIES
+  debug
+  lacci!
+  minitest (~> 5.0)
+  minitest-reporters
+  rake (~> 13.0)
+  redcarpet
+  rubocop (~> 1.21)
+  rubocop-shopify
+  scarpe-components!
+  yard
+
+BUNDLED WITH
+   2.4.10

data/lacci/Rakefile

@@ -0,0 +1,12 @@
+# frozen_string_literal: true
+
+require "bundler/gem_tasks"
+require "rake/testtask"
+
+Rake::TestTask.new(:test) do |t|
+  t.libs << "test"
+  t.libs << "lib"
+  t.test_files = FileList["test/**/test_*.rb"]
+end
+
+task default: [:test]

data/lacci/lacci.gemspec

@@ -0,0 +1,37 @@
+# frozen_string_literal: true
+
+require_relative "lib/lacci/version"
+
+Gem::Specification.new do |spec|
+  spec.name = "lacci"
+  spec.version = Lacci::VERSION
+  spec.authors = ["Marco Concetto Rudilosso", "Noah Gibbs"]
+  spec.email = ["marcoc.r@outlook.com", "the.codefolio.guy@gmail.com"]
+
+  spec.summary = "Lacci - a portable Shoes DSL with switchable display backends, part of Scarpe"
+  spec.homepage = "https://github.com/scarpe-team/scarpe"
+  spec.license = "MIT"
+  spec.required_ruby_version = ">= 3.2.0"
+
+  # spec.metadata["allowed_push_host"] = "TODO: Set to your gem server 'https://example.com'"
+
+  spec.metadata["homepage_uri"] = spec.homepage
+  spec.metadata["source_code_uri"] = "https://github.com/scarpe-team/scarpe"
+  spec.metadata["changelog_uri"] = "https://github.com/scarpe-team/scarpe/blob/main/CHANGELOG.md"
+
+  # Specify which files should be added to the gem when it is released.
+  # The `git ls-files -z` loads the files in the RubyGem that have been added into git.
+  spec.files = Dir.chdir(File.expand_path(__dir__)) do
+    `git ls-files -z`.split("\x0").reject do |f|
+      (f == __FILE__) || f.match(%r{\A(?:(?:test|spec|features)/|\.(?:git|travis|circleci)|appveyor)})
+    end
+  end
+  spec.bindir = "exe"
+  spec.executables = spec.files.grep(%r{\Aexe/}) { |f| File.basename(f) }
+  spec.require_paths = ["lib"]
+
+  spec.add_dependency "scarpe-components" # Scarpe-Components has no dependencies, and includes useful infrastructure
+
+  # For more information and examples about making a new gem, check out our
+  # guide at: https://bundler.io/guides/creating_gem.html
+end

data/lacci/lib/lacci/scarpe_cli.rb

@@ -0,0 +1,71 @@
+# frozen_string_literal: true
+
+module Scarpe
+  module CLI
+    DEFAULT_USAGE = <<~'USAGE'
+      Usage: scarpe_core [OPTIONS] <scarpe app file>           # Same as "scarpe run"
+             scarpe_core [OPTIONS] run <scarpe app file>
+             scarpe_core [OPTIONS] env                         # print Scarpe environment settings
+             scarpe_core -v                                    # print the Scarpe gem version and exit
+        Options:
+            --dev                          Use development local scarpe, not an installed gem
+            --debug                        Turn on application debug mode
+    USAGE
+
+    def version_check
+      if RUBY_VERSION[0..2] < "3.2"
+        raise "Scarpe and Lacci require Ruby 3.2 or higher!"
+      end
+    end
+
+    def env_or_default(env_var, default_val)
+      [env_var, ENV[env_var] ? ENV[env_var].inspect : default_val]
+    end
+
+    def default_env_categories
+      require "shoes"
+      {
+        "Lacci" => [
+          env_or_default("SCARPE_DISPLAY_SERVICE", "(none)"),
+          env_or_default("SCARPE_LOG_CONFIG", "(default)#{Shoes::Log::DEFAULT_LOG_CONFIG.inspect}"),
+          env_or_default("SCARPE_APP_TEST", "(none)"),
+        ],
+        "Ruby and Shell" => [
+          ["RUBY_DESCRIPTION", RUBY_DESCRIPTION],
+          ["RUBY_PLATFORM", RUBY_PLATFORM],
+          ["RUBY_ENGINE", RUBY_ENGINE],
+          env_or_default("SHELL", "(none)"),
+          env_or_default("PATH", "(none)"),
+          env_or_default("LD_LIBRARY_PATH", "(none)"),
+          env_or_default("DYLD_LIBRARY_PATH", "(none)"),
+          env_or_default("GEM_ROOT", "(none)"),
+          env_or_default("GEM_HOME", "(none)"),
+          env_or_default("GEM_PATH", "(none)"),
+        ],
+      }
+    end
+
+    def env_categories
+      @env_categories ||= default_env_categories
+      @env_categories
+    end
+
+    def add_env_categories(categories)
+      unless categories.is_a?(Hash)
+        raise("Please supply a hash with categories names as keys and an array of two-elt arrays as values!")
+      end
+
+      # Try to get categories into the *start* of the hash, insertion-order-wise
+      @env_categories = categories.merge(env_categories)
+    end
+
+    def print_env
+      env_categories.each do |category, entries|
+        puts "#{category} environment:"
+        entries.each do |name, val|
+          puts "  #{name}: #{val}"
+        end
+      end
+    end
+  end
+end

data/lacci/lib/lacci/scarpe_core.rb

@@ -0,0 +1,22 @@
+# frozen_string_literal: true
+
+# Lacci is one place we put components that have no hard gem requirements.
+# It needs to connect to Scarpe, mostly via the Shoes DisplayService.
+# Some display services, like Wasm, cannot install or otherwise tolerate
+# Scarpe's need for a variety of gems, especially those with native extensions.
+# So we need a simple require-able Scarpe core here in Lacci that can be
+# required from display services that cannot link with the base Scarpe gem.
+
+if RUBY_VERSION[0..2] < "3.2"
+  Shoes::Log.logger("Scarpe").error("Scarpe requires Ruby 3.2 or higher!")
+  exit(-1)
+end
+
+module Scarpe; end
+
+# The base error class for Scarpe errors, but not necessarily {Shoes::Error}s
+class Shoes::Error < StandardError; end
+class Scarpe::Error < StandardError; end
+
+require "lacci/version"
+require "scarpe/components/version"

data/lacci/lib/lacci/version.rb

@@ -0,0 +1,13 @@
+# frozen_string_literal: true
+
+# The name "scarpe" means "shoes" in Italian. "Lacci"
+# means "laces." Lacci is the display-independent part
+# of Scarpe, tying the Shoes API to the display service
+# of your choice.
+#
+# Almost nothing is called Lacci in your program. It's
+# mostly invisible. Instead, look at the {Shoes} module
+# to see what's in Lacci.
+module Lacci
+  VERSION = "0.3.0"
+end

data/lacci/lib/scarpe/niente/app.rb

@@ -0,0 +1,23 @@
+# frozen_string_literal: true
+
+module Niente
+  class App < Drawable
+    def initialize(properties)
+      super
+
+      bind_shoes_event(event_name: "init") { init }
+      bind_shoes_event(event_name: "run") { run }
+      bind_shoes_event(event_name: "destroy") { destroy }
+    end
+
+    def init
+    end
+
+    def run
+      send_shoes_event("wait", event_name: "custom_event_loop")
+    end
+
+    def destroy
+    end
+  end
+end