scarpe 0.1.0 → 0.2.0

data/examples/ruby_racer.rb

@@ -0,0 +1,52 @@
+require "benchmark"
+require "stringio"
+
+Shoes.app(title: "Ruby Racer", debug: true) 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
+    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
+    end
+  end
+
+  stack margin: 10 do
+    @push = button "Race!"
+    @results = para ""
+    @push.click {
+      @results.replace "And they're off!"
+      run = run_benchmark(racer1.text, racer2.text)
+      @results.replace "<pre>Results:<br/>#{run}</pre>"
+    }
+
+    def run_benchmark(code1, code2)
+      current_stdout = $stdout
+      $stdout = StringIO.new
+      Benchmark.bmbm do |x|
+        x.report("Code 1") { eval(code1) }
+        x.report("Code 2") { eval(code2) }
+      end
+      $stdout.string.gsub("\n", "<br />")
+    ensure
+      $stdout = current_stdout
+    end
+  end
+end

data/examples/shapes/arc.rb

@@ -0,0 +1,8 @@
+Shoes.app(height:600) do
+  arc 400, 0, 120, 100, 175, 175
+  arc 50, 50, 120, 100, 60, 225
+  star 230, 100, 6, 50, 25
+
+  arc 550, 50, 200, 100, Math::PI/2, 3*Math::PI/2
+  arc 300, 50, 200, 100, Math::PI/4, Math::PI
+  end

data/examples/shapes/shapes.rb

@@ -0,0 +1,8 @@
+Shoes.app do
+  shape do
+    move_to(90, 55)
+    line_to(400,10)
+    line_to(400,90)
+
+  end
+end

data/examples/shapes/shapes_fill.rb

@@ -0,0 +1,10 @@
+Shoes.app do
+    shape do
+        fill "blue"
+        fill "green"
+        line 0,0, 100, 100
+        fill "red"
+        star 23, 0, 6, 50, 25
+    end
+  end
+  

data/examples/shapes/star.rb

@@ -0,0 +1,5 @@
+Shoes.app do
+  star 230, 100, 6, 50, 25
+  
+  end
+  

data/examples/shoes_school.rb

@@ -0,0 +1,68 @@
+Shoes.app(title: "Shoes School", height: 700, width: 1000) do
+  CHAPTERS = [
+    [
+      %(
+        Shoes.app do
+          para "Hello World"
+        end
+      ),
+      %(
+        Welcome! To the wide, wild, wonderful world of Shoes. I am your Shoes School instructor, Professor Flopsicle. Shoes lets you
+        write nifty desktop apps. In pure Ruby! Don't believe me? Here's one right here!
+        Click "run" to run it. You can even play with the code a bit if you want!
+
+        When you are done, proceed to your next lecture by clicking "Next" below me!
+      )
+    ],
+    [
+      %(
+        Shoes.app do
+          @push = button "Push me"
+          @push.click {
+            alert "Aha! Click!"
+          }
+        end
+      ),
+      %(
+        Oh wow, you made it to the second lesson! Umm, well this is _embarrassing_. I never
+        thought you would get this far! Give me a bit and we'll have something really nice
+        whipped up for you. I swear!
+      )
+    ]
+  ]
+
+  current_chapter = 0
+  stack do
+    banner "Shoes School!"
+  end
+  stack do
+    flow do
+      IDE = edit_box(height: 300, width: "100%") do
+        CHAPTERS[current_chapter][0]
+      end
+    end
+    flow do
+      LECTURE = para CHAPTERS[current_chapter][1], size: 30
+    end
+    flow do
+      stack do
+        @run = button "Run 🏃", width: 200, height: 50#, top: 109, left: 132
+        @run.click {
+          puts "I got clicked!"
+          # System code to kick this off
+          # we'll have a loading splash page on first fireup to run bin setup
+        }
+      end
+      stack do
+        @next = button "Next ✅", width: 200, height: 50#, top: 109, left: 132
+        @next.click {
+          current_chapter += 1
+          # not working yet
+          # IDE.text = CHAPTERS[current_chapter][0]
+          # yeah, I dunno, ivars and local vars giving me trouble. annoying!
+          LECTURE.replace(CHAPTERS[current_chapter][1])
+        }
+      end
+    end
+  end
+end

data/examples/shoes_splorer.rb

@@ -0,0 +1,150 @@
+#!/usr/bin/env ruby
+
+# It's cool to be able to visualise the Shoes API -- where are various methods available?
+
+# Future plan: this would be a *great* opportunity for a Shoes::Widget so that we could
+# have a "show all the methods by category" thing and put it inside various other widgets
+# to see how they all react.
+
+# What methods should Shoes have? You can do worse than to check Shoes4 Shoes-core:
+# https://github.com/shoes/shoes4/tree/main/shoes-core/lib/shoes/dsl
+SHOES_API_CATEGORIES = {
+  animate: {
+    animate: {},
+    every: {},
+    timer: {},
+  },
+
+  art: {
+    arrow: {},
+    arc: {},
+    line: {},
+    oval: {},
+    rect: {},
+    star: {},
+    shape: {},
+    mask: {},
+  },
+
+  element: {
+    border: {},
+    background: {},
+    edit_line: {},
+    edit_box: {},
+    progress: {},
+    check: {},
+    radio: {},
+    list_box: {},
+    flow: {},
+    stack: {},
+    button: {},
+  },
+
+  interaction: {
+    mouse: {},
+    motion: {},
+    resize: {},
+    hover: {},
+    leave: {},
+    keypress: {},
+    keyrelease: {},
+    append: {},
+    visit: {},
+    scroll_top: {},
+    #"scroll_top=": {},
+    clipboard: {},
+    #"clipboard=": {},
+    download: {},
+    gutter: {},
+  },
+
+  media: {
+    image: {},
+    video: {},
+    sound: {},
+  },
+
+  setup: {
+    # This is deprecated in recent Shoes, but was once how to install gems
+    setup: {},
+  },
+
+  style: {
+    style: {},
+    fill: {},
+    stroke: {},
+    cap: {},
+    rotate: {},
+    strokewidth: {},
+    transform: {},
+    translate: {},
+    nostroke: {},
+    nofill: {},
+  },
+
+  text: {
+    # Text widgets and similar
+    banner: {},
+    title: {},
+    subtitle: {},
+    tagline: {},
+    caption: {},
+    para: {},
+    inscription: {},
+
+    code: {},
+    del: {},
+    em: {},
+    ins: {},
+    sub: {},
+    sup: {},
+    strong: {},
+
+    fg: {},
+    bg: {},
+    link: {},
+    span: {},
+  },
+}
+
+def shoes_api_reactivity(instance)
+  reactivity = {}
+
+  SHOES_API_CATEGORIES.each do |category_name, category|
+    cat_data = category.map do |method_name, data| # For now ignore data
+      [method_name, instance.respond_to?(method_name)]
+    end
+
+    if cat_data.none? { |_name, reacts| reacts }
+      reactivity[category_name] = false
+    elsif cat_data.all? { |_name, reacts| reacts }
+      reactivity[category_name] = true
+    else
+      out = {}
+      cat_data.each do |name, reacts|
+        out[name] = reacts
+      end
+      reactivity[category_name] = out
+    end
+  end
+
+  reactivity
+end
+
+Shoes.app(title: "Shoes-splorer!") do
+  para "What Shoes methods are available?"
+
+  shoes_api_reactivity(self).flat_map do |category, cat_reacts|
+    if cat_reacts.respond_to?(:each)
+      para *(cat_reacts.flat_map do |name, reacts|
+        [reacts ? "o" : "x", code(name), " "]
+      end), stroke: :orange
+    elsif cat_reacts
+      # Whole category is true
+      para strong(" #{category}[Woot!] "), stroke: :green
+    else
+      # Whole category is false
+      para em(" xxx"), category.to_s, em("xxx "), stroke: :red
+    end
+  end
+end

data/examples/simple_slides.rb

@@ -0,0 +1,73 @@
+
+Shoes.app(title: 'Shoes Slides', width: 800, height: 600) do
+  $slides = [
+    {
+      title: 'Welcome to Shoes!',
+      content: 'Ah, yeah, Shoes!
+      Who said nobody knows Shoes? Well, let me introduce you to a feline expert in the art of Ruby Desktop GUI Libs.
+
+      Meet Professor Whiskers the renowned programmer cat! Not only does he know Shoes, but he\'s also a master of all things Ruby and desktop GUI!
+
+      if you\'re ready to learn Ruby Desktop GUI Libs with a touch of feline finesse, come join us on this whimsical adventure! Professor Whiskers guarantees a purr-fectly entertaining and enlightening experience, where every step forward is as delightful as a cat chasing a laser pointer.
+
+      Remember, in the world of programming, there\'s always room for humor, and Professor Whiskers is here to remind us that even the most serious tasks can be approached with a playful attitude. So, put on your coding slippers and let this extraordinary cat guide you through the marvelous world of Shoes Desktop GUI Libs!
+
+      Meow! join the discord server for more meows!
+      ',
+      image: "https://img.freepik.com/premium-photo/funny-smart-cat-professor-with-glasses-illustration-generative-ai_845977-709.jpg?w=700&h=300"
+    },
+    {
+      title: 'Behold the teachings of Professor Whiskers! here\'s a shoes for you!',
+      content: 'Meow!',
+      image: "http://shoesrb.com/manual/static/shoes-icon.png"
+    },
+    {
+      title: 'Path to englightenment',
+      content: 'Meowww meow meow meow meow meow meow meow meow meow meow meow meow meow meow meow meow!',
+    }
+  ]
+
+  stack do
+    $slides.each_with_index do |slide, index|
+      border black, strokewidth: 2 do
+        flow(margin: 10) do
+          para strong("Slide #{index + 1}: #{slide[:title]}"), margin_bottom: 10
+          para slide[:content]
+          image slide[:image]
+        end
+      end
+    end
+  end
+
+  button 'Previous Slide' do
+    prev_slide = self.slide_index - 1
+    prev_slide = $slides.length - 1 if prev_slide < 0
+    self.slide_index = prev_slide
+  end
+
+  button 'Next Slide' do
+    next_slide = self.slide_index + 1
+    next_slide = 0 if next_slide >= $slides.length
+    self.slide_index = next_slide
+  end
+
+  def slide_index
+    @slide_index ||= 0
+  end
+
+  def slide_index=(value)
+    @slide_index = value
+    update_slide
+  end
+
+  def update_slide
+    current_slide = $slides[self.slide_index]
+    @title.replace "Slide #{self.slide_index + 1}: #{current_slide[:title]}"
+    @content.replace current_slide[:content]
+    @image.replace  current_slide[:image]
+  end
+
+  @title = para strong("Slide 1: #{$slides[0][:title]}"), margin_bottom: 10
+  @content = para $slides[0][:content]
+  @image = image($slides[0][:image])
+end

data/examples/skip_ci/parrot.rb

@@ -0,0 +1,22 @@
+# This example is skipped on CI because it makes system calls
+
+Shoes.app do
+  para "What do you want me to say?"
+  @phrase = edit_line("Soon it was a comet and, soon, a blazing monstrosity.", width: "100%")
+
+  all_voices = `say -v '?'`.lines.map(&:split).map(&:first).uniq.compact
+  @selected_voice = all_voices.first
+  @voice = para "🗣 #{@selected_voice}"
+
+  all_voices.each do |voice|
+    button voice do
+      @voice.replace "🗣 #{voice}"
+      @selected_voice = voice
+    end
+  end
+
+  @push = button "📣"
+  @push.click {
+    `say -v '#{@selected_voice}' #{@phrase.text}`
+  }
+end

data/examples/skip_ci/say.rb

@@ -0,0 +1,20 @@
+Shoes.app do
+  para "What do you want me to say?"
+  @phrase = edit_line("Soon it was a comet and, soon, a blazing monstrosity.", width: "100%")
+
+  all_voices = `say -v '?'`.lines.map(&:split).map(&:first).uniq.compact
+  @selected_voice = all_voices.first
+  @voice = para "🗣 #{@selected_voice}"
+
+  all_voices.each do |voice|
+    button voice do
+      @voice.replace "🗣 #{voice}"
+      @selected_voice = voice
+    end
+  end
+
+  @push = button "📣"
+  @push.click {
+    `say -v '#{@selected_voice}' #{@phrase.text}`
+  }
+end

data/examples/sleepless.rb

@@ -0,0 +1,26 @@
+Shoes.app title: "Sleepless", width: 80, height: 120 do
+  @push = button "☕️"
+  @note = para "😪"
+  @push.click {
+    if @pid.nil?
+      if RUBY_PLATFORM =~ /darwin/
+        @pid = spawn("caffeinate -d")
+      elsif RUBY_PLATFORM =~ /linux/
+        @pid = spawn("xset s off -dpms")
+      elsif RUBY_PLATFORM =~ /win32|win64|\.NET/
+        @pid = spawn("powercfg -change -monitor-timeout-ac 0")
+      end
+      @note.replace "😳"
+    else
+      if RUBY_PLATFORM =~ /darwin/
+        system("kill #{@pid}")
+      elsif RUBY_PLATFORM =~ /linux/
+        system("kill -9 #{@pid}")
+      elsif RUBY_PLATFORM =~ /win32|win64|\.NET/
+        system("taskkill /pid #{@pid} /f")
+      end
+      @pid = nil
+      @note.replace "😪"
+    end
+  }
+end

data/examples/slots.rb

@@ -1,6 +1,4 @@
-require "scarpe"
-
-Scarpe.app do
+Shoes.app do
   flow do
     button "Click"
     button "Clickaty"
@@ -9,4 +7,4 @@ Scarpe.app do
     button "Boop"
     button "Bip"
   end
-end
+end

data/examples/spacing.rb

@@ -0,0 +1,18 @@
+Shoes.app(title: "Spacing") do
+  stack margin: 50 do
+    background "purple"
+    para "with 50px margin", stroke: "white"
+  end
+  stack margin: { left: 10, right: 10, bottom: 20 } do
+    background "red"
+    para "with 10px margin-left and margin-right, and 20px margin-bottom", stroke: "white"
+  end
+  stack margin: [15, 15, nil, 40] do
+    background "blue"
+    para "with 15px margin-left and margin-right, and 40px margin-bottom", stroke: "white"
+  end
+  stack margin_left: 20, margin_right: 30, margin_bottom: 10 do
+    background "green"
+    para "with 20px margin-left, 30px margin-right, and 10px margin-bottom", stroke: "white"
+  end
+end

data/examples/span.rb

@@ -0,0 +1,6 @@
+Shoes.app :height => 500, :width => 500 do
+  stack :margin => 10 do
+    para span("TEXT EDITOR", :stroke => "blue", :fill => "green"), " * USE ALT-Q TO QUIT", :stroke => "red"
+  end
+  span ("text")
+end

data/examples/stack/background.rb

@@ -0,0 +1,35 @@
+Shoes.app do
+  stack width: 0.33 do
+    background "purple"
+    button "a button"
+  end
+  stack width: 0.33 do
+    background "red".."green"
+    para "Red to green gradient"
+  end
+  stack width: 0.33 do
+    background "purple"
+    button "a button"
+    flow do
+      background "purple"
+      button "a button"
+      stack width: 0.33 do
+        background "purple"
+        button "a button"
+        button "a button"
+      end
+      stack width: 0.34 do
+        background "purple"
+        button "a button"
+      end
+    end
+    flow do
+      background "purple"
+      button "a button"
+    end
+    flow do
+      background "purple"
+      button "a button"
+    end
+  end
+end

data/examples/stack/border.rb

@@ -0,0 +1,11 @@
+Shoes.app do
+  stack do
+    border "red", strokewidth: 5, curve: 12
+    para "Curved Red"
+  end
+
+  stack do
+    border "#DDD".."#AAA", strokewidth: 10
+    para "Gradient!"
+  end
+end

data/examples/stack/gradients.rb

@@ -0,0 +1,6 @@
+Shoes.app do
+  stack height: 200, width: 200 do
+    border "#090979".."#ac033d", strokewidth: 15
+    background "#ac033d".."#090979"
+  end
+end

data/examples/stack/raw_stack.rb

@@ -0,0 +1,8 @@
+Shoes.app do
+  stack do
+    para "Hello World"
+  end
+  stack do
+    para "Fish"
+  end
+end

data/examples/stack/stack.rb

@@ -0,0 +1,27 @@
+Shoes.app do
+  stack margin: 50 do
+    button "with 50px margin"
+  end
+
+  stack width: 0.5 do
+    button "50% width"
+  end
+
+  stack width: 80, height: 100 do
+    para "This para is in a stack that's 80px wide and 100px high"
+  end
+
+  stack width: -80 do
+    button "100% - 80px width"
+  end
+
+  flow do
+    stack width: 0.33 do
+      button "inside flow left 1/3"
+    end
+
+    stack width: 0.67 do
+      button "inside flow right 2/3"
+    end
+  end
+end

data/examples/text_change.rb

@@ -0,0 +1,4 @@
+Shoes.app do
+  p = para "Hello"
+  p.replace "Goodbye"
+end

data/examples/text_sizes.rb

@@ -0,0 +1,10 @@
+Shoes.app(title: "Text Sizes") do
+  banner "Banner"
+  title "Title"
+  subtitle "Subtitle"
+  tagline "Tagline"
+  caption "Caption"
+  para "Para"
+  inscription "Inscription"
+  ins "Inscription via ins"
+end