textbringer 10 → 12

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: '0408085f9d1f9af2c377ef3cdbd9b3d58e2fba034cb74b913712dc7fd8d3a318'
-  data.tar.gz: 6979a43e4faef3d8c7f8d8c9fd40f3545043a06796ee17d7bd0a8816ddcc7ef3
+  metadata.gz: 04d0f8e23504a6d3ae1ce1ccc4cf1ca4c8308525cd61356d22e50631474408bc
+  data.tar.gz: a16eefeef6df621bf2272a4437b1321c999b7ffd3f0cf7f1353d0a41baabd7b6
 SHA512:
-  metadata.gz: a1dcf9cd675cfb2e5948811dcead8489cf702fa862def55968d5cb6ce0f3b9160f14d6fd61cd68fe25043b81e5207945a20f66880a62510100133e238a69755f
-  data.tar.gz: 429ed24d28150483f4446749cb294eed127d0c88baa07651ddb1a55485bb9e3c57c9abbcec7b5c2d685fac15bdb13e103c57c756afa87d627acb1bd20b1812db
+  metadata.gz: f03f8d34e41b099d3b9dcaecbb1fa40b3e9c9f3c43a7aba7917dcfe8a7cccbd1dec97599c46e657839af70d8abf67681f339d5ba97f6abb308e76fe1ffbd93f0
+  data.tar.gz: 643f15490cc3ce708c8b6aced38b1249b7c4074a6a5fcb9c7fd927ee1493778fdefd9c9f393a968630e89a85823e13deb036c481691651b02580b2bc150a1a14

data/.github/dependabot.yml

@@ -0,0 +1,6 @@
+version: 2
+updates:
+  - package-ecosystem: 'github-actions'
+    directory: '/'
+    schedule:
+      interval: 'weekly'

data/.github/workflows/push_gem.yml

@@ -24,7 +24,7 @@ jobs:
     steps:
       # Set up
       - name: Harden Runner
-        uses: step-security/harden-runner@c6295a65d1254861815972266d5933fd6e532bdf # v2.11.1
+        uses: step-security/harden-runner@6c439dc8bdf85cadbbce9ed30d1c7b959517bc49 # v2.12.2
         with:
           egress-policy: audit
 
@@ -50,5 +50,5 @@ jobs:
       - name: Purge GitHub cache
         shell: bash
         run: |
-          urls=$(curl -sLk "https://github.com/${{ github.repository_owner }}/${{ github.event.repository.name }}/tree/main" | grep -Eo "(http|https)://camo.githubusercontent.com[a-zA-Z0-9./?=_%:-]*")
+          urls=$(curl -sL "https://github.com/${{ github.repository_owner }}/${{ github.event.repository.name }}/tree/main" | grep -Eo "(http|https)://camo.githubusercontent.com[a-zA-Z0-9./?=_%:-]*")
           while IFS= read -r url; do echo -e "\nPurge $url"; curl -X PURGE "$url"; done <<< "$urls"

data/lib/textbringer/buffer.rb

@@ -313,6 +313,10 @@ module Textbringer
       end
     end
 
+    def set_read_only(value)
+      @read_only = value
+    end
+
     def read_only_edit
       self.read_only = false
       begin
@@ -1085,6 +1089,185 @@ module Textbringer
       insert_for_yank(KILL_RING.rotate(1))
     end
 
+    def rectangle_boundaries(s = @point, e = mark)
+      s, e = Buffer.region_boundaries(s, e)
+      save_excursion do
+        goto_char(s)
+        start_line = @current_line
+        beginning_of_line
+        start_col = display_width(substring(@point, s)) + 1
+        goto_char(e)
+        end_line = @current_line
+        beginning_of_line
+        end_col = display_width(substring(@point, e)) + 1
+
+        # Ensure start_col <= end_col
+        if start_col > end_col
+          start_col, end_col = end_col, start_col
+        end
+        [start_line, start_col, end_line, end_col]
+      end
+    end
+
+    def extract_rectangle(s = @point, e = mark)
+      start_line, start_col, end_line, end_col = rectangle_boundaries(s, e)
+      lines = []
+      rectangle_width = end_col - start_col
+
+      save_excursion do
+        goto_line(start_line)
+        (start_line..end_line).each do |line_num|
+          beginning_of_line
+          line_start = @point
+
+          # Move to start column
+          col = 1
+          while col < start_col && !end_of_line?
+            forward_char
+            col = 1 + display_width(substring(line_start, @point))
+          end
+          start_pos = @point
+
+          # If we haven't reached start_col, the line is too short
+          if col < start_col
+            # Line is shorter than start column, extract all spaces
+            lines << " " * rectangle_width
+          else
+            # Move to end column
+            while col < end_col && !end_of_line?
+              forward_char
+              col = 1 + display_width(substring(line_start, @point))
+            end
+            end_pos = @point
+
+            # Extract the rectangle text for this line
+            if end_pos > start_pos
+              extracted = substring(start_pos, end_pos)
+              # Pad with spaces if the extracted text is shorter than rectangle width
+              extracted_width = display_width(extracted)
+              if extracted_width < rectangle_width
+                extracted += " " * (rectangle_width - extracted_width)
+              end
+              lines << extracted
+            else
+              lines << " " * rectangle_width
+            end
+          end
+
+          # Move to next line
+          break if line_num == end_line
+          forward_line
+        end
+      end
+
+      lines
+    end
+
+    def copy_rectangle(s = @point, e = mark)
+      lines = extract_rectangle(s, e)
+      @@killed_rectangle = lines
+    end
+
+    def kill_rectangle(s = @point, e = mark)
+      copy_rectangle(s, e)
+      delete_rectangle(s, e)
+    end
+
+    def delete_rectangle(s = @point, e = mark)
+      check_read_only_flag
+      start_line, start_col, end_line, end_col = rectangle_boundaries(s, e)
+
+      save_excursion do
+        # Delete from bottom to top to avoid position shifts
+        (start_line..end_line).reverse_each do |line_num|
+          goto_line(line_num)
+          beginning_of_line
+          line_start = @point
+
+          # Move to start column
+          col = 1
+          while col < start_col && !end_of_line?
+            forward_char
+            col = 1 + display_width(substring(line_start, @point))
+          end
+          start_pos = @point
+
+          # Only delete if we're within the line bounds
+          if col >= start_col
+            # Move to end column
+            while col < end_col && !end_of_line?
+              forward_char
+              col = 1 + display_width(substring(line_start, @point))
+            end
+            end_pos = @point
+
+            # Delete the rectangle text for this line
+            if end_pos > start_pos
+              delete_region(start_pos, end_pos)
+            end
+          end
+        end
+      end
+    end
+
+    def yank_rectangle
+      raise "No rectangle in kill ring" if @@killed_rectangle.nil?
+      lines = @@killed_rectangle
+      start_line, start_col = get_line_and_column(@point)
+
+      save_excursion do
+        lines.each_with_index do |line, i|
+          goto_line(start_line + i)
+          beginning_of_line
+          line_start = @point
+
+          # Move to start column, extending line if necessary
+          col = 1
+          while col < start_col && !end_of_line?
+            forward_char
+            col = 1 + display_width(substring(line_start, @point))
+          end
+
+          # If line is shorter than start_col, extend it with spaces
+          if col < start_col
+            insert(" " * (start_col - col))
+          end
+
+          # Insert the rectangle line
+          insert(line)
+        end
+      end
+    end
+
+    def open_rectangle(s = @point, e = mark)
+      check_read_only_flag
+      start_line, start_col, end_line, end_col = rectangle_boundaries(s, e)
+      width = end_col - start_col
+
+      save_excursion do
+        (start_line..end_line).each do |line_num|
+          goto_line(line_num)
+          beginning_of_line
+          line_start = @point
+
+          # Move to start column, extending line if necessary
+          col = 1
+          while col < start_col && !end_of_line?
+            forward_char
+            col = 1 + display_width(substring(line_start, @point))
+          end
+
+          # If line is shorter than start_col, extend it with spaces
+          if col < start_col
+            insert(" " * (start_col - col))
+          end
+
+          # Insert spaces to create the rectangle
+          insert(" " * width)
+        end
+      end
+    end
+
     def undo
       undo_or_redo(:undo, @undo_stack, @redo_stack)
     end
@@ -1746,6 +1929,7 @@ module Textbringer
   end
 
   KILL_RING = Ring.new
+  @@killed_rectangle = nil
 
   class UndoableAction
     attr_accessor :version

data/lib/textbringer/commands/buffers.rb

@@ -129,6 +129,31 @@ module Textbringer
       Buffer.current.delete_region
     end
 
+    define_command(:kill_rectangle,
+                   doc: "Kill the text of the region-rectangle, saving its contents as the last killed rectangle.") do
+      Buffer.current.kill_rectangle
+    end
+
+    define_command(:copy_rectangle_as_kill,
+                   doc: "Save the text of the region-rectangle as the last killed rectangle.") do
+      Buffer.current.copy_rectangle
+    end
+
+    define_command(:delete_rectangle,
+                   doc: "Delete the text of the region-rectangle.") do
+      Buffer.current.delete_rectangle
+    end
+
+    define_command(:yank_rectangle,
+                   doc: "Yank the last killed rectangle with its upper left corner at point.") do
+      Buffer.current.yank_rectangle
+    end
+
+    define_command(:open_rectangle,
+                   doc: "Insert blank space to fill the space of the region-rectangle. This pushes the previous contents of the region-rectangle to the right.") do
+      Buffer.current.open_rectangle
+    end
+
     define_command(:transpose_chars,
                    doc: "Transpose characters.") do
       Buffer.current.transpose_chars
@@ -298,5 +323,14 @@ module Textbringer
         n = number_prefix_arg|
       Buffer.current.insert(c.hex.chr(Encoding::UTF_8) * n)
     end
+
+    define_command(:read_only_mode,
+                    doc: <<~EOD) do
+        Change whether the current buffer is read-only.
+      EOD
+      Buffer.current.set_read_only(!Buffer.current.read_only?)
+      status = Buffer.current.read_only? ? "enabled" : "disabled"
+      message("Read-only mode #{status} in current buffer")
+    end
   end
 end

data/lib/textbringer/commands/files.rb

@@ -131,6 +131,15 @@ module Textbringer
       Dir.chdir(File.expand_path(dir_name))
     end
 
+    define_command(:find_file_read_only, doc: "Open a file but don't allow changes.") do
+      |file_name = read_file_name("Find file: ", default: (Buffer.current.file_name ? File.dirname(Buffer.current.file_name) : Dir.pwd) + "/")|
+      if !File.exist?(file_name)
+        raise EditorError, "#{file_name} does not exist"
+      end
+      find_file(file_name)
+      read_only_mode
+    end
+
     define_command(:find_alternate_file, doc: "Find an alternate file.") do
       |file_name = read_file_name("Find alternate file: ",
                                   default: Buffer.current.file_name)|

data/lib/textbringer/commands/server.rb

@@ -6,8 +6,8 @@ module Textbringer
                    doc: "Start Textbringer server.") do
       uri = CONFIG[:server_uri] ||
         "drbunix:" + File.expand_path("server.sock", "~/.textbringer")
-      options = { UNIXFileMode: 0600 }.merge(CONFIG[:server_options] || {})
-      DRb.start_service(uri, Server.new, options)
+      server = Server.new(uri)
+      server.start
     end
 
     define_command(:server_kill,
@@ -31,6 +31,56 @@ module Textbringer
   end
 
   class Server
+    def initialize(uri)
+      @uri = uri
+    end
+
+    def start
+      front = FrontObject.new
+      default_options = unix_domain? ? { UNIXFileMode: 0600 } : {}
+      options = default_options.merge(CONFIG[:server_options] || {})
+      begin
+        DRb.start_service(@uri, front, options)
+      rescue Errno::EADDRINUSE
+        if unix_domain? && !unix_domain_server_alive?
+          # Remove the socket file in case another server died unexpectedly before.
+          File.unlink(unix_domain_socket_path)
+          DRb.start_service(@uri, front, options)
+        else
+          raise ExistError, "There is an existing Textbringer server"
+        end
+      end
+    end
+
+    private
+
+    def unix_domain?
+      @uri.start_with?("drbunix:")
+    end
+
+    def unix_domain_socket_path
+      @uri.sub(/\Adrbunix:/, "")
+    end
+
+    def unix_domain_server_alive?
+      socket = Socket.new(:UNIX, :STREAM)
+      sockaddr = Socket.sockaddr_un(unix_domain_socket_path)
+      begin
+        socket.connect_nonblock(sockaddr)
+      rescue Errno::EINPROGRESS
+        return true
+      rescue Errno::ECONNREFUSED
+        return false
+      ensure
+        socket.close
+      end
+    end
+  end
+
+  class Server::ExistError < EditorError
+  end
+
+  class Server::FrontObject
     def eval(s)
       with_redisplay do
         Controller.current.instance_eval(s).inspect

data/lib/textbringer/keymap.rb

@@ -176,6 +176,7 @@ module Textbringer
   GLOBAL_MAP.define_key("\C-x\C-c", :exit_textbringer)
   GLOBAL_MAP.define_key("\C-z", :suspend_textbringer)
   GLOBAL_MAP.define_key("\C-x\C-f", :find_file)
+  GLOBAL_MAP.define_key("\C-x\C-r", :find_file_read_only)
   GLOBAL_MAP.define_key("\C-x\C-v", :find_alternate_file)
   GLOBAL_MAP.define_key("\C-xb", :switch_to_buffer)
   GLOBAL_MAP.define_key("\C-x\C-b", :list_buffers)
@@ -202,6 +203,11 @@ module Textbringer
   GLOBAL_MAP.define_key("\C-xri", :insert_register)
   GLOBAL_MAP.define_key("\C-xrn", :number_to_register)
   GLOBAL_MAP.define_key("\C-xr+", :increment_register)
+  GLOBAL_MAP.define_key("\C-xrk", :kill_rectangle)
+  GLOBAL_MAP.define_key("\C-xr\M-w", :copy_rectangle_as_kill)
+  GLOBAL_MAP.define_key("\C-xrd", :delete_rectangle)
+  GLOBAL_MAP.define_key("\C-xry", :yank_rectangle)
+  GLOBAL_MAP.define_key("\C-xro", :open_rectangle)
   GLOBAL_MAP.define_key("\C-x(", :start_keyboard_macro)
   GLOBAL_MAP.define_key(:f3, :start_keyboard_macro)
   GLOBAL_MAP.define_key("\C-x)", :end_keyboard_macro)
@@ -220,6 +226,7 @@ module Textbringer
   GLOBAL_MAP.define_key("\M-c", :capitalize_word)
   GLOBAL_MAP.define_key("\C-x8\C-m", :insert_char)
   GLOBAL_MAP.define_key("\C-x=", :what_cursor_position)
+  GLOBAL_MAP.define_key("\C-x\C-q", :read_only_mode)
   GLOBAL_MAP.define_key(:ic, :overwrite_mode)
   GLOBAL_MAP.handle_undefined_key do |key|
     if key.is_a?(String) && /[\0-\x7f]/ !~ key

data/lib/textbringer/version.rb

@@ -1,3 +1,3 @@
 module Textbringer
-  VERSION = "10"
+  VERSION = "12"
 end

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: textbringer
 version: !ruby/object:Gem::Version
-  version: '10'
+  version: '12'
 platform: ruby
 authors:
 - Shugo Maeda
@@ -330,6 +330,7 @@ extra_rdoc_files: []
 files:
 - ".editorconfig"
 - ".gitattributes"
+- ".github/dependabot.yml"
 - ".github/workflows/macos.yml"
 - ".github/workflows/push_gem.yml"
 - ".github/workflows/ubuntu.yml"