scarpe 0.2.1 → 0.2.2

data/examples/local_fonts.rb

@@ -0,0 +1,4 @@
+Shoes.app do
+  font "fonts/Pacifico.ttf"
+  para "Hello yayyy"
+end

data/examples/local_images.rb

@@ -0,0 +1,4 @@
+Shoes.app do
+    image "docs/static/man-builds.png"
+  end
+  

data/examples/motion_events.rb

@@ -0,0 +1,20 @@
+Shoes.app width: 600, height: 600 do
+  stack do
+    para "Events and Menus"
+    flow do
+      @btn1 = button "button 1", width: 75 do
+        @eb.append "button 1 clicked\n"
+      end
+      click do
+        @eb.append "flow click\n"
+      end
+      hover do
+        @eb.append "flow hover\n"
+      end
+    end
+    @eb = edit_box width: 500, height: 350
+  end
+  motion do |x, y, mods|
+    @eb.append "motion #{x},#{y} #{mods} "
+  end
+end

data/examples/parse_xl_funnies.rb

@@ -0,0 +1,58 @@
+require 'nokogiri'
+require 'open-uri'
+require 'tempfile'
+
+class Comic
+  attr_reader :rss, :title
+
+  def initialize(file_path)
+    @rss = Nokogiri::XML(File.open(file_path))
+    @title = @rss.at("//channel/title").text
+  end
+
+  def items
+    @rss.search("//channel/item")
+  end
+
+  def latest_image
+    item = @rss.at("//channel/item[1]")
+    description = item.at("description").text
+    image_url = description.match(/src="([^"]+\.\w+)"/)[1]
+    title = item.at("title").text
+    [title, image_url]
+  end
+end
+
+Shoes.app width: 800, height: 600 do
+  background "#555"
+  @title = "Web Funnies"
+
+  stack margin: 10 do
+    title strong(@title), align: "center", stroke: "#DFA", margin: 0
+    para "(loaded from RSS feeds)", align: "center", stroke: "#DFA", margin: 0
+
+    url = "https://xkcd.com/rss.xml"
+    rss_string = URI.open(url).read
+
+    file = Tempfile.new('download')
+    file.write(rss_string)
+    file.close
+    file_path = file.path
+
+    c = Comic.new(file_path)
+
+    stack width: "100%", margin: 10, border: 1 do
+      stack  do
+        background "#333", curve: 4
+        caption c.title, stroke: "#CD9", margin: 4
+      end
+
+      title, image_url = c.latest_image
+
+      flow do
+        image image_url
+        para strong(title), margin: 8, stroke: white
+      end
+    end
+  end
+end

data/examples/radio/radio.rb

@@ -0,0 +1,16 @@
+ Shoes.app do
+    stack do
+      para "Among these films, which do you prefer?"
+      flow { radio; para "The Taste of Tea by Katsuhito Ishii" }
+      flow { radio "a"; para "Kin-Dza-Dza by Georgi Danelia" }
+      flow { radio; para "Children of Heaven by Majid Majidi" }
+      @btn = radio; para "The White Balloon by Jafar Panahi"
+      button "Mark me" do
+        @btn.checked = true
+
+      end
+      button "unmark me" do
+        @btn.checked = false
+      end
+    end
+  end

data/examples/radio/radio_groups.rb

@@ -0,0 +1,18 @@
+ Shoes.app do
+  stack do
+    para "Among these films, which do you prefer?"
+    flow do
+      radio :films
+      para "The Taste of Tea by Katsuhito Ishii"
+    end
+    flow do
+      radio :films
+      para "Kin-Dza-Dza by Georgi Danelia"
+    end
+    flow do
+      radio :films
+      para "Children of Heaven by Majid Majidi"
+    end
+    puts radio(:films).checked?
+  end
+end

data/examples/radio/radio_same_slot.rb

@@ -0,0 +1,6 @@
+ Shoes.app do
+  para "Among these films, which do you prefer?\n"
+  radio; para strong("The Taste of Tea"), " by Katsuhito Ishii\n"
+  radio; para strong("Kin-Dza-Dza"), " by Georgi Danelia\n"
+  radio; para strong("Children of Heaven"), " by Majid Majidi\n"
+end

data/examples/ruby_racer.rb

@@ -1,30 +1,28 @@
 require "benchmark"
 require "stringio"
 
-Shoes.app(title: "Ruby Racer", debug: true) do
+Shoes.app(title: "Ruby Racer") do
   racer1 = nil
   racer2 = nil
 
   flow do
     stack width: 0.45, margin: 5 do
       para "Racer 1", size: :caption
-      racer1 = edit_box(width: "100%", height: 100) do
-        <<~RUBY
-          for i in 1..10
-            a = "1"
-          end
-        RUBY
-      end
+      code1 = <<~RUBY
+        for i in 1..10
+          a = "1"
+        end
+      RUBY
+      racer1 = edit_box(code1, width: "100%", height: 100)
     end
     stack width: 0.45, margin: 5 do
       para "Racer 2", size: :caption
-      racer2 = edit_box(width: "100%", height: 100) do
-        <<~RUBY
-          10.times do
-            a = "1"
-          end
-        RUBY
-      end
+      code2 = <<~RUBY
+        10.times do
+          a = "1"
+        end
+      RUBY
+      racer2 = edit_box(code2, width: "100%", height: 100)
     end
   end
 

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/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,44 @@
 #!/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)"),
+])
 
 verb = "run"
 verb_target = nil
@@ -83,26 +69,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 ARGV[0]
+when "env"
+  print_env
+else
+  raise "Internal error! Unknown ./exe/scarpe verb!"
 end

data/lacci/Gemfile

@@ -0,0 +1,22 @@
+# frozen_string_literal: true
+
+source "https://rubygems.org"
+
+gemspec
+
+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,72 @@
+PATH
+  remote: .
+  specs:
+    lacci (0.2.1)
+
+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
+  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]