textbringer 23 → 24

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: 0fe4d897c03de987989c81559c4c7d354f9d2afd9ec8cc7ff819c5da0a2c1bb4
-  data.tar.gz: c687cc3726ea8d9ccfd9efcb235590f9d4d447145cb9a0a6eaeb103b133f671f
+  metadata.gz: d7426dda13275f37439bdcc360a55971b34cc4b62916eeaee734b127ab9a8a88
+  data.tar.gz: fcc6391ac0697659a8b85005766186502731e8473928a5e5165d7c0a97d533f1
 SHA512:
-  metadata.gz: c1885974de9ae18238d0a49f436e3300d5971c06b7d3b16fb9c21cfc36c42b15e1beb22ee4608a80252100e202cef01d0943fb8d68a3db6ec9884773aff02093
-  data.tar.gz: 75bdc11e89da85249a54568e8d23ecd0979934143604918b292c01f4630a59386fd2965c7a260d9fc9b05c8a5f81695ecf23e9306fcb5df04535f97d65a927b7
+  metadata.gz: be219b93c87935b98780c5d41430dd3d0760b839e20977dc843fa88aa8253614fb0e68dc7f90e37c08de6a23722daec928294f9702114908707011c33c766dc6
+  data.tar.gz: 6f61d4ed9ce65308bf150f24c886e05a1743af8bd38913c80f750db77c64a90b543ae95f60774b9d8ae52953cfa91e5f36e62665e0830b9aab6f6d97925ab289

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/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/faces/dired.rb

@@ -0,0 +1,6 @@
+module Textbringer
+  Face.define :dired_directory,  foreground: "magenta"
+  Face.define :dired_symlink,    foreground: "cyan"
+  Face.define :dired_executable, foreground: "green"
+  Face.define :dired_flagged,    foreground: "red"
+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,164 @@
+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 face_map
+      highlight_on = {}
+      highlight_off = {}
+      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
+              highlight_on[offset] = face
+              char_len = cell_char(value).bytesize
+              highlight_off[offset + char_len] = true
+            end
+          end
+          offset += cell_char(value).bytesize
+        end
+        offset += 1  # newline
+      end
+      [highlight_on, highlight_off]
+    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/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/modes/dired_mode.rb

@@ -0,0 +1,322 @@
+module Textbringer
+  class DiredMode < Mode
+    define_keymap :DIRED_MODE_MAP
+    DIRED_MODE_MAP.define_key("n",    :dired_next_line_command)
+    DIRED_MODE_MAP.define_key(" ",    :dired_next_line_command)
+    DIRED_MODE_MAP.define_key("\C-n", :dired_next_line_command)
+    DIRED_MODE_MAP.define_key("p",    :dired_previous_line_command)
+    DIRED_MODE_MAP.define_key("\C-p", :dired_previous_line_command)
+    DIRED_MODE_MAP.define_key("^",    :dired_up_directory_command)
+    DIRED_MODE_MAP.define_key("\C-m", :dired_find_file_command)
+    DIRED_MODE_MAP.define_key("f",    :dired_find_file_command)
+    DIRED_MODE_MAP.define_key("o",    :dired_find_file_other_window_command)
+    DIRED_MODE_MAP.define_key("d",    :dired_flag_file_deletion_command)
+    DIRED_MODE_MAP.define_key("u",    :dired_unmark_command)
+    DIRED_MODE_MAP.define_key("U",    :dired_unmark_all_command)
+    DIRED_MODE_MAP.define_key("x",    :dired_do_flagged_delete_command)
+    DIRED_MODE_MAP.define_key("R",    :dired_do_rename_command)
+    DIRED_MODE_MAP.define_key("C",    :dired_do_copy_command)
+    DIRED_MODE_MAP.define_key("+",    :dired_create_directory_command)
+    DIRED_MODE_MAP.define_key("g",    :dired_revert_command)
+    DIRED_MODE_MAP.define_key("q",    :bury_buffer)
+
+    # Deletion-flagged lines
+    define_syntax :dired_flagged,    /^D .+$/
+    # Symlinks
+    define_syntax :dired_symlink,    /^[ D] \S+\s+\d+\s+[\d-]+ [\d:]+ .+ -> .+$/
+    # Directories
+    define_syntax :dired_directory,  /^[ D] d\S+\s+\d+\s+[\d-]+ [\d:]+ .+\/$/
+    # Executables
+    define_syntax :dired_executable, /^[ D] -[r-][w-]x.+$/
+
+    PERM_BITS = [
+      ["r", 0400], ["w", 0200], ["x", 0100],
+      ["r", 0040], ["w", 0020], ["x", 0010],
+      ["r", 0004], ["w", 0002], ["x", 0001]
+    ]
+
+    def self.format_permissions(stat)
+      type = if stat.directory?  then "d"
+             elsif stat.symlink? then "l"
+             elsif stat.pipe?    then "p"
+             elsif stat.socket?  then "s"
+             elsif stat.chardev? then "c"
+             elsif stat.blockdev? then "b"
+             else "-"
+             end
+      type + PERM_BITS.map { |ch, mask| stat.mode & mask != 0 ? ch : "-" }.join
+    end
+
+    def self.generate_listing(dir)
+      entries = []
+      Dir.foreach(dir) do |name|
+        path = File.join(dir, name)
+        begin
+          stat = File.lstat(path)
+          perms = format_permissions(stat)
+          size  = stat.size
+          mtime = stat.mtime.strftime("%Y-%m-%d %H:%M")
+          if stat.symlink?
+            begin
+              target = File.readlink(path)
+            rescue SystemCallError
+              target = "?"
+            end
+            display = "#{name} -> #{target}"
+          elsif stat.directory?
+            display = "#{name}/"
+          else
+            display = name
+          end
+          entries << {
+            name: name,
+            display: display,
+            perms: perms,
+            size: size,
+            mtime: mtime,
+            directory: stat.directory?
+          }
+        rescue SystemCallError => e
+          entries << {
+            name: name,
+            display: name,
+            perms: "??????????",
+            size: 0,
+            mtime: "????-??-?? ??:??",
+            directory: false,
+            error: e.message
+          }
+        end
+      end
+
+      entries.sort_by! { |e| [e[:directory] ? 0 : 1, e[:name].downcase] }
+
+      lines = ["  #{dir}:\n"]
+      entries.each do |e|
+        line = "  #{e[:perms]}  #{e[:size].to_s.rjust(8)}  #{e[:mtime]}  #{e[:display]}\n"
+        lines << line
+      end
+      lines.join
+    end
+
+    def initialize(buffer)
+      super(buffer)
+      buffer.keymap = DIRED_MODE_MAP
+    end
+
+    define_local_command(:dired_move_to_filename,
+                         doc: "Move point to the filename on the current line.") do
+      @buffer.beginning_of_line
+      if @buffer.looking_at?(/^[D ] \S+\s+\d+\s+[\d-]+\s+[\d:]+\s+/)
+        @buffer.forward_char(@buffer.match_string(0).length)
+      end
+    end
+
+    define_local_command(:dired_next_line, doc: "Move to next file line.") do
+      @buffer.next_line
+      dired_move_to_filename
+    end
+
+    define_local_command(:dired_previous_line, doc: "Move to previous file line.") do
+      first_file_line = @buffer.save_excursion {
+        @buffer.beginning_of_buffer
+        @buffer.current_line
+      }
+      if @buffer.current_line > first_file_line
+        @buffer.previous_line
+      end
+      dired_move_to_filename
+    end
+
+    define_local_command(:dired_up_directory, doc: "Go up to parent directory.") do
+      dir = @buffer[:dired_directory]
+      parent = File.dirname(dir)
+      dired(parent)
+    end
+
+    define_local_command(:dired_find_file, doc: "Visit file or directory at point.") do
+      name = current_file_name
+      return unless name
+      dir = @buffer[:dired_directory]
+      path = File.join(dir, name)
+      if File.directory?(path)
+        dired(path)
+      else
+        find_file(path)
+      end
+    end
+
+    define_local_command(:dired_find_file_other_window,
+                         doc: "Visit file at point in other window.") do
+      name = current_file_name
+      return unless name
+      dir = @buffer[:dired_directory]
+      path = File.join(dir, name)
+      if Window.list.size == 1
+        split_window
+      end
+      other_window
+      if File.directory?(path)
+        dired(path)
+      else
+        find_file(path)
+      end
+    end
+
+    define_local_command(:dired_flag_file_deletion,
+                         doc: "Flag file at point for deletion.") do
+      set_flag("D")
+      dired_next_line
+    end
+
+    define_local_command(:dired_unmark, doc: "Remove deletion flag from file at point.") do
+      set_flag(" ")
+      dired_next_line
+    end
+
+    define_local_command(:dired_unmark_all, doc: "Remove all deletion flags.") do
+      @buffer.save_excursion do
+        @buffer.beginning_of_buffer
+        while !@buffer.end_of_buffer?
+          set_flag(" ")
+          @buffer.next_line
+        end
+      end
+    end
+
+    define_local_command(:dired_do_flagged_delete,
+                         doc: "Delete files flagged for deletion.") do
+      files = collect_flagged_files
+      return if files.empty?
+      list = files.map { |f| "  #{f}" }.join("\n")
+      if yes_or_no?("Delete these files?")
+        files.each do |name|
+          next if name == "." || name == ".."
+          path = File.join(@buffer[:dired_directory], name)
+          begin
+            if File.directory?(path) && !File.symlink?(path)
+              FileUtils.rm_rf(path)
+            else
+              File.delete(path)
+            end
+          rescue SystemCallError => e
+            message("Error deleting #{name}: #{e.message}")
+          end
+        end
+        dired_revert
+      end
+    end
+
+    define_local_command(:dired_do_rename, doc: "Rename/move file at point.") do
+      name = current_file_name
+      return unless name
+      dir = @buffer[:dired_directory]
+      src = File.join(dir, name)
+      dest = read_file_name("Rename #{name} to: ", default: dir + "/")
+      dest = File.expand_path(dest, dir)
+      FileUtils.mv(src, dest)
+      dired_revert
+    end
+
+    define_local_command(:dired_do_copy, doc: "Copy file at point.") do
+      name = current_file_name
+      return unless name
+      dir = @buffer[:dired_directory]
+      src = File.join(dir, name)
+      dest = read_file_name("Copy #{name} to: ", default: dir + "/")
+      dest = File.expand_path(dest, dir)
+      FileUtils.cp_r(src, dest)
+      dired_revert
+    end
+
+    define_local_command(:dired_create_directory, doc: "Create a new directory.") do
+      dir = @buffer[:dired_directory]
+      name = read_from_minibuffer("Create directory: ", default: dir + "/")
+      name = File.expand_path(name, dir)
+      FileUtils.mkdir_p(name)
+      dired_revert
+    end
+
+    define_local_command(:dired_revert, doc: "Refresh directory listing.") do
+      dir = @buffer[:dired_directory]
+      saved_name = current_file_name
+      saved_line = @buffer.current_line
+      @buffer.read_only_edit do
+        @buffer.clear
+        @buffer.insert(DiredMode.generate_listing(dir))
+        @buffer.beginning_of_buffer
+        @buffer.forward_line
+      end
+      if saved_name
+        @buffer.beginning_of_buffer
+        found = false
+        while !@buffer.end_of_buffer?
+          if current_file_name == saved_name
+            found = true
+            break
+          end
+          @buffer.next_line
+        end
+        unless found
+          goto_line(saved_line)
+          @buffer.beginning_of_line
+          if @buffer.end_of_buffer? || current_file_name.nil?
+            @buffer.end_of_buffer
+            @buffer.previous_line while current_file_name.nil? && @buffer.current_line > 2
+          end
+        end
+      end
+      dired_move_to_filename
+    end
+
+    private
+
+    def current_file_name
+      @buffer.save_excursion do
+        @buffer.beginning_of_line
+        # Line format: "  perms  size  date time  display_name"
+        # or:          "D perms  size  date time  display_name"
+        if @buffer.looking_at?(/^[D ] (\S+)\s+\d+\s+[\d-]+\s+[\d:]+\s+(.+)$/)
+          perms = @buffer.match_string(1)
+          display = @buffer.match_string(2)
+          # Strip symlink target: "name -> target" -> "name" (only for symlinks)
+          display = display.sub(/ -> .+$/, "") if perms.start_with?("l")
+          # Strip trailing slash for directories: "name/" -> "name"
+          display = display.chomp("/")
+          display
+        end
+      end
+    end
+
+    def set_flag(char)
+      @buffer.read_only_edit do
+        @buffer.save_excursion do
+          @buffer.beginning_of_line
+          if @buffer.looking_at?(/^[D ]/)
+            @buffer.delete_char(1)
+            @buffer.insert(char)
+          end
+        end
+      end
+    end
+
+    def collect_flagged_files
+      files = []
+      @buffer.save_excursion do
+        @buffer.beginning_of_buffer
+        while !@buffer.end_of_buffer?
+          @buffer.beginning_of_line
+          if @buffer.looking_at?(/^D (\S+)\s+\d+\s+[\d-]+\s+[\d:]+\s+(.+)$/)
+            perms = @buffer.match_string(1)
+            display = @buffer.match_string(2)
+            display = display.sub(/ -> .+$/, "") if perms.start_with?("l")
+            display = display.chomp("/")
+            files << display
+          end
+          @buffer.next_line
+        end
+      end
+      files
+    end
+  end
+end

data/lib/textbringer/modes/gamegrid_mode.rb

@@ -0,0 +1,46 @@
+module Textbringer
+  class GamegridMode < Mode
+    @syntax_table = {}
+
+    def self.inherited(child)
+      super
+      child.instance_variable_set(:@syntax_table, {})
+    end
+
+    define_keymap :GAMEGRID_MODE_MAP
+    GAMEGRID_MODE_MAP.define_key("q", :gamegrid_quit_command)
+
+    def initialize(buffer)
+      super(buffer)
+      buffer.keymap = GAMEGRID_MODE_MAP
+    end
+
+
+    define_local_command(:gamegrid_init,
+                         doc: "Initialize a gamegrid in the current buffer.") do |width, height, margin_left: 0|
+      grid = Gamegrid.new(width, height, margin_left: margin_left)
+      @buffer[:gamegrid] = grid
+      @buffer.read_only = true
+      @buffer[:highlight_override] = -> { grid.face_map }
+      grid
+    end
+
+    define_local_command(:gamegrid_refresh,
+                         doc: "Refresh the gamegrid display.") do
+      grid = @buffer[:gamegrid]
+      return unless grid
+      @buffer.read_only_edit do
+        @buffer.clear
+        @buffer.insert(grid.render)
+        @buffer.beginning_of_buffer
+      end
+    end
+
+    define_local_command(:gamegrid_quit,
+                         doc: "Quit the current game.") do
+      grid = @buffer[:gamegrid]
+      grid&.stop_timer
+      bury_buffer
+    end
+  end
+end

data/lib/textbringer/modes/tetris_mode.rb

@@ -0,0 +1,316 @@
+module Textbringer
+  class TetrisMode < GamegridMode
+    BOARD_WIDTH   = 10
+    BOARD_HEIGHT  = 20
+    BORDER_VALUE  = 8   # cell value used for the 1-cell border around the board
+
+    PIECE_COLORS = {
+      1 => :gamegrid_block_cyan,
+      2 => :gamegrid_block_yellow,
+      3 => :gamegrid_block_magenta,
+      4 => :gamegrid_block_green,
+      5 => :gamegrid_block_red,
+      6 => :gamegrid_block_blue,
+      7 => :gamegrid_block_white,
+    }.freeze
+
+    PIECE_NAMES = ["", "I", "O", "T", "S", "Z", "J", "L"].freeze
+
+    # Pieces[type][rotation][row][col] — 4×4 bounding box, 1-indexed types
+    PIECES = [
+      nil,
+      # 1: I (cyan)
+      [
+        [[0,0,0,0],[1,1,1,1],[0,0,0,0],[0,0,0,0]],
+        [[0,0,1,0],[0,0,1,0],[0,0,1,0],[0,0,1,0]],
+        [[0,0,0,0],[0,0,0,0],[1,1,1,1],[0,0,0,0]],
+        [[0,1,0,0],[0,1,0,0],[0,1,0,0],[0,1,0,0]],
+      ],
+      # 2: O (yellow)
+      [
+        [[0,1,1,0],[0,1,1,0],[0,0,0,0],[0,0,0,0]],
+        [[0,1,1,0],[0,1,1,0],[0,0,0,0],[0,0,0,0]],
+        [[0,1,1,0],[0,1,1,0],[0,0,0,0],[0,0,0,0]],
+        [[0,1,1,0],[0,1,1,0],[0,0,0,0],[0,0,0,0]],
+      ],
+      # 3: T (magenta)
+      [
+        [[0,1,0,0],[1,1,1,0],[0,0,0,0],[0,0,0,0]],
+        [[0,1,0,0],[0,1,1,0],[0,1,0,0],[0,0,0,0]],
+        [[0,0,0,0],[1,1,1,0],[0,1,0,0],[0,0,0,0]],
+        [[0,1,0,0],[1,1,0,0],[0,1,0,0],[0,0,0,0]],
+      ],
+      # 4: S (green)
+      [
+        [[0,1,1,0],[1,1,0,0],[0,0,0,0],[0,0,0,0]],
+        [[1,0,0,0],[1,1,0,0],[0,1,0,0],[0,0,0,0]],
+        [[0,1,1,0],[1,1,0,0],[0,0,0,0],[0,0,0,0]],
+        [[1,0,0,0],[1,1,0,0],[0,1,0,0],[0,0,0,0]],
+      ],
+      # 5: Z (red)
+      [
+        [[1,1,0,0],[0,1,1,0],[0,0,0,0],[0,0,0,0]],
+        [[0,0,1,0],[0,1,1,0],[0,1,0,0],[0,0,0,0]],
+        [[1,1,0,0],[0,1,1,0],[0,0,0,0],[0,0,0,0]],
+        [[0,0,1,0],[0,1,1,0],[0,1,0,0],[0,0,0,0]],
+      ],
+      # 6: J (blue)
+      [
+        [[1,0,0,0],[1,1,1,0],[0,0,0,0],[0,0,0,0]],
+        [[0,1,1,0],[0,1,0,0],[0,1,0,0],[0,0,0,0]],
+        [[0,0,0,0],[1,1,1,0],[0,0,1,0],[0,0,0,0]],
+        [[0,1,0,0],[0,1,0,0],[1,1,0,0],[0,0,0,0]],
+      ],
+      # 7: L (white)
+      [
+        [[0,0,1,0],[1,1,1,0],[0,0,0,0],[0,0,0,0]],
+        [[0,1,0,0],[0,1,0,0],[0,1,1,0],[0,0,0,0]],
+        [[0,0,0,0],[1,1,1,0],[1,0,0,0],[0,0,0,0]],
+        [[1,1,0,0],[0,1,0,0],[0,1,0,0],[0,0,0,0]],
+      ],
+    ].freeze
+
+    define_keymap :TETRIS_MODE_MAP
+    TETRIS_MODE_MAP.define_key("q",    :gamegrid_quit_command)
+    TETRIS_MODE_MAP.define_key("n",    :tetris_new_game_command)
+    TETRIS_MODE_MAP.define_key(:left,  :tetris_move_left_command)
+    TETRIS_MODE_MAP.define_key("h",    :tetris_move_left_command)
+    TETRIS_MODE_MAP.define_key(:right, :tetris_move_right_command)
+    TETRIS_MODE_MAP.define_key("l",    :tetris_move_right_command)
+    TETRIS_MODE_MAP.define_key(:down,  :tetris_move_down_command)
+    TETRIS_MODE_MAP.define_key("j",    :tetris_move_down_command)
+    TETRIS_MODE_MAP.define_key(:up,    :tetris_rotate_command)
+    TETRIS_MODE_MAP.define_key("k",    :tetris_rotate_command)
+    TETRIS_MODE_MAP.define_key(" ",    :tetris_drop_command)
+    TETRIS_MODE_MAP.define_key("p",    :tetris_pause_command)
+
+    attr_reader :score, :level, :lines_cleared,
+                :piece_type, :piece_rot, :piece_x, :piece_y,
+                :next_type, :game_over, :paused
+
+    def initialize(buffer)
+      super
+      buffer.keymap = TETRIS_MODE_MAP
+      @game_over = true
+      @paused    = false
+      @grid      = nil
+    end
+
+    define_local_command(:tetris_new_game, doc: "Start a new Tetris game.") do
+      @grid&.stop_timer
+      @grid = gamegrid_init(BOARD_WIDTH + 2, BOARD_HEIGHT + 2, margin_left: 2)
+      @grid.set_display_option(0, char: "  ")
+      @grid.set_display_option(BORDER_VALUE, char: "[]", face: :gamegrid_border)
+      PIECE_COLORS.each { |v, f| @grid.set_display_option(v, char: "[]", face: f) }
+
+      @board         = Array.new(BOARD_HEIGHT) { Array.new(BOARD_WIDTH, 0) }
+      @score         = 0
+      @level         = 1
+      @lines_cleared = 0
+      @game_over     = false
+      @paused        = false
+      @next_type     = random_piece_type
+
+      spawn_piece
+      start_game_timer unless @game_over
+      render_board
+    end
+
+    define_local_command(:tetris_move_left, doc: "Move piece left.") do
+      return unless active?
+      if valid_position?(@piece_x - 1, @piece_y, @piece_type, @piece_rot)
+        @piece_x -= 1
+        render_board
+      end
+    end
+
+    define_local_command(:tetris_move_right, doc: "Move piece right.") do
+      return unless active?
+      if valid_position?(@piece_x + 1, @piece_y, @piece_type, @piece_rot)
+        @piece_x += 1
+        render_board
+      end
+    end
+
+    define_local_command(:tetris_move_down, doc: "Soft-drop current piece.") do
+      return unless active?
+      step_down
+    end
+
+    define_local_command(:tetris_rotate, doc: "Rotate current piece clockwise.") do
+      return unless active?
+      new_rot = (@piece_rot + 1) % 4
+      # Try basic rotation then simple wall-kicks (±1, ±2 columns)
+      [0, -1, 1, -2, 2].each do |kick|
+        if valid_position?(@piece_x + kick, @piece_y, @piece_type, new_rot)
+          @piece_x  += kick
+          @piece_rot = new_rot
+          break
+        end
+      end
+      render_board
+    end
+
+    define_local_command(:tetris_drop, doc: "Hard-drop current piece.") do
+      return unless active?
+      while valid_position?(@piece_x, @piece_y + 1, @piece_type, @piece_rot)
+        @piece_y += 1
+        @score   += 2
+      end
+      lock_and_continue
+      render_board
+    end
+
+    define_local_command(:tetris_pause, doc: "Toggle game pause.") do
+      return if @game_over || !@grid
+      @paused = !@paused
+      if @paused
+        @grid.stop_timer
+      else
+        start_game_timer
+      end
+      render_board
+    end
+
+    private
+
+    def active?
+      !@game_over && !@paused && @grid
+    end
+
+    def random_piece_type
+      rand(1..7)
+    end
+
+    def spawn_piece
+      @piece_type = @next_type
+      @next_type  = random_piece_type
+      @piece_rot  = 0
+      @piece_x    = BOARD_WIDTH / 2 - 2
+      @piece_y    = 0
+      @game_over  = !valid_position?(@piece_x, @piece_y, @piece_type, @piece_rot)
+    end
+
+    def valid_position?(x, y, type, rot)
+      PIECES[type][rot].each_with_index do |row, row_i|
+        row.each_with_index do |cell, col_i|
+          next if cell == 0
+          bx = x + col_i
+          by = y + row_i
+          return false if bx < 0 || bx >= BOARD_WIDTH
+          return false if by >= BOARD_HEIGHT
+          next if by < 0  # piece can start partially above the board
+          return false if @board[by][bx] != 0
+        end
+      end
+      true
+    end
+
+    def lock_piece
+      PIECES[@piece_type][@piece_rot].each_with_index do |row, row_i|
+        row.each_with_index do |cell, col_i|
+          next if cell == 0
+          by = @piece_y + row_i
+          bx = @piece_x + col_i
+          next if by < 0 || by >= BOARD_HEIGHT || bx < 0 || bx >= BOARD_WIDTH
+          @board[by][bx] = @piece_type
+        end
+      end
+    end
+
+    def clear_lines
+      full = (0...BOARD_HEIGHT).select { |y| @board[y].all? { |c| c != 0 } }
+      return 0 if full.empty?
+      full.reverse_each { |y| @board.delete_at(y) }
+      full.size.times { @board.unshift(Array.new(BOARD_WIDTH, 0)) }
+      n = full.size
+      @score         += [0, 100, 300, 500, 800][n].to_i * @level
+      @lines_cleared += n
+      @level          = @lines_cleared / 10 + 1
+      n
+    end
+
+    def step_down
+      if valid_position?(@piece_x, @piece_y + 1, @piece_type, @piece_rot)
+        @piece_y += 1
+      else
+        lock_and_continue
+      end
+      render_board
+    end
+
+    def lock_and_continue
+      lock_piece
+      clear_lines
+      spawn_piece
+      if @game_over
+        @grid.stop_timer
+      else
+        start_game_timer
+      end
+    end
+
+    def start_game_timer
+      @grid.start_timer(timer_interval) { step_down }
+    end
+
+    def timer_interval
+      # Level 1 = 1.0 s, each level adds 0.1 s speed, floor at 0.1 s
+      [1.0 - (@level - 1) * 0.1, 0.1].max
+    end
+
+    def update_grid
+      # Border: top and bottom rows
+      (BOARD_WIDTH + 2).times do |x|
+        @grid.set_cell(x, 0,               BORDER_VALUE)
+        @grid.set_cell(x, BOARD_HEIGHT + 1, BORDER_VALUE)
+      end
+      # Border: left and right columns (inner rows only)
+      BOARD_HEIGHT.times do |y|
+        @grid.set_cell(0,               y + 1, BORDER_VALUE)
+        @grid.set_cell(BOARD_WIDTH + 1, y + 1, BORDER_VALUE)
+      end
+      # Board content, offset by (1, 1)
+      BOARD_HEIGHT.times do |y|
+        BOARD_WIDTH.times do |x|
+          @grid.set_cell(x + 1, y + 1, @board[y][x])
+        end
+      end
+      return if @game_over
+      # Current piece, offset by (1, 1)
+      PIECES[@piece_type][@piece_rot].each_with_index do |row, row_i|
+        row.each_with_index do |cell, col_i|
+          next if cell == 0
+          bx = @piece_x + col_i + 1
+          by = @piece_y + row_i + 1
+          next if bx < 1 || bx > BOARD_WIDTH || by < 1 || by > BOARD_HEIGHT
+          @grid.set_cell(bx, by, @piece_type)
+        end
+      end
+    end
+
+    def render_board
+      update_grid
+      @buffer.read_only_edit do
+        @buffer.clear
+        @buffer.insert(@grid.render)
+        @buffer.insert("\n")
+        @buffer.insert(status_text)
+        @buffer.beginning_of_buffer
+      end
+    end
+
+    def status_text
+      if @game_over
+        "GAME OVER  Score: #{@score}  Level: #{@level}  Lines: #{@lines_cleared}" \
+          "  [n]ew game  [q]uit\n"
+      elsif @paused
+        "PAUSED  Score: #{@score}  Level: #{@level}  Lines: #{@lines_cleared}" \
+          "  [p] resume\n"
+      else
+        "Score: #{@score}  Level: #{@level}  Lines: #{@lines_cleared}" \
+          "  Next: #{PIECE_NAMES[@next_type]}\n"
+      end
+    end
+  end
+end

data/lib/textbringer/version.rb

@@ -1,3 +1,3 @@
 module Textbringer
-  VERSION = "23"
+  VERSION = "24"
 end

data/lib/textbringer/window.rb

@@ -141,6 +141,8 @@ module Textbringer
       require_relative "faces/basic"
       require_relative "faces/programming"
       require_relative "faces/completion"
+      require_relative "faces/dired"
+      require_relative "faces/gamegrid"
     end
 
     def self.start
@@ -402,6 +404,10 @@ module Textbringer
     def highlight
       @highlight_on = {}
       @highlight_off = {}
+      if (override = @buffer[:highlight_override])
+        @highlight_on, @highlight_off = override.call
+        return
+      end
       return if !@@has_colors || !CONFIG[:syntax_highlight] || @buffer.binary?
       syntax_table = @buffer.mode.syntax_table || DEFAULT_SYNTAX_TABLE
       if @buffer.bytesize < CONFIG[:highlight_buffer_size_limit]

data/lib/textbringer.rb

@@ -12,6 +12,7 @@ require_relative "textbringer/face"
 require_relative "textbringer/completion_popup"
 require_relative "textbringer/lsp/client"
 require_relative "textbringer/lsp/server_registry"
+require_relative "textbringer/gamegrid"
 require_relative "textbringer/commands"
 require_relative "textbringer/commands/buffers"
 require_relative "textbringer/commands/windows"
@@ -33,6 +34,9 @@ require_relative "textbringer/commands/ucs_normalize"
 require_relative "textbringer/commands/help"
 require_relative "textbringer/commands/completion"
 require_relative "textbringer/commands/lsp"
+require_relative "textbringer/commands/dired"
+require_relative "textbringer/commands/gamegrid"
+require_relative "textbringer/commands/tetris"
 require_relative "textbringer/mode"
 require_relative "textbringer/modes/fundamental_mode"
 require_relative "textbringer/modes/programming_mode"
@@ -42,6 +46,9 @@ require_relative "textbringer/modes/backtrace_mode"
 require_relative "textbringer/modes/completion_list_mode"
 require_relative "textbringer/modes/buffer_list_mode"
 require_relative "textbringer/modes/help_mode"
+require_relative "textbringer/modes/dired_mode"
+require_relative "textbringer/modes/gamegrid_mode"
+require_relative "textbringer/modes/tetris_mode"
 require_relative "textbringer/minor_mode"
 require_relative "textbringer/global_minor_mode"
 require_relative "textbringer/modes/overwrite_mode"

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: textbringer
 version: !ruby/object:Gem::Version
-  version: '23'
+  version: '24'
 platform: ruby
 authors:
 - Shugo Maeda
@@ -363,8 +363,10 @@ files:
 - lib/textbringer/commands/completion.rb
 - lib/textbringer/commands/ctags.rb
 - lib/textbringer/commands/dabbrev.rb
+- lib/textbringer/commands/dired.rb
 - lib/textbringer/commands/files.rb
 - lib/textbringer/commands/fill.rb
+- lib/textbringer/commands/gamegrid.rb
 - lib/textbringer/commands/help.rb
 - lib/textbringer/commands/input_method.rb
 - lib/textbringer/commands/isearch.rb
@@ -376,6 +378,7 @@ files:
 - lib/textbringer/commands/register.rb
 - lib/textbringer/commands/replace.rb
 - lib/textbringer/commands/server.rb
+- lib/textbringer/commands/tetris.rb
 - lib/textbringer/commands/ucs_normalize.rb
 - lib/textbringer/commands/windows.rb
 - lib/textbringer/completion_popup.rb
@@ -386,8 +389,11 @@ files:
 - lib/textbringer/face.rb
 - lib/textbringer/faces/basic.rb
 - lib/textbringer/faces/completion.rb
+- lib/textbringer/faces/dired.rb
+- lib/textbringer/faces/gamegrid.rb
 - lib/textbringer/faces/programming.rb
 - lib/textbringer/floating_window.rb
+- lib/textbringer/gamegrid.rb
 - lib/textbringer/global_minor_mode.rb
 - lib/textbringer/input_method.rb
 - lib/textbringer/input_methods/hangul_input_method.rb
@@ -404,11 +410,14 @@ files:
 - lib/textbringer/modes/buffer_list_mode.rb
 - lib/textbringer/modes/c_mode.rb
 - lib/textbringer/modes/completion_list_mode.rb
+- lib/textbringer/modes/dired_mode.rb
 - lib/textbringer/modes/fundamental_mode.rb
+- lib/textbringer/modes/gamegrid_mode.rb
 - lib/textbringer/modes/help_mode.rb
 - lib/textbringer/modes/overwrite_mode.rb
 - lib/textbringer/modes/programming_mode.rb
 - lib/textbringer/modes/ruby_mode.rb
+- lib/textbringer/modes/tetris_mode.rb
 - lib/textbringer/modes/transient_mark_mode.rb
 - lib/textbringer/plugin.rb
 - lib/textbringer/ring.rb
@@ -488,7 +497,7 @@ required_rubygems_version: !ruby/object:Gem::Requirement
     - !ruby/object:Gem::Version
       version: '0'
 requirements: []
-rubygems_version: 4.0.3
+rubygems_version: 4.0.6
 specification_version: 4
 summary: An Emacs-like text editor
 test_files: []