tui version

.gitignore

@@ -2,3 +2,4 @@
 bbs-server
 tmp
 data/messages.dat
+.claude

Gemfile.lock

@@ -1,6 +1,6 @@
 GIT
   remote: https://git.teletype.hu/tools/rubbs.git
-  revision: c01159dc2306ed9adda3b865346ae1f987649a67
+  revision: 8a3e38aa25b29575b7038cdab753cad0a126c698
   specs:
     bbs (0.1.0)
       artii (~> 2.1)

bbs.rb

@@ -14,46 +14,15 @@ MESSAGES = MessageBoardRepository.new(ENV.fetch('MESSAGES_PATH', 'data/messages.
 WIKI     = WikiRepository.new(token: ENV['WEBAPP_WIKIJS_TOKEN'])
 CATALOG  = CatalogRepository.new
 
-class OutputBuilder
+MENU_ITEMS = [
-  def initialize = (@buf = +''; @badges = [])
+  'Messages', 'Post Message', 'Blog Posts',
-  def to_s       = (flush_badges; @buf)
+  'HowTo Guides', 'Game Catalog', 'Online Users',
+  'System Info', 'Exit'
+].freeze
 
-  def sep(color = :gray)
+SEP_X  = 21
-    flush_badges
+CONT_X = 23
-    @buf << "\r\n  #{c(color, '─' * 66)}\r\n"
+CONT_Y = 3
-  end
-
-  def line(text, color = nil)
-    flush_badges
-    @buf << "  #{color ? c(color, text) : text}\r\n"
-  end
-
-  def cols(**pairs)
-    flush_badges
-    @buf << "  #{pairs.map { |color, text| c(color, text.to_s) }.join('  ')}\r\n"
-  end
-
-  def para(text)
-    flush_badges
-    @buf << wrap_text(text) unless text.to_s.strip.empty?
-  end
-
-  def badge(color, text)
-    @badges << c(color, text)
-  end
-
-  private
-
-  def flush_badges
-    return if @badges.empty?
-    @buf << "  #{@badges.join('  ')}\r\n"
-    @badges = []
-  end
-end
-
-def render(&block)
-  OutputBuilder.new.tap { |b| b.instance_eval(&block) }.to_s
-end
 
 def fmt_date(iso)
   Time.parse(iso.to_s).strftime('%Y-%m-%d')
@@ -61,21 +30,27 @@ rescue
   iso.to_s
 end
 
-def wrap_text(text, width: 60, indent: 4)
+def wrap_wiki(text, width)
   clean = text.to_s
               .gsub(/\[([^\]]+)\]\([^)]+\)/, '\1')
               .gsub(/[#*_`~>|\\]/, '')
               .gsub(/\r?\n+/, ' ')
               .strip
-  lines, line = [], +''
+  words = clean.split
-  clean.split.each do |word|
+  lines = []
-    if line.empty? then line << word
+  line  = +''
-    elsif line.length + 1 + word.length <= width then line << ' ' << word
+  words.each do |word|
-    else lines << line.dup; line = +word
+    if line.empty?
+      line << word
+    elsif line.length + 1 + word.length <= width
+      line << ' ' << word
+    else
+      lines << line.dup
+      line = +word
     end
   end
   lines << line unless line.empty?
-  lines.map { |l| "#{' ' * indent}#{l}\r\n" }.join
+  lines
 end
 
 BBS.configure do |c|
@@ -89,125 +64,308 @@ BBS.configure do |c|
 
     call { |ctx| ONLINE.add(ctx[:session_id], ctx[:username]) }
 
-    menu 'Choice', loop: true do
+    call do |ctx, runner|
-      option 'Message Board' do
+      session    = runner.instance_variable_get(:@session)
-        section 'Message Board', color: :cyan
+      username   = ctx[:username]
-        rows(empty: 'No messages yet.') do |ctx|
+      session_id = ctx[:session_id]
-          MESSAGES.last(30).map.with_index(1) do |msg, i|
-            "#{c(:gray, "[#{i}]")} #{c(:yellow, msg.timestamp)} #{c(:white, msg.username)}: #{c(:gray, msg.text)}"
-          end
-        end
-        wait_enter
-      end
 
-      option 'New Message' do
+      tui = BBS::TUI.define do
-        ask :message_text, prompt: 'Message (max 200 chars)', validate: :non_empty
+        init do
-        call { |ctx| MESSAGES.append(ctx[:username], ctx[:message_text][0...200]) }
+          @menu_sel    = 0
-        say 'Sent.', style: :success
+          @state       = :idle
+          @prev_state  = :idle
+          @items       = []
+          @item_sel    = 0
+          @scroll      = 0
+          @detail      = []
+          @page_header = ''
+          @page_meta   = ''
+          @input       = ''
+          @status      = ''
+          @username    = username
+          @session_id  = session_id
         end
 
-      option 'Blog Posts' do
-        section 'Blog Posts', color: :blue
-        fetch :pages, loading: 'Loading...' do |ctx|
-          WIKI.list('blog')
-        end
-        pick from: :pages,
-             empty: 'No results.',
-             prompt: 'Enter number to read (blank to go back)',
-             item:  ->(p, i) { "#{c(:gray, "#{i}.")} #{c(:blue, p.title)}  #{c(:gray, fmt_date(p.created_at))}" },
-             hint:  ->(p, i) { p.description.to_s.strip[0...65] } do
-          fetch :page_body, loading: 'Loading page...' do |ctx|
-            WIKI.content(ctx[:picked].id)
-          end
-          line color: :blue
-          text(style: :white) { |ctx| ctx[:picked].title }
-          text(style: :muted) { |ctx| "#{fmt_date(ctx[:picked].created_at)}  #{WIKI.page_url(ctx[:picked].locale, ctx[:picked].path)}" }
-          line color: :blue
-          body { |ctx| ctx[:page_body] }
-          wait_enter
-        end
-      end
-
-      option 'HowTo Guides' do
-        section 'HowTo Guides', color: :magenta
-        fetch :pages, loading: 'Loading...' do |ctx|
-          WIKI.list('howto')
-        end
-        pick from: :pages,
-             empty: 'No results.',
-             prompt: 'Enter number to read (blank to go back)',
-             item:  ->(p, i) { "#{c(:gray, "#{i}.")} #{c(:magenta, p.title)}  #{c(:gray, fmt_date(p.created_at))}" },
-             hint:  ->(p, i) { p.description.to_s.strip[0...65] } do
-          fetch :page_body, loading: 'Loading page...' do |ctx|
-            WIKI.content(ctx[:picked].id)
-          end
-          line color: :magenta
-          text(style: :white) { |ctx| ctx[:picked].title }
-          text(style: :muted) { |ctx| "#{fmt_date(ctx[:picked].created_at)}  #{WIKI.page_url(ctx[:picked].locale, ctx[:picked].path)}" }
-          line color: :magenta
-          body { |ctx| ctx[:page_body] }
-          wait_enter
-        end
-      end
-
-      option 'Game Catalog' do
-        section 'Game Catalog', color: :cyan
-        fetch :games, loading: 'Loading...' do |ctx|
-          CATALOG.fetch
-        end
-        output do |ctx|
-          games = Array(ctx[:games])
-          next "  #{c(:red, 'Could not load catalog.')}\r\n" unless games.any?
-
         render do
-            games.each_with_index do |game, i|
+          cont_w = term_cols - CONT_X - 1
-              sep
+          cont_h = term_rows - CONT_Y - 4
-              cols cyan: "#{i + 1}. #{game.title}", gray: "#{game.platform}  #{game.author}"
+
-              para game.desc
+          clear
-              badge :green,   '[▶ Play]'     unless game.play_path.empty?
+
-              badge :yellow,  '[⬇ Download]' unless game.download_path.empty?
+          bar y: 1,
-              badge :blue,    '[Source]'     unless game.source_path.empty?
+              content: "  TELETYPE BBS  │  #{@username}  │  #{ONLINE.count} online",
-              badge :magenta, '[Docs]'       unless game.docs_path.empty?
+              style: :success
-              line CATALOG.play_url(game.play_path), :gray unless game.play_path.empty?
+
-              line "#{game.release_count} versions available", :gray if game.release_count > 1
+          menu_labels = MENU_ITEMS.map { |item| item[0, 15] }
+          list menu_labels, x: 2, y: CONT_Y, selected: @menu_sel,
+               style: :gray, highlight: :white
+
+          (CONT_Y..CONT_Y + cont_h).each { |r| text c(:gray, '│'), x: SEP_X, y: r }
+
+          case @state
+          when :idle
+            text c(:gray, 'Navigate with ↑↓, select with Enter'),
+                 x: CONT_X, y: CONT_Y + cont_h / 2
+
+          when :messages
+            text c(:cyan, '── Message Board ──'), x: CONT_X, y: CONT_Y
+            (@items[@scroll, cont_h - 2] || []).each_with_index do |line, i|
+              text line[0, cont_w], x: CONT_X, y: CONT_Y + 2 + i
             end
-            sep
+            text c(:gray, "#{@items.size} msg(s)  ↑↓ scroll  q back"),
-            line CatalogRepository::GAMES_URL, :gray
+                 x: CONT_X, y: CONT_Y + cont_h
+
+          when :new_msg
+            text c(:cyan, '── Post Message ──'), x: CONT_X, y: CONT_Y
+            text c(:gray,'Type message and press Enter.  Esc cancels.'),
+                 x: CONT_X, y: CONT_Y + 2
+            text c(:white, "#{@username}: #{@input}_"), x: CONT_X, y: CONT_Y + 4
+            text c(:green, @status), x: CONT_X, y: CONT_Y + 6 unless @status.empty?
+
+          when :blog, :howto
+            color    = @state == :blog ? :blue : :magenta
+            hdr      = @state == :blog ? '── Blog Posts ──' : '── HowTo Guides ──'
+            text c(color, hdr), x: CONT_X, y: CONT_Y
+            if @items.empty?
+              text c(:gray, 'No items found.'), x: CONT_X, y: CONT_Y + 2
+            else
+              list_h   = cont_h - 5
+              visible  = @items[@scroll, list_h] || []
+              labels   = visible.map { |p| p.title[0, cont_w - 2] }
+              list labels, x: CONT_X, y: CONT_Y + 2,
+                   selected: @item_sel - @scroll, style: :gray, highlight: :white
+              if (page = @items[@item_sel])
+                hint = page.description.to_s.strip[0, cont_w]
+                text c(:gray, hint), x: CONT_X, y: CONT_Y + cont_h - 2 unless hint.empty?
               end
-        end
+              text c(:gray, '↑↓ navigate  Enter read  q back'),
-        wait_enter
+                   x: CONT_X, y: CONT_Y + cont_h
             end
 
-      option 'Online Users' do
+          when :page_view
-        section 'Online Users', color: :yellow
+            text c(:cyan, @page_header[0, cont_w]), x: CONT_X, y: CONT_Y
-        rows do |ctx|
+            text c(:gray, @page_meta[0, cont_w]),   x: CONT_X, y: CONT_Y + 1
-          ONLINE.snapshot.sort.map do |sid, name|
+            (@detail[@scroll, cont_h - 3] || []).each_with_index do |l, i|
-            marker = sid == ctx[:session_id] ? "  #{c(:gray, '← you')}" : ''
+              text c(:gray, l[0, cont_w]), x: CONT_X, y: CONT_Y + 3 + i
-            "#{c(:white, name)}#{marker}"
             end
+            text c(:gray, "#{@scroll + 1}/#{@detail.size}  ↑↓ scroll  q back"),
+                 x: CONT_X, y: CONT_Y + cont_h
+
+          when :games
+            text c(:cyan, '── Game Catalog ──'), x: CONT_X, y: CONT_Y
+            if @items.empty?
+              text c(:gray, 'No games found.'), x: CONT_X, y: CONT_Y + 2
+            else
+              game = @items[@item_sel]
+              text c(:white, "#{@item_sel + 1}/#{@items.size}  #{game.title}"[0, cont_w]),
+                   x: CONT_X, y: CONT_Y + 1
+              text c(:gray, "#{game.platform}  #{game.author}"[0, cont_w]),
+                   x: CONT_X, y: CONT_Y + 2
+              wrap_wiki(game.desc.to_s, cont_w).first(cont_h - 10).each_with_index do |l, i|
+                text c(:gray, l), x: CONT_X, y: CONT_Y + 4 + i
               end
-        text(style: :muted) { |ctx| "#{ONLINE.count} user(s) online" }
+              badges = []
-        wait_enter
+              badges << c(:green,   '[▶ Play]')     unless game.play_path.empty?
+              badges << c(:yellow,  '[⬇ Download]') unless game.download_path.empty?
+              badges << c(:blue,    '[Source]')     unless game.source_path.empty?
+              badges << c(:magenta, '[Docs]')       unless game.docs_path.empty?
+              text badges.join('  '), x: CONT_X, y: CONT_Y + cont_h - 5
+              text c(:gray, "↑↓ navigate  q back"), x: CONT_X, y: CONT_Y + cont_h
             end
 
-      option 'System Info' do
+          when :online
-        section 'System Info', color: :magenta
+            text c(:yellow, '── Online Users ──'), x: CONT_X, y: CONT_Y
-        table do |ctx|
+            @items.each_with_index do |uname, i|
-          {
+              you = uname == @username ? c(:gray, ' ← you') : ''
-            'Online users' => ONLINE.count,
+              text c(:white, uname) + you, x: CONT_X, y: CONT_Y + 2 + i
-            'Messages'     => MESSAGES.count,
-            'Wiki'         => 'https://wiki.teletype.hu',
-            'Games API'    => 'https://games.teletype.hu',
-            'Platform'     => RUBY_PLATFORM,
-            'Ruby'         => RUBY_VERSION
-          }
             end
-        wait_enter
+            text c(:gray, "#{@items.size} user(s) online  q back"),
+                 x: CONT_X, y: CONT_Y + cont_h
+
+          when :sysinfo
+            text c(:magenta, '── System Info ──'), x: CONT_X, y: CONT_Y
+            @items.each_with_index do |row, i|
+              text c(:gray, row[0, cont_w]), x: CONT_X, y: CONT_Y + 2 + i
+            end
+            text c(:gray, 'q back'), x: CONT_X, y: CONT_Y + cont_h
           end
 
-      option 'Exit' do
+          bar y: term_rows, content: '  ↑↓ Navigate  Enter Select  q Back/Quit  r Refresh',
-        exit_menu
+              style: :muted
         end
+
+        # ── Navigation ────────────────────────────────────────────────────────
+
+        key(:up) do
+          case @state
+          when :blog, :howto
+            if @item_sel > 0
+              @item_sel -= 1
+              @scroll = @item_sel if @item_sel < @scroll
+            end
+          when :games
+            @item_sel = (@item_sel - 1) % @items.size if @items.any?
+          when :messages
+            @scroll = [@scroll - 1, 0].max
+          when :page_view
+            @scroll = [@scroll - 1, 0].max
+          else
+            @menu_sel = (@menu_sel - 1) % MENU_ITEMS.size
+          end
+        end
+
+        key(:down) do
+          case @state
+          when :blog, :howto
+            if @item_sel < @items.size - 1
+              @item_sel += 1
+              list_h = (term_rows - CONT_Y - 4) - 5
+              @scroll = @item_sel - list_h + 1 if @item_sel >= @scroll + list_h
+            end
+          when :games
+            @item_sel = (@item_sel + 1) % @items.size if @items.any?
+          when :messages
+            cont_h = term_rows - CONT_Y - 4
+            max = [@items.size - (cont_h - 2), 0].max
+            @scroll = [@scroll + 1, max].min
+          when :page_view
+            cont_h = term_rows - CONT_Y - 4
+            max = [@detail.size - (cont_h - 3), 0].max
+            @scroll = [@scroll + 1, max].min
+          else
+            @menu_sel = (@menu_sel + 1) % MENU_ITEMS.size
+          end
+        end
+
+        key(:enter) do
+          if @state == :new_msg
+            if @input.strip.empty?
+              @status = 'Message cannot be empty.'
+            else
+              MESSAGES.append(@username, @input.strip[0...200])
+              @status = 'Sent!'
+              @input  = ''
+            end
+          elsif (@state == :blog || @state == :howto) && @items[@item_sel]
+            page         = @items[@item_sel]
+            body         = WIKI.content(page.id)
+            @detail      = wrap_wiki(body, term_cols - CONT_X - 1)
+            @page_header = page.title
+            @page_meta   = "#{fmt_date(page.created_at)}  #{WIKI.page_url(page.locale, page.path)}"
+            @prev_state  = @state
+            @scroll      = 0
+            @state       = :page_view
+          else
+            case MENU_ITEMS[@menu_sel]
+            when 'Messages'
+              @items  = MESSAGES.last(30).map do |m|
+                "#{c(:yellow, m.timestamp)} #{c(:white, m.username)}: #{m.text}"
+              end
+              @scroll = 0
+              @state  = :messages
+            when 'Post Message'
+              @input  = ''
+              @status = ''
+              @state  = :new_msg
+            when 'Blog Posts'
+              @items    = WIKI.list('blog')
+              @item_sel = 0
+              @scroll   = 0
+              @state    = :blog
+            when 'HowTo Guides'
+              @items    = WIKI.list('howto')
+              @item_sel = 0
+              @scroll   = 0
+              @state    = :howto
+            when 'Game Catalog'
+              @items    = CATALOG.fetch
+              @item_sel = 0
+              @state    = :games
+            when 'Online Users'
+              @items = ONLINE.snapshot.sort.map { |_, name| name }
+              @state = :online
+            when 'System Info'
+              @items = [
+                "Online users  #{ONLINE.count}",
+                "Messages      #{MESSAGES.count}",
+                "Wiki          https://wiki.teletypegames.org",
+                "Games API     https://teletypegames.org",
+                "Platform      #{RUBY_PLATFORM}",
+                "Ruby          #{RUBY_VERSION}"
+              ]
+              @state = :sysinfo
+            when 'Exit'
+              :halt
+            end
+          end
+        end
+
+        key(:escape) do
+          if @state == :idle
+            :halt
+          elsif @state == :page_view
+            @scroll = 0
+            @state  = @prev_state
+            nil
+          else
+            @state = :idle
+            nil
+          end
+        end
+
+        key('q') do
+          if @state == :new_msg
+            @input << 'q' if @input.length < 200
+            nil
+          elsif @state == :idle
+            :halt
+          elsif @state == :page_view
+            @scroll = 0
+            @state  = @prev_state
+            nil
+          else
+            @state = :idle
+            nil
+          end
+        end
+
+        key('r') do
+          if @state == :new_msg
+            @input << 'r' if @input.length < 200
+            nil
+          else
+            case @state
+            when :messages
+              @items  = MESSAGES.last(30).map do |m|
+                "#{c(:yellow, m.timestamp)} #{c(:white, m.username)}: #{m.text}"
+              end
+              @scroll = 0
+            when :online
+              @items = ONLINE.snapshot.sort.map { |_, name| name }
+            when :blog
+              @items = WIKI.list('blog'); @item_sel = 0; @scroll = 0
+            when :howto
+              @items = WIKI.list('howto'); @item_sel = 0; @scroll = 0
+            when :games
+              @items = CATALOG.fetch; @item_sel = 0
+            end
+            nil
+          end
+        end
+
+        key(:backspace) do
+          @input.chop! if @state == :new_msg && !@input.empty?
+        end
+
+        (' '..'~').each do |ch|
+          next if ch == 'q' || ch == 'r'
+          key(ch) do
+            @input << ch if @state == :new_msg && @input.length < 200
+          end
+        end
+      end
+
+      BBS::TUIRunner.new(session, session_id, tui).run
     end
 
     say 'Goodbye!', style: :muted

lib/repository/catalog_repository.rb

@@ -6,8 +6,8 @@ require 'uri'
 require_relative '../model/game_model'
 
 class CatalogRepository
-  API_URL   = 'https://games.teletype.hu/api/software'
+  API_URL   = 'https://teletypegames.org/api/software'
-  GAMES_URL = 'https://games.teletype.hu'
+  GAMES_URL = 'https://teletypegames.org'
 
   def fetch
     uri  = URI(API_URL)

lib/repository/wiki_repository.rb

@@ -6,7 +6,7 @@ require 'uri'
 require_relative '../model/wiki_page_model'
 
 class WikiRepository
-  BASE_URL = 'https://wiki.teletype.hu'
+  BASE_URL = 'https://wiki.teletypegames.org'
 
   def initialize(token: nil)
     @token = token