kredki 0.1.0

data/lib/kredki/pads/text/navigable_text_pad.rb

@@ -0,0 +1,413 @@
+module Kredki
+  module Pads
+    class NavigableTextPad < TextPad
+      
+      # Set subject.
+      def set_subject subject = @subject, cursor_position = 0, &b
+        if super(subject, &b) && @selection.size != @verses.size
+          @selection.clear
+          @verses.each{ @selection.new_rectangle fill: :text_selection, size_x: 0 }
+        end
+        update_cursor cursor_position
+      end
+
+      # Set font.
+      def set_font font = @verses.first.font
+        return send_bundle :set_font, yield(self.font) if block_given?
+        @verses.count{ _1.set_font font }.nonzero?
+      end
+      
+      # See #set_font.
+      def font= param
+        send_bundle :set_font, param
+      end
+
+      # Get font
+      def font
+        @verses.first.text.font
+      end
+
+      # Get whether any text is selected.
+      def any_selected
+        @selection_start != @selection_end
+      end
+
+      # Get selected content.
+      def selected_content
+        text[@selection_start...@selection_end]
+      end
+
+      # Set select range.
+      def select min, max
+        @selection_start = min
+        @selection_end = @cursor_position = max
+        layer&.break_layout
+      end
+
+      # :section: LEVEL 2
+
+      attr :selection_start, :selection_end, :cursor
+      attr_accessor :cursor_position
+
+      def update_cursor position = 0
+        @cursor_position = @selection_start = @selection_end = position
+        layer&.break_layout
+      end
+
+      def drag x, y
+        cursor_position = cursor_position_for_coordinates x, y
+        if cursor_position != @cursor_position
+          if @cursor_position == @selection_start
+            if cursor_position <= @selection_end
+              @selection_start = @cursor_position = cursor_position
+            else
+              @selection_start = @selection_end
+              @selection_end = @cursor_position = cursor_position
+            end
+          elsif @cursor_position == @selection_end
+            if cursor_position >= @selection_start
+              @selection_end = @cursor_position = cursor_position
+            else
+              @selection_end = @selection_start
+              @selection_start = @cursor_position = cursor_position
+            end
+          end
+          layer&.break_layout
+        end
+      end
+
+      def cursor_left shift
+        if shift
+          if @cursor_position > 0
+            if @cursor_position == @selection_start
+              @selection_start = @cursor_position -= 1
+            elsif @cursor_position == @selection_end
+              @selection_end = @cursor_position -= 1
+            end
+          end
+        else
+          if @selection_start == @selection_end            
+            @cursor_position -= 1 if @cursor_position > 0
+            @selection_start = @selection_end = @cursor_position
+          else
+            @cursor_position = @selection_end = @selection_start
+          end
+        end
+        layer&.break_layout
+      end
+
+      def cursor_right shift
+        length = text.length
+        if shift
+          if @cursor_position < length
+            if @cursor_position == @selection_end
+              @selection_end = @cursor_position += 1
+            elsif @cursor_position == @selection_start
+              @selection_start = @cursor_position += 1
+            end
+          end
+        else
+          if @selection_start == @selection_end            
+            @cursor_position += 1 if @cursor_position < length
+            @selection_start = @selection_end = @cursor_position
+          else
+            @cursor_position = @selection_start = @selection_end
+          end
+        end
+        layer&.break_layout
+      end
+      
+      attr :selection
+
+      def initialize
+        super
+
+        @cursor_position = @selection_start = @selection_end = 0
+        @selection = @scene.new_scene
+        @cursor = @scene.new_rectangle fill: :text, size_x: 1, scenic: false
+      end
+
+      def mouse_press e
+      end
+
+      def fit_size_x
+        super + @cursor.size_x * 2
+      end
+
+      def update_size x, y # update_size must be called before get_x/get_y
+        super
+        update_cursor_location if @cursor.displayed
+      end
+
+      def get_x clip_size, size, ax
+        if @cursor.displayed
+          cx = @cursor.x + @cursor.size_x
+          if area_x + cx > size
+            size - cx - @cursor.size_x / 2
+          elsif area_x + @cursor.x < 0
+            @cursor.size_x / 2 - @cursor.x
+          else
+            area_x
+          end
+        else
+          super
+        end
+      end
+
+      def get_y clip_size, size, ay
+        if @cursor.displayed
+          cy = cursor.y + cursor.size_y
+          if area_y + cy > size
+            size - cy
+          elsif area_y + cursor.y < 0
+            -cursor.y
+          else
+            area_y
+          end
+        else
+          super
+        end
+      end
+
+      def align_x reference_size_x, size_x
+        case @verse_layout
+        when :yss, :ysc, :yse
+          @cursor.size_x
+        when :yes, :yec, :yee
+          size_x - reference_size_x - @cursor.size_x
+        when :ycs, :ycc, :yce
+          (size_x - reference_size_x + @cursor.size_x) * 0.5
+        else raise_is @verse_layout
+        end
+      end
+
+      def cursor_position_for_coordinates x, y
+        total = 0
+        last = @verses.last
+        @verses.each do |verse|
+          if verse.y + verse.size_y < y && verse != last
+            total += verse.content.length + 1
+          else
+            return total + verse.nearest_character_index(x - verse.x + 2)
+          end
+        end
+        total > 0 ? total - 1 : 0
+      end
+
+      def arrange_verses
+        sx, sy = area_size
+        size_v, space = verse_metrics sy
+        @cursor.set_size_y size_v
+        if @verses.size > 0
+          size_t = (size_v + space) * @verses.size - space
+          y = align_y size_t, sy
+          @verses.each do |v|
+            v.set_size_y size_v
+            x = align_x v.size_x, sx
+            v.set_xy x.floor, y.floor
+            y += size_v + space
+          end
+        end
+        true
+      end
+
+      def scroll x, y
+        if @verses.size > 0
+          sx, sy = area_size
+
+          scene_x = if x == 0
+            @scene.x
+          else
+            fit = fit_size_x
+            x0 = align_x fit, sx
+            fit > sx ? (@scene.x + x).clamp(sx - fit - x0..-x0) : @scene.x
+          end
+
+          scene_y = if y == 0
+            @scene.y
+          else
+            size_v, space = verse_metrics sy
+            reference_size_y = (size_v + space) * @verses.size - space
+            y0 = align_y reference_size_y, sy
+            reference_size_y > sy ? (@scene.y + y).clamp(sy - reference_size_y - y0..-y0) : @scene.y
+          end
+
+          @scene.set_xy scene_x.floor, scene_y.floor
+        end
+      end
+
+      def process_drag e, speed = 1
+        sx, sy = area_size
+
+        reference_size_x = fit_size_x
+        x0 = align_x reference_size_x, sx
+        @sx0 = @scene.x if e.start? || !@sx0
+        scene_x = reference_size_x > sx ? (@sx0 + (e.x - layer.pin_xy[0]) * speed).clamp(sx - reference_size_x - x0..-x0) : @scene.x
+
+        size_v, space = verse_metrics sy
+        reference_size_y = (size_v + space) * @verses.size - space
+        y0 = align_y reference_size_y, sy
+        @sy0 = @scene.y if e.start? || !@sy0
+        scene_y = reference_size_y > sy ? (@sy0 + (e.y - layer.pin_xy[1]) * speed).clamp(sy - reference_size_y - y0..-y0) : @scene.y
+
+        @scene.set_xy scene_x.floor, scene_y.floor
+      end
+
+      def update_cursor_location
+        total = -1
+        @cursor.set_xy align_x(@cursor.size_x * 0.5, area_size_x).floor, align_y(@cursor.size_y, area_size_y).floor
+        @verses.each do |verse|
+          total += 1
+          if @cursor_position <= total + verse.content.length
+            x = verse.substring_width @cursor_position - total
+            @cursor.set_xy (x + verse.x - @cursor.size_x * 0.5).floor, verse.y.floor
+            break
+          end
+          total += verse.content.length
+        end
+
+        total = -1
+        @verses.zip @selection.each_paint do |v, s|
+          total += 1
+          next_total = total + v.content.length
+          if @selection_start == @selection_end || @selection_start > next_total || @selection_end <= total
+            s.set_size_x 0
+          elsif @selection_start <= total && @selection_end >= next_total
+            s.set_size *v.size
+            s.set_xy *v.xy
+          elsif @selection_end >= next_total
+            x1 = v.substring_width @selection_start - total
+            s.set_size v.size_x - x1, v.size_y
+            s.set_xy v.x + x1, v.y
+          elsif @selection_start <= total
+            x1 = v.substring_width @selection_end - total
+            s.set_size x1, v.size_y
+            s.set_xy *v.xy
+          else
+            x1 = v.substring_width @selection_start - total
+            x2 = v.substring_width @selection_end - total
+            s.set_size x2 - x1, v.size_y
+            s.set_xy v.x + x1, v.y
+          end
+          total = next_total
+        end
+      end
+
+      def cursor_up shift
+        prev_v = nil
+        cursor_position = @verses.reduce -1 do |total, v|
+          total += 1
+          if total + v.content.length >= @cursor_position
+            break prev_v ? total - prev_v.content.length + prev_v.nearest_character_index(@cursor.x - prev_v.x) - 1 : 0
+          end
+          prev_v = v
+          total + v.content.length
+        end
+        if shift
+          if @cursor_position == @selection_start
+            @selection_start = @cursor_position = cursor_position
+          elsif cursor_position >= @selection_start
+            @selection_end = @cursor_position = cursor_position
+          else
+            @selection_end = @selection_start
+            @selection_start = @cursor_position = cursor_position
+          end
+        else
+          if @selection_start == @selection_end            
+            @selection_start = @selection_end = @cursor_position = cursor_position
+          else
+            @cursor_position = @selection_end = @selection_start
+          end
+        end
+        @scene.x = 0
+        layer&.break_layout
+      end
+
+      def cursor_down shift
+        cursor_position = @verses.reduce -1 do |total, v|
+          total += 1
+          if total > @cursor_position
+            break total + v.nearest_character_index(@cursor.x - v.x)
+          end
+          total + v.content.length
+        end
+        if shift
+          if @cursor_position == @selection_end
+            @selection_end = @cursor_position = cursor_position
+          elsif cursor_position <= @selection_end
+            @selection_start = @cursor_position = cursor_position
+          else
+            @selection_start = @selection_end
+            @selection_end = @cursor_position = cursor_position
+          end
+        else
+          if @selection_start == @selection_end            
+            @selection_start = @selection_end = @cursor_position = cursor_position
+          else
+            @cursor_position = @selection_start = @selection_end
+          end
+        end
+        @scene.x = 0
+        layer&.break_layout
+      end
+
+      def cursor_home shift, ctrl
+        cursor_position = if ctrl
+          0
+        else
+          @verses.reduce -1 do |total, v|
+            length = v.content.length
+            total += 1
+            break total if total + length >= @cursor_position
+            total + length
+          end
+        end
+
+        if shift
+          if @cursor_position == @selection_end
+            if cursor_position <= @selection_start
+              @selection_end = @selection_start
+              @selection_start = cursor_position
+            else
+              @selection_end = cursor_position
+            end
+          else
+            @selection_start = cursor_position
+          end
+          @cursor_position = cursor_position
+          layer&.break_layout
+        else
+          update_cursor cursor_position
+        end
+      end
+
+      def cursor_end shift, ctrl
+        cursor_position = if ctrl
+          text.length
+        else
+          @verses.reduce -1 do |total, v|
+            break total if total >= @cursor_position
+            total + 1 + v.content.length
+          end
+        end
+
+        if shift
+          if @cursor_position == @selection_start
+            if cursor_position >= @selection_end
+              @selection_start = @selection_end
+              @selection_end = cursor_position
+            else
+              @selection_start = cursor_position
+            end
+          else
+            @selection_end = cursor_position
+          end
+          @cursor_position = cursor_position
+          layer&.break_layout
+        else
+          update_cursor cursor_position
+        end
+      end
+    end
+  end
+end

data/lib/kredki/pads/text/text_edition.rb

@@ -0,0 +1,97 @@
+require_relative 'text_navigation'
+
+module Kredki
+  module Pads
+    # Common event reactions for text edition.
+    module TextEdition
+      include TextNavigation
+
+      class EditEvent < Event
+        def param
+          string
+        end
+
+        # :section: LEVEL 2
+
+        def initialize selection_start, selection_end, string, inset, action
+          super()
+          @selection_start = selection_start
+          @selection_end = selection_end
+          @string = string
+          @inset = inset
+          @action = action
+        end
+
+        attr_accessor :selection_start
+        attr_accessor :selection_end
+        attr_accessor :string
+        attr_accessor :inset
+        attr_accessor :action        
+      end
+      
+      def on_edit ...
+        on(EditEvent, ...)
+      end
+
+      def text_edition text, multiline
+        text_navigation text
+
+        on_key_press :backspace do |e|
+          text.backspace
+          e.close
+        end
+
+        on_key_press :delete do |e|
+          text.delete
+          e.close
+        end
+
+        on_text_input do |e|
+          text.paste e.param
+          e.close
+        end
+
+        on_key_press :v do |e|
+          if e.ctrl?
+            text.paste Kredki.clipboard.content
+            e.close
+          end
+        end
+
+        on_key_press :x do |e|
+          if e.ctrl? && (text.any_selected || e.shift?)
+            s = e.shift? ? clipboard.content : ""
+            Kredki.clipboard.content = text.selected_content if text.any_selected
+            text.paste s
+            e.close
+          end
+        end
+
+        on_mouse_move do |e|
+          if e.drop?
+            text.drop_move *text.layer.translate(*e.xy, text)
+            e.close
+          end
+        end
+
+        on_drop do |e|
+          text.paste e.param
+          e.close
+        end
+
+        on_edit early: true do |e|
+          cursor_position = e.inset.length + e.selection_start
+          text.edit e.string, cursor_position
+        end
+
+        if multiline
+          on_key_press :enter do |e|
+            text.paste "\n"
+            e.close
+          end
+        end
+      end
+
+    end
+  end
+end

data/lib/kredki/pads/text/text_navigation.rb

@@ -0,0 +1,109 @@
+module Kredki
+  module Pads
+    # Common event reactions for text navigation.
+    module TextNavigation
+
+      def text_navigation text
+
+        on_key_press :up do |e|
+          text.cursor_up e.shift?
+          e.close
+        end
+
+        on_key_press :down do |e|
+          text.cursor_down e.shift?
+          e.close
+        end
+    
+        on_key_press :left do |e|
+          text.cursor_left e.shift?
+          e.close
+        end
+    
+        on_key_press :right do |e|
+          text.cursor_right e.shift?
+          e.close
+        end
+
+        on_key_press :home do |e|
+          text.cursor_home e.shift?, e.ctrl?
+          e.close
+        end
+
+        on_key_press :keypad_seven do |e|
+          unless e.num_lock?
+            text.cursor_home e.shift?, e.ctrl?
+            e.close
+          end
+        end
+
+        on_key_press :end do |e|
+          text.cursor_end e.shift?, e.ctrl?
+          e.close
+        end
+
+        on_key_press :keypad_one do |e|
+          unless e.num_lock?
+            text.cursor_end e.shift?, e.ctrl?
+            e.close
+          end
+        end
+
+        on_key_press :a do |e|
+          if e.ctrl?
+            text.select 0, text.content.length
+            e.close
+          end
+        end
+
+        on_key_press :c do |e|
+          if e.ctrl? && text.any_selected
+            Kredki.clipboard.content = text.selected_content
+            e.close
+          end
+        end
+
+        on_mouse_press :primary do |e|
+          if Kredki.keyboard.shift?
+            text.drag *text.layer.translate(*e.xy, text)
+          else
+            if layer.mouse_click_combo(e) == 1
+              sl = text.text.to_s.length
+              unless text.cursor_position == sl && text.selection_start == 0 && sl == text.selection_end
+                text.select 0, sl
+                e.close
+              end
+            else
+              cursor_position = text.cursor_position_for_coordinates *text.layer.translate(*e.xy, text)
+              text.update_cursor cursor_position
+            end
+          end
+        end
+
+        on_mouse_move do |e|
+          if e.drag? && e.button == :primary
+            text.drag *text.layer.translate(*e.xy, text)
+            e.close
+          end
+        end
+
+        on_mouse_release do |e|
+          if e.drag
+            text.cursor_position = text.cursor_position_for_coordinates *text.layer.translate(*e.xy, text)
+          end
+        end
+
+        on_focus_leave do |e|
+          text.cursor.set_scenic false
+          layer&.break_layout
+          e.close
+        end
+
+        on_focus_enter do |e|
+          text.cursor.set_scenic
+          e.close
+        end
+      end
+    end
+  end
+end

data/lib/kredki/pads/toolbar/item.rb

@@ -0,0 +1,62 @@
+require_relative '../item/item_x'
+
+module Kredki
+  module Pads
+    module Toolbar
+      class Item < Pads::ItemX
+
+        # Add submenu item.
+        def item!(...)
+          dropdown!.item_group.item!(...)
+        end
+
+        # Create/Update dropdown.
+        def dropdown! ...
+          (find PrimaryLayer or put PrimaryLayer).set(...)
+        end
+
+        # See #dropdown!.
+        def dropdown= param
+          send_bundle :dropdown!, param
+        end
+
+        # Get dropdown.
+        def dropdown
+          find PrimaryLayer
+        end
+
+        # :section: LEVEL 2
+
+        def sketch
+          super
+
+          set_margin_x 5
+        end
+
+        def behavior
+          super
+
+          on_key_press :down, :up, :enter, :space do |e|
+            layer = find PrimaryLayer
+            if layer
+              layer.load self unless layer.loaded
+              layer.find_upper(Context::Item)&.keyboard_request and e.close
+            end
+          end
+
+          on_mouse_click do |e|
+            layer = find_upper PrimaryLayer
+            layer.load self if layer && !layer.loaded
+          end
+        end
+
+        def mouse_enter e
+          super
+          layer = find_upper PrimaryLayer
+          layer.update_keyboard_pad nil if layer&.loaded
+        end
+
+      end#Item
+    end#Toolbar
+  end#Pads
+end#Kredki

data/lib/kredki/pads/toolbar/item_group.rb

@@ -0,0 +1,22 @@
+require_relative '../item/item_group'
+
+module Kredki
+  module Pads
+    module Toolbar
+      # Toolbar menu item group.
+      class ItemGroup < Pads::ItemGroup
+
+        # Add menu item.
+        def item! *a, **ka, &b
+          put Item, __method__, *a, size_x: Fit, **ka, &b
+        end
+
+        # :section: LEVEL 2
+
+        def mouse_enter pad
+          pad.keyboard_request if lower.keyboard_in && find_upper(Item){|it| it.keyboard_in } != pad
+        end
+      end
+    end
+  end
+end