scarpe 0.2.2 → 0.3.0

data/scarpe-components/lib/scarpe/components/calzini/art_widgets.rb

@@ -0,0 +1,203 @@
+# frozen_string_literal: true
+
+module Scarpe::Components::Calzini
+  def arc_element(props, &block)
+    dc = props["draw_context"] || {}
+    rotate = dc["rotate"]
+    HTML.render do |h|
+      h.div(id: html_id, style: arc_style(props)) do
+        h.svg(width: props["width"], height: props["height"]) do
+          h.path(d: arc_path(props), transform: "rotate(#{rotate}, #{props["width"] / 2}, #{props["height"] / 2})")
+        end
+        block.call(h) if block_given?
+      end
+    end
+  end
+
+  def rect_element(props)
+    dc = props["draw_context"] || {}
+    rotate = dc["rotate"]
+    HTML.render do |h|
+      h.div(id: html_id, style: drawable_style(props)) do
+        width = props["width"].to_i
+        height = props["height"].to_i
+        if props["curve"]
+          width += 2 * props["curve"].to_i
+          height += 2 * props["curve"].to_i
+        end
+        h.svg(width:, height:) do
+          attrs = { x: props["left"], y: props["top"], width: props["width"], height: props["height"], style: rect_svg_style(props) }
+          attrs[:rx] = props["curve"] if props["curve"]
+
+          h.rect(**attrs, transform: "rotate(#{rotate} #{width / 2} #{height / 2})")
+        end
+      end
+    end
+  end
+
+  def line_element(props)
+    HTML.render do |h|
+      h.div(id: html_id, style: line_div_style(props)) do
+        h.svg(width: props["x2"], height: props["y2"]) do
+          h.line(x1: props["left"], y1: props["top"], x2: props["x2"], y2: props["y2"], style: line_svg_style(props))
+        end
+      end
+    end
+  end
+
+  def star_element(props, &block)
+    dc = props["draw_context"] || {}
+    fill = dc["fill"]
+    stroke = dc["stroke"]
+    fill = "black" if !fill || fill == ""
+    stroke = "black" if !stroke || stroke == ""
+    HTML.render do |h|
+      h.div(id: html_id, style: star_style(props)) do
+        h.svg(width: props["outer"], height: props["outer"], style: "fill:#{fill}") do
+          h.polygon(points: star_points(props), style: "stroke:#{stroke};stroke-width:2")
+        end
+        block.call(h) if block_given?
+      end
+    end
+  end
+
+  private
+
+  def arc_style(props)
+    drawable_style(props).merge({
+      left: "#{props["left"]}px",
+      top: "#{props["top"]}px",
+      width: "#{props["width"]}px",
+      height: "#{props["height"]}px",
+    })
+  end
+
+  def arc_path(props)
+    center_x = props["width"] / 2
+    center_y = props["height"] / 2
+    radius_x = props["width"] / 2
+    radius_y = props["height"] / 2
+    start_angle_degrees = radians_to_degrees(props["angle1"]) % 360
+    end_angle_degrees = radians_to_degrees(props["angle2"]) % 360
+    large_arc_flag = (end_angle_degrees - start_angle_degrees) % 360 > 180 ? 1 : 0
+
+    "M#{center_x} #{center_y} L#{props["width"]} #{center_y} " \
+      "A#{radius_x} #{radius_y} 0 #{large_arc_flag} 0 " \
+      "#{center_x + radius_x * Math.cos(degrees_to_radians(end_angle_degrees))} " \
+      "#{center_y + radius_y * Math.sin(degrees_to_radians(end_angle_degrees))} Z"
+  end
+
+  def line_div_style(props)
+    drawable_style(props).merge({
+      left: "#{props["left"]}px",
+      top: "#{props["top"]}px",
+    })
+  end
+
+  def line_svg_style(props)
+    stroke = if props["draw_context"] && !props["draw_context"]["stroke"].to_s.empty?
+      (props["draw_context"]["stroke"]).to_s
+    else
+      "black"
+    end
+    {
+
+      "stroke": stroke,
+      "stroke-width": "4",
+    }.compact
+  end
+
+  def rect_svg_style(props)
+    {
+      stroke: (props["draw_context"] || {})["stroke"],
+      #"stroke-width": "1",
+    }.compact
+  end
+
+  def star_style(props)
+    drawable_style(props).merge({
+      width: dimensions_length(props["width"]),
+      height: dimensions_length(props["height"]),
+    }).compact
+  end
+
+  def star_points(props)
+    angle = 2 * Math::PI / props["points"]
+    coordinates = []
+
+    props["points"].times do |i|
+      outer_angle = i * angle
+      inner_angle = outer_angle + angle / 2
+
+      coordinates.concat(star_get_coordinates(outer_angle, inner_angle, props))
+    end
+
+    coordinates.join(",")
+  end
+
+  def star_get_coordinates(outer_angle, inner_angle, props)
+    outer_x = props["outer"] / 2 + Math.cos(outer_angle) * props["outer"] / 2
+    outer_y = props["outer"] / 2 + Math.sin(outer_angle) * props["outer"] / 2
+
+    inner_x = props["outer"] / 2 + Math.cos(inner_angle) * props["inner"] / 2
+    inner_y = props["outer"] / 2 + Math.sin(inner_angle) * props["inner"] / 2
+
+    [outer_x, outer_y, inner_x, inner_y]
+  end
+
+  def arrow_element(props)
+    left = props["left"]
+    top = props["top"]
+    width = props["width"]
+    end_x = left + width
+    end_y = top
+    stroke_width = width / 2
+    dc = props["draw_context"] || {}
+    fill = dc["fill"]
+    stroke = dc["stroke"]
+    rotate = dc["rotate"]
+    fill = "black" if !fill || fill == ""
+    stroke = "black" if !stroke || stroke == ""
+
+    stroke_width = width / 4
+
+    HTML.render do |h|
+      h.div(id: html_id, style: arrow_div_style(props)) do
+        h.svg do
+          h.defs do
+            h.marker(
+              id: "head",
+              viewBox: "0 0 70 70",
+              markerWidth: stroke_width.to_s,
+              markerHeight: stroke_width.to_s,
+              refX: "5",
+              refY: "5",
+              orient: "auto-start-reverse",
+            ) do
+              h.path(d: "M 0 0 L 10 5 L 0 10 z", fill: fill.to_s)
+            end
+          end
+
+          h.line(
+            x2: left.to_s,
+            y2: top.to_s,
+            x1: end_x.to_s,
+            y1: end_y.to_s,
+            fill: fill.to_s,
+            stroke: stroke.to_s,
+            "stroke-width" => stroke_width.to_s,
+            "marker-end" => "url(#head)",
+            transform: "rotate(#{rotate}, #{left + width / 2}, #{top})",
+          )
+        end
+      end
+    end
+  end
+  def arrow_div_style(props)
+    drawable_style(props).merge({
+      position: "absolute",
+      left: "#{props["left"]}px",
+      top: "#{props["top"]}px",
+    })
+  end
+end

data/scarpe-components/lib/scarpe/components/calzini/button.rb

@@ -0,0 +1,39 @@
+# frozen_string_literal: true
+
+module Scarpe::Components::Calzini
+  def button_element(props)
+    HTML.render do |h|
+      h.button(
+        id: html_id,
+        onclick: handler_js_code("click"),
+        onmouseover: handler_js_code("hover"),
+        style: button_style(props),
+        title: props["tooltip"],
+      ) do
+        props["text"]
+      end
+    end
+  end
+
+  private
+
+  def button_style(props)
+    styles = drawable_style(props)
+
+    styles[:"background-color"] = props["color"] if props["color"]
+    styles[:"padding-top"] = props["padding_top"] if props["padding_top"]
+    styles[:"padding-bottom"] = props["padding_bottom"] if props["padding_bottom"]
+    styles[:color] = props["text_color"] if props["text_color"]
+    styles[:width] = dimensions_length(props["width"]) if props["width"]
+    styles[:height] = dimensions_length(props["height"]) if props["height"]
+    styles[:"font-size"] = props["font_size"] if props["font_size"]
+
+    styles[:top] = dimensions_length(props["top"]) if props["top"]
+    styles[:left] = dimensions_length(props["left"]) if props["left"]
+    styles[:position] = "absolute" if props["top"] || props["left"]
+    styles[:"font-size"] = dimensions_length(text_size(props["size"])) if props["size"]
+    styles[:"font-family"] = props["font"] if props["font"]
+
+    styles
+  end
+end

data/scarpe-components/lib/scarpe/components/calzini/misc.rb

@@ -0,0 +1,146 @@
+# frozen_string_literal: true
+
+module Scarpe::Components::Calzini
+  def check_element(props)
+    HTML.render do |h|
+      h.input type: :checkbox,
+        id: html_id,
+        onclick: handler_js_code("click"),
+        value: props["text"],
+        checked: props["checked"],
+        style: drawable_style(props)
+    end
+  end
+
+  def edit_box_element(props)
+    oninput = handler_js_code("change", "this.value")
+
+    HTML.render do |h|
+      h.textarea(id: html_id, oninput: oninput, style: edit_box_style(props)) { props["text"] }
+    end
+  end
+
+  def edit_line_element(props)
+    oninput = handler_js_code("change", "this.value")
+
+    HTML.render do |h|
+      h.input(id: html_id, oninput: oninput, value: props["text"], style: edit_line_style(props))
+    end
+  end
+
+  def image_element(props)
+    style = image_style(props)
+
+    if props["click"]
+      HTML.render do |h|
+        h.a(id: html_id, href: props["click"]) { h.img(id: html_id, src: props["url"], style:) }
+      end
+    else
+      HTML.render do |h|
+        h.img(id: html_id, src: props["url"], style:)
+      end
+    end
+  end
+
+  def list_box_element(props)
+    onchange = handler_js_code("change", "this.options[this.selectedIndex].value")
+
+    # Is this useful at all? Is it overridden below completely?
+    option_attrs = { value: nil, selected: false }
+
+    HTML.render do |h|
+      h.select(id: html_id, onchange:, style: list_box_style(props)) do
+        (props["items"] || []).each do |item|
+          option_attrs = {
+            value: item,
+          }
+          if item == props["choose"]
+            option_attrs[:selected] = "true"
+          end
+          h.option(**option_attrs) do
+            item
+          end
+        end
+      end
+    end
+  end
+
+  def radio_element(props)
+    # This is wrong - need to default to the parent slot -- maybe its linkable ID?
+    group_name = props["group"] || "no_group"
+
+    HTML.render do |h|
+      h.input(
+        type: :radio,
+        id: html_id,
+        onclick: handler_js_code("click"),
+        name: group_name,
+        value: props["text"],
+        checked: props["checked"],
+        style: drawable_style(props),
+      )
+    end
+  end
+
+  def video_element(props)
+    HTML.render do |h|
+      h.video(id: html_id, style: drawable_style(props), controls: true) do
+        h.source(src: @url, type: props["format"])
+      end
+    end
+  end
+
+  def progress_element(props)
+    HTML.render do |h|
+      h.progress(
+        id: html_id,
+        style: drawable_style(props),
+        role: "progressbar",
+        "aria-valuenow": props["fraction"],
+        "aria-valuemin": 0.0,
+        "aria-valuemax": 1.0,
+        max: 1,
+        value: props["fraction"],
+      )
+    end
+  end
+
+  private
+
+  def edit_box_style(props)
+    drawable_style(props).merge({
+      height: dimensions_length(props["height"]),
+      width: dimensions_length(props["width"]),
+    }.compact)
+  end
+
+  def edit_line_style(props)
+    styles = drawable_style(props)
+
+    styles[:width] = dimensions_length(props["width"]) if props["width"]
+
+    styles
+  end
+
+  def image_style(props)
+    styles = drawable_style(props)
+
+    styles[:width] = dimensions_length(props["width"]) if props["width"]
+    styles[:height] = dimensions_length(props["height"]) if props["height"]
+
+    styles[:top] = dimensions_length(props["top"]) if props["top"]
+    styles[:left] = dimensions_length(props["left"]) if props["left"]
+    styles[:position] = "absolute" if props["top"] || props["left"]
+
+    styles
+  end
+
+  def list_box_style(props)
+    styles = drawable_style(props)
+
+    styles[:height] = dimensions_length(props["height"]) if props["height"]
+    styles[:width] = dimensions_length(props["width"]) if props["width"]
+
+    styles
+  end
+end

data/scarpe-components/lib/scarpe/components/calzini/para.rb

@@ -0,0 +1,35 @@
+# frozen_string_literal: true
+
+module Scarpe::Components::Calzini
+  # para_element is a bit of a hard one, since it does not-entirely-trivial
+  # mapping between display objects and IDs. But we don't want Calzini
+  # messing with the display service or display objects.
+  def para_element(props, &block)
+    HTML.render do |h|
+      h.p(**para_options(props), &block)
+    end
+  end
+
+  private
+
+  def para_options(props)
+    (props["html_attributes"] || {}).merge(id: html_id, style: para_style(props))
+  end
+
+  def para_style(props)
+    drawable_style(props).merge({
+      color: rgb_to_hex(props["stroke"]),
+      "font-size": para_font_size(props),
+      "font-family": props["font"],
+    }.compact)
+  end
+
+  def para_font_size(props)
+    return nil unless props["size"]
+
+    sz = props["size"].to_s
+    font_size = SIZES[sz.to_sym] || sz.to_i
+
+    dimensions_length(font_size)
+  end
+end

data/scarpe-components/lib/scarpe/components/calzini/slots.rb

@@ -0,0 +1,155 @@
+# frozen_string_literal: true
+
+module Scarpe::Components::Calzini
+  def slot_element(props, &block)
+    HTML.render do |h|
+      h.div((props["html_attributes"] || {}).merge(id: html_id, style: slot_style(props)), &block)
+    end
+  end
+
+  def flow_element(props, &block)
+    HTML.render do |h|
+      h.div((props["html_attributes"] || {}).merge(id: html_id, style: flow_style(props)), &block)
+    end
+  end
+
+  def stack_element(props, &block)
+    HTML.render do |h|
+      h.div((props["html_attributes"] || {}).merge(id: html_id, style: stack_style(props)), &block)
+    end
+  end
+
+  def documentroot_element(props, &block)
+    HTML.render do |h|
+      # DocumentRoot rendering intentionally uses flow styles.
+      h.div((props["html_attributes"] || {}).merge(id: html_id, style: flow_style(props)), &block)
+    end
+  end
+
+  private
+
+  def slot_style(props)
+    styles = drawable_style(props)
+    styles = background_style(props, styles)
+    styles = border_style(props, styles)
+    styles = spacing_styles_for_attr("margin", props, styles)
+    styles = spacing_styles_for_attr("padding", props, styles)
+
+    styles[:width] = dimensions_length(props["width"]) if props["width"]
+    styles[:height] = dimensions_length(props["height"]) if props["height"]
+
+    styles
+  end
+
+  def flow_style(props)
+    {
+      display: "flex",
+      "flex-direction": "row",
+      "flex-wrap": "wrap",
+      "align-content": "flex-start",
+      "justify-content": "flex-start",
+      "align-items": "flex-start",
+    }.merge(slot_style(props))
+  end
+
+  def stack_style(props)
+    {
+      display: "flex",
+      "flex-direction": "column",
+      "align-content": "flex-start",
+      "justify-content": "flex-start",
+      "align-items": "flex-start",
+      overflow: props["scroll"] ? "auto" : nil,
+    }.compact.merge(slot_style(props))
+  end
+
+  def border_style(props, styles)
+    bc = props["border_color"]
+    return styles unless bc
+
+    opts = props["options"] || {}
+
+    border_style_hash = case bc
+    when Range
+      { "border-image": "linear-gradient(45deg, #{bc.first}, #{bc.last})" }
+    when Array
+      { "border-color": "rgba(#{bc.join(", ")})" }
+    else
+      { "border-color": bc }
+    end
+    styles.merge(
+      "border-style": "solid",
+      "border-width": "#{opts["strokewidth"] || 1}px",
+      "border-radius": "#{opts["curve"] || 0}px",
+    ).merge(border_style_hash)
+  end
+
+  def background_style(props, styles)
+    bc = props["background_color"]
+    return styles unless bc
+
+    color = case bc
+    when Array
+      "rgba(#{bc.join(", ")})"
+    when Range
+      "linear-gradient(45deg, #{bc.first}, #{bc.last})"
+    when ->(value) { File.exist?(value) }
+      "url(data:image/png;base64,#{encode_file_to_base64(bc)})"
+    else
+      bc
+    end
+
+    styles.merge(background: color)
+  end
+
+  SPACING_DIRECTIONS = [:left, :right, :top, :bottom]
+
+  # We extract the appropriate margin and padding from the margin and
+  # padding properties. If there are no margin or padding properties,
+  # we fall back to props["options"] margin or padding, if it exists.
+  #
+  # Margin or padding (in either props or props["options"]) can be
+  # a Hash with directions as keys, or an Array of left/right/top/bottom,
+  # or a constant, which means all four are that constant. You can
+  # also specify a "margin" plus "margin-top" which is constant but
+  # margin-top is overridden, or similar.
+  #
+  # If any margin or padding property exists in props then we don't
+  # check props["options"].
+  def spacing_styles_for_attr(attr, props, styles, with_options: true)
+    spacing_styles = {}
+
+    case props[attr]
+    when Hash
+      props[attr].each do |dir, value|
+        spacing_styles[:"#{attr}-#{dir}"] = dimensions_length value
+      end
+    when Array
+      SPACING_DIRECTIONS.zip(props[attr]).to_h.compact.each do |dir, value|
+        spacing_styles[:"#{attr}-#{dir}"] = dimensions_length(value)
+      end
+    when String, Numeric
+      spacing_styles[attr.to_sym] = dimensions_length(props[attr])
+    end
+
+    SPACING_DIRECTIONS.each do |dir|
+      if props["#{attr}_#{dir}"]
+        spacing_styles[:"#{attr}-#{dir}"] = dimensions_length props["#{attr}_#{dir}"]
+      end
+    end
+
+    unless spacing_styles.empty?
+      return styles.merge(spacing_styles)
+    end
+
+    # We should see if there are spacing properties in props["options"],
+    # unless we're currently doing that.
+    if with_options && props["options"]
+      spacing_styles = spacing_styles_for_attr(attr, props["options"], {}, with_options: false)
+      styles.merge spacing_styles
+    else
+      # No "options" or we already checked it? Return the styles we were given.
+      styles
+    end
+  end
+end

data/scarpe-components/lib/scarpe/components/calzini/text_widgets.rb

@@ -0,0 +1,65 @@
+# frozen_string_literal: true
+
+module Scarpe::Components::Calzini
+  def link_element(props)
+    HTML.render do |h|
+      h.a(**link_attributes(props)) do
+        props["text"]
+      end
+    end
+  end
+
+  def span_element(props, &block)
+    HTML.render do |h|
+      h.span(**span_options(props), &block)
+    end
+  end
+
+  def code_element(props, &block)
+    HTML.render do |h|
+      h.code(&block)
+    end
+  end
+
+  def em_element(props, &block)
+    HTML.render do |h|
+      h.em(&block)
+    end
+  end
+
+  def strong_element(props, &block)
+    HTML.render do |h|
+      h.strong(&block)
+    end
+  end
+
+  private
+
+  def link_attributes(props)
+    {
+      id: html_id,
+      href: props["click"],
+      onclick: (handler_js_code("click") if props["has_block"]),
+      style: drawable_style(props),
+    }.compact
+  end
+
+  def span_style(props)
+    {
+      color: props["stroke"],
+      "font-size": span_font_size(props),
+      "font-family": props["font"],
+    }.compact
+  end
+
+  def span_options(props)
+    (props["html_attributes"] || {}).merge(id: html_id, style: span_style(props))
+  end
+
+  def span_font_size(props)
+    sz = props["size"]
+    font_size = SIZES.key?(sz.to_s.to_sym) ? SIZES[sz.to_s.to_sym] : sz
+
+    dimensions_length(font_size)
+  end
+end