scarpe 0.1.0 → 0.2.0

data/lib/scarpe/wv/document_root.rb

@@ -0,0 +1,50 @@
+# frozen_string_literal: true
+
+class Scarpe
+  class WebviewDocumentRoot < Scarpe::WebviewWidget
+    include Scarpe::WebviewBackground
+
+    def initialize(properties)
+      @callbacks = {}
+
+      super
+    end
+
+    def element(&blck)
+      HTML.render do |h|
+        h.div(style: style.merge(height: "100%"), &blck)
+      end
+    end
+
+    # Bind a Scarpe callback name; see Scarpe::Widget for how the naming is set up
+    def bind(name, &block)
+      @callbacks[name] = block
+    end
+
+    # All JS callbacks to Scarpe widgets are dispatched
+    # via this handler, which is set up in Scarpe::App
+    def handle_callback(name, *args)
+      @callbacks[name].call(*args)
+    end
+
+    # The document root knows when a frame has finished. It registers end-of-frame callbacks and calls them
+    # when requested. It also tracks when a redraw has been requested. Note that often frames will be
+    # very rare if nothing is changing, with seconds or minutes passing in between them.
+
+    def request_redraw!
+      wrangler = WebviewDisplayService.instance.wrangler
+      if wrangler.is_running
+        wrangler.replace(self.to_html)
+      end
+    end
+
+    # The document root manages the connection between widgets and the WebviewWrangler.
+    # By centralising this and wrapping in API functions, we can keep from executing
+    # random Javascript, mostly.
+
+    # A Widget can request one or more of these as insertion points in the DOM
+    def get_element_wrangler(html_id)
+      Scarpe::WebWrangler::ElementWrangler.new(html_id)
+    end
+  end
+end

data/lib/scarpe/wv/edit_box.rb

@@ -0,0 +1,44 @@
+# frozen_string_literal: true
+
+class Scarpe
+  class WebviewEditBox < Scarpe::WebviewWidget
+    attr_reader :text, :height, :width
+
+    def initialize(properties)
+      super
+
+      # The JS handler sends a "change" event, which we forward to the Shoes widget tree
+      bind("change") do |new_text|
+        send_self_event(new_text, event_name: "change")
+      end
+    end
+
+    def properties_changed(changes)
+      t = changes.delete("text")
+      if t
+        html_element.value = t
+      end
+
+      super
+    end
+
+    def element
+      oninput = handler_js_code("change", "this.value")
+
+      HTML.render do |h|
+        h.textarea(id: html_id, oninput: oninput, style: style) { text }
+      end
+    end
+
+    private
+
+    def style
+      styles = {}
+
+      styles[:height] = Dimensions.length(height)
+      styles[:width] = Dimensions.length(width)
+
+      styles.compact
+    end
+  end
+end

data/lib/scarpe/wv/edit_line.rb

@@ -0,0 +1,43 @@
+# frozen_string_literal: true
+
+class Scarpe
+  class WebviewEditLine < WebviewWidget
+    attr_reader :text, :width
+
+    def initialize(properties)
+      super
+
+      # The JS handler sends a "change" event, which we forward to the Shoes widget tree
+      bind("change") do |new_text|
+        send_self_event(new_text, event_name: "change")
+      end
+    end
+
+    def properties_changed(changes)
+      t = changes.delete("text")
+      if t
+        html_element.value = t
+      end
+
+      super
+    end
+
+    def element
+      oninput = handler_js_code("change", "this.value")
+
+      HTML.render do |h|
+        h.input(id: html_id, oninput: oninput, value: @text, style: style)
+      end
+    end
+
+    private
+
+    def style
+      styles = {}
+
+      styles[:width] = Dimensions.length(@width) if @width
+
+      styles
+    end
+  end
+end

data/lib/scarpe/wv/fill.rb

@@ -0,0 +1,30 @@
+# frozen_string_literal: true
+
+class Scarpe
+  class WebviewFill < WebviewWidget
+    def initialize(properties)
+      super(properties)
+    end
+
+    def element
+      width = @parent.get_style[:width]
+      height = @parent.get_style[:height]
+
+      HTML.render do |h|
+        h.div(id: html_id, style: style(width, height)) do
+          @text
+        end
+      end
+    end
+
+    private
+
+    def style(width, height)
+      styles = {}
+      styles[:width] = width
+      styles[:height] = height
+      styles[:background] = @color if @color
+      styles
+    end
+  end
+end

data/lib/scarpe/wv/flow.rb

@@ -0,0 +1,32 @@
+# frozen_string_literal: true
+
+class Scarpe
+  class WebviewFlow < Scarpe::WebviewWidget
+    include Scarpe::WebviewBackground
+    include Scarpe::WebviewBorder
+
+    def initialize(properties)
+      super
+    end
+
+    def element(&block)
+      HTML.render do |h|
+        h.div(id: html_id, style:, &block)
+      end
+    end
+
+    private
+
+    def style
+      styles = super
+
+      styles[:display] = "flex"
+      styles["flex-direction"] = "row"
+      styles["flex-wrap"] = "wrap"
+      styles[:width] = Dimensions.length(@width) if @width
+      styles[:height] = Dimensions.length(@height) if @height
+
+      styles
+    end
+  end
+end

data/lib/scarpe/wv/html.rb

@@ -0,0 +1,107 @@
+# frozen_string_literal: true
+
+class Scarpe
+  class HTML
+    CONTENT_TAGS = [:div, :p, :button, :ul, :li, :textarea, :a, :strong, :em, :code, :u, :line, :span, :svg].freeze
+    VOID_TAGS = [:input, :img, :polygon, :path].freeze
+    TAGS = (CONTENT_TAGS + VOID_TAGS).freeze
+
+    class << self
+      def render(&block)
+        new(&block).value
+      end
+    end
+
+    def initialize(&block)
+      @buffer = ""
+      block.call(self)
+    end
+
+    def value
+      @buffer
+    end
+
+    def respond_to_missing?(name, include_all = false)
+      TAGS.include?(name) || super(name, include_all)
+    end
+
+    def p(*args, &block)
+      method_missing(:p, *args, &block)
+    end
+
+    def option(**attrs, &block)
+      tag(:option, **attrs, &block)
+    end
+
+    def tag(name, **attrs, &block)
+      if VOID_TAGS.include?(name)
+        raise ArgumentError, "void tag #{name} cannot have content" if block_given?
+
+        @buffer += "<#{name}#{render_attributes(attrs)} />"
+      else
+        @buffer += "<#{name}#{render_attributes(attrs)}>"
+
+        if block_given?
+          result = block.call(self)
+        else
+          result = attrs[:content]
+          @buffer += result if result.is_a?(String)
+        end
+        @buffer += result if result.is_a?(String)
+
+        @buffer += "</#{name}>"
+      end
+
+      nil
+    end
+
+    def select(**attrs, &block)
+      tag(:select, **attrs, &block)
+    end
+
+    def method_missing(name, *args, &block)
+      raise NoMethodError, "no method #{name} for #{self.class.name}" unless TAGS.include?(name)
+
+      if VOID_TAGS.include?(name)
+        raise ArgumentError, "void tag #{name} cannot have content" if block_given?
+
+        @buffer += "<#{name}#{render_attributes(*args)} />"
+      else
+        @buffer += "<#{name}#{render_attributes(*args)}>"
+
+        if block_given?
+          result = block.call(self)
+        else
+          result = args.first
+          @buffer += result if result.is_a?(String)
+        end
+        @buffer += result if result.is_a?(String)
+
+        @buffer += "</#{name}>"
+      end
+
+      nil
+    end
+
+    private
+
+    def render_attributes(attributes = {})
+      return "" if attributes.empty?
+
+      attributes[:style] = render_style(attributes[:style]) if attributes[:style]
+      attributes.compact!
+
+      return if attributes.empty?
+
+      result = attributes.map { |k, v| "#{k}=\"#{v}\"" }.join(" ")
+      " #{result}"
+    end
+
+    def render_style(style)
+      return style unless style.is_a?(Hash)
+      return if style.empty?
+
+      style.map { |k, v| "#{k}:#{v}" }.join(";")
+    end
+  end
+end

data/lib/scarpe/wv/image.rb

@@ -0,0 +1,36 @@
+# frozen_string_literal: true
+
+class Scarpe
+  class WebviewImage < WebviewWidget
+    def initialize(properties)
+      super
+    end
+
+    def element
+      if @click
+        HTML.render do |h|
+          h.a(id: html_id, href: @click) { h.img(id: html_id, src: @url, style:) }
+        end
+      else
+        HTML.render do |h|
+          h.img(id: html_id, src: @url, style:)
+        end
+      end
+    end
+
+    private
+
+    def style
+      styles = {}
+
+      styles[:width] = Dimensions.length(@width) if @width
+      styles[:height] = Dimensions.length(@height) if @height
+
+      styles[:top] = Dimensions.length(@top) if @top
+      styles[:left] = Dimensions.length(@left) if @left
+      styles[:position] = "absolute" if @top || @left
+
+      styles
+    end
+  end
+end

data/lib/scarpe/wv/line.rb

@@ -0,0 +1,38 @@
+# frozen_string_literal: true
+
+require_relative "shape_helper"
+class Scarpe
+  class WebviewLine < Scarpe::WebviewWidget
+    include ShapeHelper
+
+    def initialize(properties)
+      super(properties)
+    end
+
+    def element
+      HTML.render do |h|
+        h.div(id: html_id, style: style) do
+          h.svg(width: @x2, height: @y2) do
+            h.line(x1: @left, y1: @top, x2: @x2, y2: @y2, style: line_style)
+          end
+        end
+      end
+    end
+
+    private
+
+    def style
+      {
+        left: "#{@left}px",
+        top: "#{@top}px",
+      }
+    end
+
+    def line_style
+      {
+        stroke: " #{@color}",
+        "stroke-width": "4",
+      }
+    end
+  end
+end

data/lib/scarpe/wv/link.rb

@@ -0,0 +1,29 @@
+# frozen_string_literal: true
+
+class Scarpe
+  class WebviewLink < WebviewWidget
+    def initialize(properties)
+      super
+
+      bind("click") do
+        send_self_event(event_name: "click")
+      end
+    end
+
+    def element
+      HTML.render do |h|
+        h.a(**attributes) do
+          @text
+        end
+      end
+    end
+
+    def attributes
+      {
+        id: html_id,
+        href: @click,
+        onclick: (handler_js_code("click") if @has_block),
+      }.compact
+    end
+  end
+end

data/lib/scarpe/wv/list_box.rb

@@ -0,0 +1,50 @@
+# frozen_string_literal: true
+
+class Scarpe
+  class WebviewListBox < Scarpe::WebviewWidget
+    attr_reader :selected_item, :items, :height, :width
+
+    def initialize(properties)
+      super(properties)
+
+      # The JS handler sends a "change" event, which we forward to the Shoes widget tree
+      bind("change") do |new_item|
+        send_self_event(new_item, event_name: "change")
+      end
+    end
+
+    def properties_changed(changes)
+      selected = changes.delete("selected_item")
+      if selected
+        html_element.value = selected
+      end
+      super
+    end
+
+    def element
+      onchange = handler_js_code("change", "this.options[this.selectedIndex].value")
+
+      select_attrs = { id: html_id, onchange: onchange, style: style }
+      option_attrs = { value: nil, selected: false }
+
+      HTML.render do |h|
+        h.select(**select_attrs) do
+          items.each do |item|
+            h.option(**option_attrs, value: item, selected: (item == selected_item)) { item }
+          end
+        end
+      end
+    end
+
+    private
+
+    def style
+      styles = {}
+
+      styles[:height] = Dimensions.length(height) if height
+      styles[:width] = Dimensions.length(width) if width
+
+      styles.compact
+    end
+  end
+end

data/lib/scarpe/wv/para.rb

@@ -0,0 +1,90 @@
+# frozen_string_literal: true
+
+class Scarpe
+  class WebviewPara < WebviewWidget
+    SIZES = {
+      inscription: 10,
+      ins: 10,
+      para: 12,
+      caption: 14,
+      tagline: 18,
+      subtitle: 26,
+      title: 34,
+      banner: 48,
+    }.freeze
+    private_constant :SIZES
+
+    def initialize(properties)
+      super
+    end
+
+    def properties_changed(changes)
+      items = changes.delete("text_items")
+      if items
+        html_element.inner_html = to_html
+        return
+      end
+
+      # Not deleting, so this will re-render
+      if changes["size"] && SIZES[@size.to_sym]
+        @size = @size.to_sym
+      end
+
+      super
+    end
+
+    def items_to_display_children(items)
+      return [] if items.nil?
+
+      items.map do |item|
+        if item.is_a?(String)
+          item
+        else
+          WebviewDisplayService.instance.query_display_widget_for(item)
+        end
+      end
+    end
+
+    def element(&block)
+      HTML.render do |h|
+        h.p(**options, &block)
+      end
+    end
+
+    def to_html
+      @children ||= []
+
+      element { child_markup }
+    end
+
+    private
+
+    def child_markup
+      items_to_display_children(@text_items).map do |child|
+        if child.respond_to?(:to_html)
+          child.to_html
+        else
+          child.gsub("\n", "<br>")
+        end
+      end.join
+    end
+
+    def options
+      @html_attributes.merge(id: html_id, style: style)
+    end
+
+    def style
+      {
+        "color" => rgb_to_hex(@stroke),
+        "font-size" => font_size,
+        "font-family" => @font,
+      }.compact
+    end
+
+    def font_size
+      font_size = @size.is_a?(Symbol) ? SIZES[@size] : @size
+
+      Dimensions.length(font_size)
+    end
+  end
+end

data/lib/scarpe/wv/shape.rb

@@ -0,0 +1,34 @@
+# frozen_string_literal: true
+
+require_relative "shape_helper"
+
+class Scarpe
+  class WebviewShape < Scarpe::WebviewWidget
+    include ShapeHelper
+
+    def initialize(properties)
+      @color = color_for_fill
+      super(properties)
+    end
+
+    def element(&block)
+      HTML.render do |h|
+        h.div(id: html_id, style: style) do
+          h.svg(width: "400", height: "500") do
+            h.path(d: shape_path, style: "fill:#{@color};stroke-width:2;")
+          end
+          block.call(h) if block_given?
+        end
+      end
+    end
+
+    private
+
+    def style
+      {
+        width: "400",
+        height: "900",
+      }
+    end
+  end
+end

data/lib/scarpe/wv/shape_helper.rb

@@ -0,0 +1,44 @@
+# frozen_string_literal: true
+
+module ShapeHelper
+  def path_commands
+    $path_commands ||= []
+  end
+
+  def move_to(x, y)
+    validate_coordinates(x, y)
+    path_commands << "M #{x} #{y}"
+  end
+
+  def line_to(x, y)
+    validate_coordinates(x, y)
+    path_commands << "L #{x} #{y}"
+  end
+
+  def shape_path
+    path_commands_str = path_commands.join(" ")
+    path_commands_str
+  end
+
+  def colors
+    $colors ||= []
+  end
+
+  def fill(color)
+    $current_color = color
+  end
+
+  def color_for_fill
+    $current_color || "black"
+  end
+
+  private
+
+  def validate_coordinates(x, y)
+    raise ArgumentError, "Invalid coordinates: x=#{x}, y=#{y}" unless valid_coordinate?(x) && valid_coordinate?(y)
+  end
+
+  def valid_coordinate?(coordinate)
+    coordinate.is_a?(Numeric)
+  end
+end

data/lib/scarpe/wv/spacing.rb

@@ -0,0 +1,41 @@
+# frozen_string_literal: true
+
+class Scarpe
+  module WebviewSpacing
+    SPACING_DIRECTIONS = [:left, :right, :top, :bottom]
+
+    def style
+      styles = (super if defined?(super)) || {}
+
+      extract_spacing_styles_for(:margin, styles, @margin)
+      extract_spacing_styles_for(:padding, styles, @padding)
+
+      styles
+    end
+
+    def extract_spacing_styles_for(attribute, styles, values)
+      values ||= spacing_values_from_options(attribute)
+
+      case values
+      when Hash
+        values.each do |direction, value|
+          styles["#{attribute}-#{direction}"] = Dimensions.length(value)
+        end
+      when Array
+        SPACING_DIRECTIONS.zip(values).to_h.compact.each do |direction, value|
+          styles["#{attribute}-#{direction}"] = Dimensions.length(value)
+        end
+      else
+        styles[attribute] = Dimensions.length(values)
+      end
+
+      styles.compact!
+    end
+
+    def spacing_values_from_options(attribute)
+      SPACING_DIRECTIONS.map do |direction|
+        @options.delete("#{attribute}_#{direction}".to_sym)
+      end
+    end
+  end
+end