scarpe 0.1.0 → 0.2.0

data/lib/scarpe/glibui/edit_line.rb

@@ -0,0 +1,43 @@
+# frozen_string_literal: true
+
+class Scarpe
+  class GlimmerLibUIEditLine < GlimmerLibUIWidget
+    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/glibui/flow.rb

@@ -0,0 +1,33 @@
+# frozen_string_literal: true
+
+class Scarpe
+  class GlimmerLibUIFlow < Scarpe::GlimmerLibUIWidget
+    include Scarpe::GlimmerLibUIBackground
+    include Scarpe::GlimmerLibUIBorder
+
+    def initialize(properties)
+      super
+    end
+
+    def display(properties = {})
+      <<~GTEXT
+        horizontal_box {
+          #{@children.map(&:display).join}
+        }.show
+      GTEXT
+    end
+
+    # Marker from webview
+    # 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/glibui/html.rb

@@ -0,0 +1,77 @@
+# frozen_string_literal: true
+
+class Scarpe
+  class HTML
+    # CONTENT_TAGS = [:div, :p, :button, :ul, :li, :textarea, :a, :strong, :em, :code, :u].freeze
+    # VOID_TAGS = [:input, :img].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 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/glibui/image.rb

@@ -0,0 +1,36 @@
+# frozen_string_literal: true
+
+class Scarpe
+  class GlimmerLibUIImage < GlimmerLibUIWidget
+    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/glibui/link.rb

@@ -0,0 +1,29 @@
+# frozen_string_literal: true
+
+class Scarpe
+  class GlimmerLibUILink < GlimmerLibUIWidget
+    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/glibui/local_display.rb

@@ -0,0 +1,62 @@
+# frozen_string_literal: true
+
+class Scarpe
+  class GlimmerLibUIDisplayService
+    class << self
+      attr_accessor :instance
+    end
+
+    attr_reader :app
+    attr_reader :doc_root
+
+    def initialize
+      if GlimmerLibUIDisplayService.instance
+        raise "ERROR! This is meant to be a singleton!"
+      end
+
+      GlimmerLibUIDisplayService.instance = self
+
+      @display_widget_for = {}
+    end
+
+    def create_display_widget_for(widget_class_name, widget_id, properties)
+      if widget_class_name == "App"
+        unless @doc_root
+          raise "GlimmerLibUIDocumentRoot is supposed to be created before GlimmerLibUIApp!"
+        end
+
+        display_app = Scarpe::GlimmerLibUIApp.new(properties)
+        display_app.document_root = @doc_root
+        @app = display_app
+
+        set_widget_pairing(widget_id, display_app)
+
+        return display_app
+      end
+
+      # Create a corresponding display widget
+      display_class = Scarpe::GlimmerLibUIWidget.display_class_for(widget_class_name)
+      display_widget = display_class.new(properties)
+      set_widget_pairing(widget_id, display_widget)
+
+      if widget_class_name == "DocumentRoot"
+        @doc_root = display_widget
+      end
+
+      display_widget
+    end
+
+    def set_widget_pairing(id, display_widget)
+      @display_widget_for[id] = display_widget
+    end
+
+    def query_display_widget_for(id, nil_ok: false)
+      display_widget = @display_widget_for[id]
+      unless display_widget || nil_ok
+        raise "Could not find display widget for linkable ID #{id.inspect}!"
+      end
+
+      display_widget
+    end
+  end
+end

data/lib/scarpe/glibui/para.rb

@@ -0,0 +1,84 @@
+# frozen_string_literal: true
+
+class Scarpe
+  class GlimmerLibUIPara < GlimmerLibUIWidget
+    SIZES = {
+      inscription: 10,
+      ins: 10,
+      para: 12,
+      caption: 14,
+      tagline: 18,
+      subtitle: 26,
+      title: 34,
+      banner: 48,
+    }.freeze
+    private_constant :SIZES
+
+    def initialize(properties)
+      @properties = properties
+      super
+    end
+
+    def properties_changed(changes)
+      items = changes.delete("text_items")
+      if items
+        # we might need this to extend para in new prs?
+        return
+      end
+
+      super
+    end
+
+    def display
+      <<~GLIMMER_CODE
+        area {
+          text {
+            string "#{@properties["text_items"].join(", ")}"
+          }
+        }
+      GLIMMER_CODE
+    end
+
+    def items_to_display_children(items)
+      return [] if items.nil?
+
+      items.map do |item|
+        if item.is_a?(String)
+          item
+        else
+          GlimmerLibUIDisplayService.instance.query_display_widget_for(item)
+        end
+      end
+    end
+
+    private
+
+    # hangon for future para prs
+    def child_markup
+      items_to_display_children(@text_items).map do |child|
+        if child.respond_to?(:to_html)
+          child.to_html
+        else
+          child
+        end
+      end.join
+    end
+
+    def options
+      @html_attributes.merge(id: html_id, style: style)
+    end
+
+    def style
+      {
+        "color" => @stroke,
+        "font-size" => font_size,
+      }.compact
+    end
+
+    def font_size
+      font_size = @size.is_a?(Symbol) ? SIZES[@size] : @size
+
+      Dimensions.length(font_size)
+    end
+  end
+end

data/lib/scarpe/glibui/spacing.rb

@@ -0,0 +1,41 @@
+# frozen_string_literal: true
+
+class Scarpe
+  module GlimmerLibUISpacing
+    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

data/lib/scarpe/glibui/stack.rb

@@ -0,0 +1,33 @@
+# frozen_string_literal: true
+
+class Scarpe
+  class GlimmerLibUIStack < Scarpe::GlimmerLibUIWidget
+    include Scarpe::GlimmerLibUIBackground
+    include Scarpe::GlimmerLibUIBorder
+    include Scarpe::GlimmerLibUISpacing
+
+    def initialize(properties)
+      super
+    end
+
+    def display(properties = {})
+      <<~GTEXT
+        vertical_box {
+          #{@children.map(&:display).join}
+        }.show
+      GTEXT
+    end
+    # Marker from webview
+    # def style
+    #   styles = super
+
+    #   styles[:display] = "flex"
+    #   styles["flex-direction"] = "column"
+    #   styles[:width] = Dimensions.length(@width) if @width
+    #   styles[:height] = Dimensions.length(@height) if @height
+    #   styles["overflow"] = "auto" if @scroll
+
+    #   styles
+    # end
+  end
+end

data/lib/scarpe/glibui/text_widget.rb

@@ -0,0 +1,30 @@
+# frozen_string_literal: true
+
+class Scarpe
+  class GlimmerLibUITextWidget < Scarpe::GlimmerLibUIWidget
+  end
+
+  class << self
+    def default_glibui_text_widget_with(element)
+      class_name = "GlimmerLibUI#{element.capitalize}"
+      widget_class = Class.new(Scarpe::GlimmerLibUITextWidget) do
+        def initialize(properties)
+          class_name = self.class.name.split("::")[-1]
+          @html_tag = class_name.delete_prefix("GlimmerLibUI").downcase
+          super
+        end
+
+        def element
+          HTML.render do |h|
+            h.send(@html_tag) { @content.to_s }
+          end
+        end
+      end
+      Scarpe.const_set class_name, widget_class
+    end
+  end
+end
+
+Scarpe.default_glibui_text_widget_with(:code)
+Scarpe.default_glibui_text_widget_with(:em)
+Scarpe.default_glibui_text_widget_with(:strong)

data/lib/scarpe/glibui/widget.rb

@@ -0,0 +1,81 @@
+# frozen_string_literal: true
+
+class Scarpe
+  class GlimmerLibUIWidget < DisplayService::Linkable
+    class << self
+      def display_class_for(scarpe_class_name)
+        scarpe_class = Scarpe.const_get(scarpe_class_name)
+        unless scarpe_class.ancestors.include?(Scarpe::DisplayService::Linkable)
+          raise "Scarpe GlimmerLibUI can only get display classes for Scarpe linkable widgets, not #{scarpe_class.inspect}!"
+        end
+
+        klass = Scarpe.const_get("GlimmerLibUI" + scarpe_class.name.split("::")[-1])
+        if klass.nil?
+          raise "Couldn't find corresponding Scarpe GlimmerLibUI class for #{scarpe_class.inspect}!"
+        end
+
+        klass
+      end
+    end
+
+    attr_reader :shoes_linkable_id
+    attr_reader :parent
+
+    def initialize(properties)
+      # Call method, which looks up the parent
+      @shoes_linkable_id = properties["shoes_linkable_id"]
+      unless @shoes_linkable_id
+        raise "Could not find property shoes_linkable_id in #{properties.inspect}!"
+      end
+
+      # Set the display properties
+      properties.each do |k, v|
+        next if k == "shoes_linkable_id"
+
+        instance_variable_set("@" + k, v)
+      end
+
+      # The parent field is *almost* simple enough that a typed display property would handle it.
+      bind_shoes_event(event_name: "parent", target: shoes_linkable_id) do |new_parent_id|
+        display_parent = GlimmerLibUIDisplayService.instance.query_display_widget_for(new_parent_id)
+        if @parent != display_parent
+          set_parent(display_parent)
+        end
+      end
+
+      super()
+    end
+
+    def set_parent(new_parent)
+      @parent&.remove_child(self)
+      new_parent&.add_child(self)
+      @parent = new_parent
+    end
+
+    protected
+
+    # Do not call directly, use set_parent
+    def remove_child(child)
+      @children ||= []
+      unless @children.include?(child)
+        puts "remove_child: no such child(#{child.inspect}) for parent(#{parent.inspect})!"
+      end
+      @children.delete(child)
+    end
+
+    # Do not call directly, use set_parent
+    def add_child(child)
+      @children ||= []
+      @children << child
+    end
+
+    public
+
+    # This binds a Scarpe JS callback, handled via a single dispatch point in the document root
+    def bind(event, &block)
+      raise("Widget has no linkable_id! #{inspect}") unless linkable_id
+
+      GlimmerLibUIDisplayService.instance.doc_root.bind("#{linkable_id}-#{event}", &block)
+    end
+  end
+end

data/lib/scarpe/glibui.rb

@@ -0,0 +1,29 @@
+# frozen_string_literal: true
+
+# Scarpe Glimmer LibUI Display Service
+
+require_relative "glibui/widget"
+require_relative "glibui/local_display"
+
+require_relative "glibui/dimensions"
+require_relative "glibui/html"
+
+require_relative "glibui/spacing"
+require_relative "glibui/background"
+require_relative "glibui/border"
+
+require_relative "glibui/app"
+require_relative "glibui/document_root"
+require_relative "glibui/para"
+require_relative "glibui/stack"
+require_relative "glibui/flow"
+require_relative "glibui/button"
+require_relative "glibui/image"
+require_relative "glibui/edit_box"
+require_relative "glibui/edit_line"
+require_relative "glibui/alert"
+
+require_relative "glibui/text_widget"
+require_relative "glibui/link"
+
+Scarpe::DisplayService.set_display_service_class(Scarpe::GlimmerLibUIDisplayService)

data/lib/scarpe/image.rb

@@ -1,14 +1,33 @@
-module Scarpe
-  class Image
-    def initialize(app, url)
-      @app = app
+# frozen_string_literal: true
+
+require "fastimage"
+require "open-uri"
+
+class Scarpe
+  class Image < Scarpe::Widget
+    display_properties :url, :width, :height, :top, :left, :click
+
+    def initialize(url, width: nil, height: nil, top: nil, left: nil, click: nil)
       @url = url
-      @app.append(render)
+
+      super
+
+      # Get the image dimensions
+      # @width, @height = size
+
+      create_display_widget
+    end
+
+    def replace(url)
+      self.url = url
     end
+  end
+
+  class Widget
+    def size
+      width, height = FastImage.size(@url)
 
-    def render
-      puts "<img id=#{object_id} src=\"#{@url}\">"
-      "<img id=#{object_id} src='#{@url}'>"
+      [width, height]
     end
   end
-end
+end

data/lib/scarpe/libui/alert.rb

@@ -0,0 +1,9 @@
+# frozen_string_literal: true
+
+class Scarpe
+  class << self
+    def alert(text, title: "Information")
+      UI.msg_box($main_window, title, text)
+    end
+  end
+end

data/lib/scarpe/libui/button.rb

@@ -0,0 +1,18 @@
+# frozen_string_literal: true
+
+class Scarpe
+  class << self
+    def button(text)
+      @button = UI.new_button(text)
+
+      UI.button_on_clicked(@button) do
+        puts "herpderpin in the dark"
+        yield
+      end
+
+      # We're appending this to the top level box. (Note, may want to apply to "parent" long term)
+      hbox = $parent_box ? $parent_box : $vbox
+      UI.box_append(hbox, @button, 0)
+    end
+  end
+end