textbringer 23 → 25

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: 0fe4d897c03de987989c81559c4c7d354f9d2afd9ec8cc7ff819c5da0a2c1bb4
-  data.tar.gz: c687cc3726ea8d9ccfd9efcb235590f9d4d447145cb9a0a6eaeb103b133f671f
+  metadata.gz: 32054ff4c06164a8e49a6d82bde0d32fb2aed2e7fa1c842fa908fbb57abd5a6f
+  data.tar.gz: 7cebf42f75471bce99359f177344d0ce141cf617e9f350ac341a06253d48a4e8
 SHA512:
-  metadata.gz: c1885974de9ae18238d0a49f436e3300d5971c06b7d3b16fb9c21cfc36c42b15e1beb22ee4608a80252100e202cef01d0943fb8d68a3db6ec9884773aff02093
-  data.tar.gz: 75bdc11e89da85249a54568e8d23ecd0979934143604918b292c01f4630a59386fd2965c7a260d9fc9b05c8a5f81695ecf23e9306fcb5df04535f97d65a927b7
+  metadata.gz: a96f17982fa5b370357fc97bfd5e14617a0af7df230e5ad40071f0b751e82860ea0a01f025f8279aa6f38847d59484f159fa9244ed057f084d537c8f3c5741c7
+  data.tar.gz: 0fd05fb7d8aa16e51550e5276d549547b2023fad1b06aadc278fc41215da145a249fe868f632371811a10ab7680e4e9aa74e4db653665c733f2132a61e58456a

data/exe/txtb

@@ -33,6 +33,7 @@ begin
       transient_mark_mode(true)
       Window.echo_area.clear_message
       Plugin.load_plugins
+      Theme.load_default if Window.has_colors?
       load_user_config("~/.textbringer.rb")
       ruby_mode
       if ARGV.size > 0

data/lib/textbringer/buffer.rb

@@ -9,7 +9,8 @@ module Textbringer
     extend Enumerable
 
     attr_accessor :mode, :keymap
-    attr_reader :name, :file_name, :file_encoding, :file_format, :point, :marks
+    attr_reader :name, :file_name, :file_encoding, :file_format, :point, :marks,
+      :file_version, :version
     attr_reader :current_line, :current_column, :visible_mark, :isearch_mark, :mark_active
     attr_reader :last_match
     attr_reader :input_method
@@ -31,7 +32,7 @@ module Textbringer
     @@auto_detect_encodings = [
       Encoding::UTF_8,
       Encoding::EUC_JP,
-      Encoding::Windows_31J
+      Encoding::WINDOWS_31J
     ]
 
     DEFAULT_DETECT_ENCODING = ->(s) {
@@ -225,6 +226,7 @@ module Textbringer
                    file_encoding: CONFIG[:default_file_encoding],
                    file_mtime: nil, new_file: true, undo_limit: UNDO_LIMIT,
                    read_only: false)
+      @version = 0
       set_contents(s, file_encoding)
       @name = name
       @file_name = file_name
@@ -247,7 +249,7 @@ module Textbringer
       @undoing = false
       @composite_edit_level = 0
       @composite_edit_actions = []
-      @version = 0
+      @file_version = 0
       @modified = false
       @mode = FundamentalMode.new(self)
       @minor_modes = []
@@ -454,7 +456,7 @@ module Textbringer
       if file_name != @file_name
         self.file_name = file_name
       end
-      @version += 1
+      @file_version += 1
       @modified = false
       @new_file = false
       @read_only = false
@@ -605,6 +607,7 @@ module Textbringer
         end
       end
       @point = @gap_start += size
+      @version += 1
       update_line_and_column(pos, @point)
       unless @undoing
         if merge_undo && @undo_stack.last.is_a?(InsertAction)
@@ -645,6 +648,7 @@ module Textbringer
       s = @point
       pos = get_pos(@point, n)
       if n > 0
+        @version += 1
         str = substring(s, pos)
         # fill the gap with NUL to avoid invalid byte sequence in UTF-8
         @contents.bytesplice(@gap_end...user_to_gap(pos), "\0" * (pos - @point))
@@ -660,6 +664,7 @@ module Textbringer
         self.modified = true
         Utils.run_hooks(:after_change_functions, s, s, str) unless @undoing || !current?
       elsif n < 0
+        @version += 1
         str = substring(pos, s)
         update_line_and_column(@point, pos)
         # fill the gap with NUL to avoid invalid byte sequence in UTF-8
@@ -1014,6 +1019,7 @@ module Textbringer
       update_line_and_column(old_pos, s)
       save_point do
         str = substring(s, e)
+        @version += 1
         @point = s
         adjust_gap
         len = e - s
@@ -1052,6 +1058,7 @@ module Textbringer
 
     def clear
       check_read_only_flag
+      @version += 1
       @contents = String.new
       @point = @gap_start = @gap_end = 0
       @marks.each do |m|
@@ -1309,7 +1316,7 @@ module Textbringer
           @composite_edit_actions.each do |i|
             action.add_action(i)
           end
-          action.version = @composite_edit_actions.first.version
+          action.file_version = @composite_edit_actions.first.file_version
           push_undo(action)
           @composite_edit_actions.clear
         end
@@ -1516,6 +1523,7 @@ module Textbringer
     private
 
     def set_contents(s, enc)
+      @version += 1
       case s.encoding
       when Encoding::UTF_8, Encoding::ASCII_8BIT
         @contents = +s
@@ -1723,7 +1731,7 @@ module Textbringer
     def push_undo(action)
       return if @undoing || @undo_limit == 0
       if !modified?
-        action.version = @version
+        action.file_version = @file_version
       end
       if @composite_edit_level > 0
         @composite_edit_actions.push(action)
@@ -1746,11 +1754,11 @@ module Textbringer
       begin
         was_modified = @modified
         action.send(op)
-        if action.version == @version
+        if action.file_version == @file_version
           @modified = false
-          action.version = nil
+          action.file_version = nil
         elsif !was_modified
-          action.version = @version
+          action.file_version = @file_version
         end
         to_stack.push(action)
       ensure
@@ -1824,11 +1832,11 @@ module Textbringer
   KILL_RING = Ring.new
 
   class UndoableAction
-    attr_accessor :version
+    attr_accessor :file_version
     attr_reader :location
 
     def initialize(buffer, location)
-      @version = nil
+      @file_version = nil
       @buffer = buffer
       @location = location
     end

data/lib/textbringer/commands/dired.rb

@@ -0,0 +1,31 @@
+require "fileutils"
+
+module Textbringer
+  module Commands
+    define_command(:dired, doc: "Open a directory browser.") do
+      |dir = read_file_name("Dired: ",
+                            default: (Buffer.current.file_name ?
+                              File.dirname(Buffer.current.file_name) : Dir.pwd) + "/")|
+      dir = File.expand_path(dir)
+      raise EditorError, "#{dir} is not a directory" unless File.directory?(dir)
+      buf_name = "*Dired: #{dir}*"
+      buffer = Buffer.find_or_new(buf_name, undo_limit: 0, read_only: true)
+      buffer[:dired_directory] = dir
+      buffer.apply_mode(DiredMode) unless buffer.mode.is_a?(DiredMode)
+      if buffer.bytesize == 0
+        buffer.read_only_edit do
+          buffer.insert(DiredMode.generate_listing(dir))
+          buffer.beginning_of_buffer
+          buffer.forward_line
+          until buffer.end_of_buffer?
+            buffer.beginning_of_line
+            break unless buffer.looking_at?(/^[D ] \S+\s+\d+\s+[\d-]+\s+[\d:]+\s+\.\.?\/$/)
+            buffer.forward_line
+          end
+        end
+      end
+      switch_to_buffer(buffer)
+      dired_move_to_filename_command
+    end
+  end
+end

data/lib/textbringer/commands/files.rb

@@ -5,6 +5,10 @@ module Textbringer
   module Commands
     define_command(:find_file, doc: "Open or create a file.") do
       |file_name = read_file_name("Find file: ", default: (Buffer.current.file_name ? File.dirname(Buffer.current.file_name) : Dir.pwd) + "/")|
+      if File.directory?(file_name)
+        dired(file_name)
+        next
+      end
       config = EditorConfig.load_file(file_name)
       buffer = Buffer.find_file(file_name)
       if buffer.new_file?

data/lib/textbringer/commands/gamegrid.rb

@@ -0,0 +1,25 @@
+module Textbringer
+  module Commands
+    define_command(:gamegrid_show_scores,
+                   doc: "Display high scores for a game.") do
+      |game_name = read_from_minibuffer("Game name: ")|
+      scores = Gamegrid.load_scores(game_name)
+      buffer = Buffer.find_or_new("*Scores*", undo_limit: 0)
+      buffer.read_only_edit do
+        buffer.clear
+        buffer.insert("High Scores for #{game_name}\n")
+        buffer.insert("=" * 40 + "\n\n")
+        if scores.empty?
+          buffer.insert("No scores recorded.\n")
+        else
+          scores.each_with_index do |entry, i|
+            buffer.insert(
+              "#{i + 1}. #{entry[:score]}  #{entry[:player]}  #{entry[:time]}\n"
+            )
+          end
+        end
+      end
+      switch_to_buffer(buffer)
+    end
+  end
+end

data/lib/textbringer/commands/misc.rb

@@ -376,5 +376,24 @@ module Textbringer
         describe_char
       end
     end
+    define_command(:load_theme,
+                   doc: "Load and activate a theme by name.") do
+      |name = read_theme_name("Load theme: ")|
+      Theme.load(name)
+      Window.redisplay
+      message("Loaded theme: #{name}")
+    end
+
+    def read_theme_name(prompt)
+      builtin = Dir.glob(
+        File.expand_path("../../themes/*.rb", __FILE__)
+      ).map { |f| File.basename(f, ".rb") }
+      user = Dir.glob(
+        File.expand_path("~/.textbringer/themes/*.rb")
+      ).map { |f| File.basename(f, ".rb") }
+      names = (builtin + user).uniq.sort
+      f = ->(s) { complete_for_minibuffer(s, names) }
+      read_from_minibuffer(prompt, completion_proc: f)
+    end
   end
 end

data/lib/textbringer/commands/tetris.rb

@@ -0,0 +1,10 @@
+module Textbringer
+  module Commands
+    define_command(:tetris, doc: "Play Tetris.") do
+      buffer = Buffer.find_or_new("*Tetris*", undo_limit: 0)
+      buffer.apply_mode(TetrisMode) unless buffer.mode.is_a?(TetrisMode)
+      switch_to_buffer(buffer)
+      buffer.mode.tetris_new_game
+    end
+  end
+end

data/lib/textbringer/commands/windows.rb

@@ -84,6 +84,20 @@ module Textbringer
       end
     end
 
+    define_command(:set_foreground_color, doc: <<~EOD) do
+        Set the default foreground color.
+      EOD
+      |color = read_from_minibuffer("Foreground color: ")|
+      Window.set_default_colors(color, nil)
+    end
+
+    define_command(:set_background_color, doc: <<~EOD) do
+        Set the default background color.
+      EOD
+      |color = read_from_minibuffer("Background color: ")|
+      Window.set_default_colors(nil, color)
+    end
+
     define_command(:list_buffers, doc: <<~EOD) do |buffers = Buffer.list|
         List the existing buffers.
       EOD

data/lib/textbringer/config.rb

@@ -18,6 +18,7 @@ module Textbringer
     ispell_command: "aspell -a",
     fill_column: 70,
     read_file_name_completion_ignore_case: RUBY_PLATFORM.match?(/darwin/),
-    default_input_method: "t_code"
+    default_input_method: "t_code",
+    background_mode: nil
   }
 end

data/lib/textbringer/face.rb

@@ -6,6 +6,7 @@ module Textbringer
 
     @@face_table = {}
     @@next_color_pair = 1
+    @@color_pair_cache = {}
 
     def self.[](name)
       @@face_table[name]
@@ -17,6 +18,8 @@ module Textbringer
       else
         @@face_table[name] = new(name, **opts)
       end
+      resolve_dependents(name)
+      @@face_table[name]
     end
 
     def self.delete(name)
@@ -25,26 +28,79 @@ module Textbringer
 
     def initialize(name, **opts)
       @name = name
-      @color_pair = @@next_color_pair
-      @@next_color_pair += 1
       update(**opts)
     end
 
-    def update(foreground: -1, background: -1,
-               bold: false, underline: false, reverse: false)
-      @foreground = foreground
-      @background = background
-      @bold = bold
-      @underline = underline
-      @reverse = reverse
-      Curses.init_pair(@color_pair,
-                       Color[foreground], Color[background])
+    UNSET = Object.new.freeze
+    private_constant :UNSET
+
+    def update(foreground: nil, background: nil,
+               bold: nil, underline: nil, reverse: nil,
+               inherit: UNSET)
+      unless inherit.equal?(UNSET)
+        if inherit && !inherit.is_a?(Symbol)
+          raise EditorError,
+                "Face inherit: must be a Symbol, got #{inherit.inspect}"
+        end
+        if inherit && cyclic_inheritance?(@name, inherit)
+          raise EditorError,
+                "Cyclic face inheritance: #{@name} inherits from #{inherit}"
+        end
+        @inherit = inherit
+      end
+      @explicit_foreground = foreground
+      @explicit_background = background
+      @explicit_bold = bold
+      @explicit_underline = underline
+      @explicit_reverse = reverse
+      resolve_inheritance
+      self
+    end
+
+    private
+
+    def resolve_inheritance
+      parent = @inherit ? self.class[@inherit] : nil
+      @foreground = @explicit_foreground || parent&.instance_variable_get(:@foreground) || -1
+      @background = @explicit_background || parent&.instance_variable_get(:@background) || -1
+      @bold = @explicit_bold.nil? ? (parent&.instance_variable_get(:@bold) || false) : @explicit_bold
+      @underline = @explicit_underline.nil? ? (parent&.instance_variable_get(:@underline) || false) : @explicit_underline
+      @reverse = @explicit_reverse.nil? ? (parent&.instance_variable_get(:@reverse) || false) : @explicit_reverse
+      fg_num = Color[@foreground]
+      bg_num = Color[@background]
+      key = [fg_num, bg_num]
+      unless @@color_pair_cache.key?(key)
+        @@color_pair_cache[key] = @@next_color_pair
+        Curses.init_pair(@@next_color_pair, fg_num, bg_num)
+        @@next_color_pair += 1
+      end
+      @color_pair = @@color_pair_cache[key]
       @text_attrs = 0
-      @text_attrs |= Curses::A_BOLD if bold
-      @text_attrs |= Curses::A_UNDERLINE if underline
-      @text_attrs |= Curses::A_REVERSE if reverse
+      @text_attrs |= Curses::A_BOLD if @bold
+      @text_attrs |= Curses::A_UNDERLINE if @underline
+      @text_attrs |= Curses::A_REVERSE if @reverse
       @attributes = Curses.color_pair(@color_pair) | @text_attrs
-      self
     end
+
+    def cyclic_inheritance?(name, inherit)
+      current = inherit
+      while current
+        return true if current == name
+        face = self.class[current]
+        current = face&.instance_variable_get(:@inherit)
+      end
+      false
+    end
+
+    def self.resolve_dependents(name, visited = {})
+      visited[name] = true
+      @@face_table.each_value do |face|
+        if face.instance_variable_get(:@inherit) == name
+          face.send(:resolve_inheritance)
+          resolve_dependents(face.name, visited) unless visited.key?(face.name)
+        end
+      end
+    end
+    private_class_method :resolve_dependents
   end
 end

data/lib/textbringer/faces/gamegrid.rb

@@ -0,0 +1,23 @@
+module Textbringer
+  # Foreground color faces for gamegrid
+  Face.define :gamegrid_red, foreground: "red"
+  Face.define :gamegrid_green, foreground: "green"
+  Face.define :gamegrid_blue, foreground: "blue"
+  Face.define :gamegrid_yellow, foreground: "yellow"
+  Face.define :gamegrid_cyan, foreground: "cyan"
+  Face.define :gamegrid_magenta, foreground: "magenta"
+  Face.define :gamegrid_white, foreground: "white"
+
+  # Block faces (solid background) for Tetris-style solid blocks
+  Face.define :gamegrid_block_red, background: "red", foreground: "red"
+  Face.define :gamegrid_block_green, background: "green", foreground: "green"
+  Face.define :gamegrid_block_blue, background: "blue", foreground: "blue"
+  Face.define :gamegrid_block_yellow, background: "yellow", foreground: "yellow"
+  Face.define :gamegrid_block_cyan, background: "cyan", foreground: "cyan"
+  Face.define :gamegrid_block_magenta, background: "magenta", foreground: "magenta"
+  Face.define :gamegrid_block_white, background: "white", foreground: "white"
+
+  # Utility faces
+  Face.define :gamegrid_border, foreground: "white", bold: true
+  Face.define :gamegrid_score, foreground: "yellow", bold: true
+end

data/lib/textbringer/gamegrid.rb

@@ -0,0 +1,160 @@
+require "fileutils"
+require "time"
+
+module Textbringer
+  class Gamegrid
+    attr_reader :width, :height
+    attr_accessor :score
+
+    def initialize(width, height, margin_left: 0)
+      @width = width
+      @height = height
+      @margin_left = margin_left
+      @grid = Array.new(height) { Array.new(width, 0) }
+      @faces = Array.new(height) { Array.new(width, nil) }
+      @display_options = {}
+      @score = 0
+      @timer_thread = nil
+    end
+
+    # Cell API
+
+    def set_cell(x, y, value)
+      check_bounds(x, y)
+      @grid[y][x] = value
+    end
+
+    def get_cell(x, y)
+      check_bounds(x, y)
+      @grid[y][x]
+    end
+
+    def set_face(x, y, face_name)
+      check_bounds(x, y)
+      @faces[y][x] = face_name
+    end
+
+    def get_face(x, y)
+      check_bounds(x, y)
+      @faces[y][x]
+    end
+
+    def set_display_option(value, char:, face: nil)
+      @display_options[value] = { char: char, face: face }
+    end
+
+    def fill(value)
+      @height.times do |y|
+        @width.times do |x|
+          @grid[y][x] = value
+          @faces[y][x] = nil
+        end
+      end
+    end
+
+    # Rendering
+
+    def render
+      margin = " " * @margin_left
+      @height.times.map { |y|
+        margin + @width.times.map { |x|
+          cell_char(@grid[y][x])
+        }.join
+      }.join("\n")
+    end
+
+    def apply_highlights(ctx)
+      offset = 0
+      @height.times do |y|
+        offset += @margin_left
+        @width.times do |x|
+          value = @grid[y][x]
+          # Priority: explicit set_face > display_option face > nil
+          face_name = @faces[y][x]
+          if face_name.nil?
+            opt = @display_options[value]
+            face_name = opt[:face] if opt
+          end
+          if face_name
+            face = Face[face_name]
+            if face
+              char_len = cell_char(value).bytesize
+              ctx.highlight(offset, offset + char_len, face)
+            end
+          end
+          offset += cell_char(value).bytesize
+        end
+        offset += 1  # newline
+      end
+    end
+
+    # Timer
+
+    def start_timer(interval, &callback)
+      stop_timer
+      @timer_thread = Thread.new do
+        loop do
+          sleep(interval)
+          Controller.current.next_tick(&callback)
+        rescue ThreadError
+          break
+        end
+      end
+    end
+
+    def stop_timer
+      if @timer_thread
+        @timer_thread.kill
+        @timer_thread = nil
+      end
+    end
+
+    def timer_active?
+      !@timer_thread.nil? && @timer_thread.alive?
+    end
+
+    # Score persistence
+
+    def self.score_file_path(game_name)
+      safe_name = File.basename(game_name).gsub(/[^A-Za-z0-9_\-]/, "_")
+      File.expand_path("~/.textbringer/scores/#{safe_name}.scores")
+    end
+
+    def self.add_score(game_name, score, player_name: "anonymous")
+      path = score_file_path(game_name)
+      FileUtils.mkdir_p(File.dirname(path))
+      File.open(path, "a") do |f|
+        f.puts("#{score}\t#{player_name}\t#{Time.now.iso8601}")
+      end
+    end
+
+    def self.load_scores(game_name, limit: 10)
+      path = score_file_path(game_name)
+      return [] unless File.exist?(path)
+      lines = File.readlines(path, chomp: true)
+      lines.map { |line|
+        parts = line.split("\t")
+        { score: parts[0].to_i, player: parts[1], time: parts[2] }
+      }.sort_by { |h| -h[:score] }.first(limit)
+    end
+
+    private
+
+    def check_bounds(x, y)
+      if x < 0 || x >= @width || y < 0 || y >= @height
+        raise ArgumentError, "coordinates (#{x}, #{y}) out of bounds"
+      end
+    end
+
+    def cell_char(value)
+      opt = @display_options[value]
+      if opt
+        opt[:char]
+      elsif value.is_a?(String)
+        value
+      else
+        " "
+      end
+    end
+  end
+end

data/lib/textbringer/highlight_context.rb

@@ -0,0 +1,21 @@
+module Textbringer
+  class HighlightContext
+    attr_reader :buffer, :highlight_start, :highlight_end
+
+    def initialize(buffer:, highlight_start:, highlight_end:,
+                   highlight_on:, highlight_off:)
+      @buffer = buffer
+      @highlight_start = highlight_start
+      @highlight_end = highlight_end
+      @highlight_on = highlight_on
+      @highlight_off = highlight_off
+    end
+
+    def highlight(start_offset, end_offset, face)
+      start_offset = @highlight_start if start_offset < @highlight_start &&
+        @highlight_start < end_offset
+      @highlight_on[start_offset] = face
+      @highlight_off[end_offset] = true
+    end
+  end
+end

data/lib/textbringer/keymap.rb

@@ -177,6 +177,7 @@ module 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-xd", :dired)
   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)

data/lib/textbringer/mode.rb

@@ -81,5 +81,30 @@ module Textbringer
     def syntax_table
       self.class.syntax_table
     end
+
+    def highlight(ctx)
+      syntax_table = self.class.syntax_table || DEFAULT_SYNTAX_TABLE
+      if ctx.buffer.bytesize < CONFIG[:highlight_buffer_size_limit]
+        base_pos = ctx.buffer.point_min
+        s = ctx.buffer.to_s
+      else
+        base_pos = ctx.highlight_start
+        s = ctx.buffer.substring(ctx.highlight_start,
+              ctx.highlight_end).scrub("")
+      end
+      return if !s.valid_encoding?
+      re_str = syntax_table.map { |name, re|
+        "(?<#{name}>#{re})"
+      }.join("|")
+      re = Regexp.new(re_str)
+      names = syntax_table.keys
+      s.scan(re) do
+        b = base_pos + $`.bytesize
+        e = b + $&.bytesize
+        name = names.find { |n| $~[n] }
+        face = Face[name]
+        ctx.highlight(b, e, face) if face
+      end
+    end
   end
 end