Rewrite TUI using page-based DSL
Each BBS screen is now a declarative `page` block. Shared rendering logic (wiki list, scroll helpers, wiki page opening) lives in a `helpers` block. The persistent chrome (header bar, sidebar menu, footer) is defined once in a `chrome` block rendered every frame. The main flow no longer reaches into runner internals: context flows through naturally via the updated rubbs `tui` step. Co-Authored-By: Claude Sonnet 4.6 <noreply@anthropic.com>
This commit is contained in:
@@ -1,8 +1,8 @@
|
|||||||
GIT
|
GIT
|
||||||
remote: https://git.teletype.hu/tools/rubbs.git
|
remote: https://git.teletype.hu/tools/rubbs.git
|
||||||
revision: 8a3e38aa25b29575b7038cdab753cad0a126c698
|
revision: cac10176a25eb5d917f559d4dfb6c7d9c0dc34da
|
||||||
specs:
|
specs:
|
||||||
bbs (0.1.0)
|
bbs (0.2.0)
|
||||||
artii (~> 2.1)
|
artii (~> 2.1)
|
||||||
|
|
||||||
GEM
|
GEM
|
||||||
|
|||||||
608
bbs.rb
608
bbs.rb
@@ -24,33 +24,289 @@ SEP_X = 21
|
|||||||
CONT_X = 23
|
CONT_X = 23
|
||||||
CONT_Y = 3
|
CONT_Y = 3
|
||||||
|
|
||||||
def fmt_date(iso)
|
MAIN_TUI = BBS::TUI.define do
|
||||||
Time.parse(iso.to_s).strftime('%Y-%m-%d')
|
helpers do
|
||||||
rescue
|
def cont_w = term_cols - CONT_X - 1
|
||||||
iso.to_s
|
def cont_h = term_rows - CONT_Y - 4
|
||||||
end
|
|
||||||
|
|
||||||
def wrap_wiki(text, width)
|
def fmt_date(iso)
|
||||||
clean = text.to_s
|
Time.parse(iso.to_s).strftime('%Y-%m-%d')
|
||||||
.gsub(/\[([^\]]+)\]\([^)]+\)/, '\1')
|
rescue
|
||||||
.gsub(/[#*_`~>|\\]/, '')
|
iso.to_s
|
||||||
.gsub(/\r?\n+/, ' ')
|
end
|
||||||
.strip
|
|
||||||
words = clean.split
|
def wordwrap(text, width)
|
||||||
lines = []
|
words = text.to_s
|
||||||
line = +''
|
.gsub(/\[([^\]]+)\]\([^)]+\)/, '\1')
|
||||||
words.each do |word|
|
.gsub(/[#*_`~>|\\]/, '')
|
||||||
if line.empty?
|
.gsub(/\r?\n+/, ' ')
|
||||||
line << word
|
.strip
|
||||||
elsif line.length + 1 + word.length <= width
|
.split
|
||||||
line << ' ' << word
|
lines, line = [], +''
|
||||||
else
|
words.each do |w|
|
||||||
lines << line.dup
|
if line.empty? then line << w
|
||||||
line = +word
|
elsif line.length + 1 + w.length <= width then line << ' ' << w
|
||||||
|
else lines << line.dup; line = +w
|
||||||
|
end
|
||||||
|
end
|
||||||
|
lines << line unless line.empty?
|
||||||
|
lines
|
||||||
|
end
|
||||||
|
|
||||||
|
def wiki_list_render(color:, title:)
|
||||||
|
text c(color, title), x: CONT_X, y: CONT_Y
|
||||||
|
if @items.empty?
|
||||||
|
text c(:gray, 'No items found.'), x: CONT_X, y: CONT_Y + 2
|
||||||
|
return
|
||||||
|
end
|
||||||
|
list_h = cont_h - 5
|
||||||
|
visible = @items[@scroll, list_h] || []
|
||||||
|
list visible.map { |p| p.title[0, cont_w - 2] },
|
||||||
|
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
|
||||||
|
text c(:gray, '↑↓ navigate Enter read q back'), x: CONT_X, y: CONT_Y + cont_h
|
||||||
|
end
|
||||||
|
|
||||||
|
def scroll_list_up
|
||||||
|
return if @item_sel <= 0
|
||||||
|
@item_sel -= 1
|
||||||
|
@scroll = @item_sel if @item_sel < @scroll
|
||||||
|
end
|
||||||
|
|
||||||
|
def scroll_list_down
|
||||||
|
return if @item_sel >= @items.size - 1
|
||||||
|
@item_sel += 1
|
||||||
|
list_h = cont_h - 5
|
||||||
|
@scroll = @item_sel - list_h + 1 if @item_sel >= @scroll + list_h
|
||||||
|
end
|
||||||
|
|
||||||
|
def open_wiki_page(back:)
|
||||||
|
return unless (page = @items[@item_sel])
|
||||||
|
@detail = wordwrap(WIKI.content(page.id), cont_w)
|
||||||
|
@page_header = page.title
|
||||||
|
@page_meta = "#{fmt_date(page.created_at)} #{WIKI.page_url(page.locale, page.path)}"
|
||||||
|
@prev_page = back
|
||||||
|
@scroll = 0
|
||||||
|
go :page_view
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
lines << line unless line.empty?
|
|
||||||
lines
|
init do
|
||||||
|
@menu_sel = 0
|
||||||
|
@items = []
|
||||||
|
@item_sel = 0
|
||||||
|
@scroll = 0
|
||||||
|
@detail = []
|
||||||
|
@page_header = ''
|
||||||
|
@page_meta = ''
|
||||||
|
@input = ''
|
||||||
|
@status = ''
|
||||||
|
@prev_page = nil
|
||||||
|
end
|
||||||
|
|
||||||
|
chrome do
|
||||||
|
bar y: 1,
|
||||||
|
content: " TELETYPE BBS │ #{@username} │ #{ONLINE.count} online",
|
||||||
|
style: :success
|
||||||
|
list MENU_ITEMS.map { |i| i[0, 15] }, 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 }
|
||||||
|
bar y: term_rows,
|
||||||
|
content: ' ↑↓ Navigate Enter Select q Back/Quit r Refresh',
|
||||||
|
style: :muted
|
||||||
|
end
|
||||||
|
|
||||||
|
# ── Pages ───────────────────────────────────────────────────────────────────
|
||||||
|
|
||||||
|
page :idle do
|
||||||
|
render do
|
||||||
|
text c(:gray, 'Navigate with ↑↓, select with Enter'),
|
||||||
|
x: CONT_X, y: CONT_Y + cont_h / 2
|
||||||
|
end
|
||||||
|
|
||||||
|
key(:up) { @menu_sel = (@menu_sel - 1) % MENU_ITEMS.size }
|
||||||
|
key(:down) { @menu_sel = (@menu_sel + 1) % MENU_ITEMS.size }
|
||||||
|
key(:enter) do
|
||||||
|
case MENU_ITEMS[@menu_sel]
|
||||||
|
when 'Messages' then go :messages
|
||||||
|
when 'Post Message' then go :new_msg
|
||||||
|
when 'Blog Posts' then go :blog
|
||||||
|
when 'HowTo Guides' then go :howto
|
||||||
|
when 'Game Catalog' then go :games
|
||||||
|
when 'Online Users' then go :online
|
||||||
|
when 'System Info' then go :sysinfo
|
||||||
|
when 'Exit' then :halt
|
||||||
|
end
|
||||||
|
end
|
||||||
|
key('q') { :halt }
|
||||||
|
key(:escape) { :halt }
|
||||||
|
end
|
||||||
|
|
||||||
|
page :messages do
|
||||||
|
enter do
|
||||||
|
@items = MESSAGES.last(30).map { |m| "#{c(:yellow, m.timestamp)} #{c(:white, m.username)}: #{m.text}" }
|
||||||
|
@scroll = 0
|
||||||
|
end
|
||||||
|
|
||||||
|
render do
|
||||||
|
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
|
||||||
|
text c(:gray, "#{@items.size} msg(s) ↑↓ scroll q back"),
|
||||||
|
x: CONT_X, y: CONT_Y + cont_h
|
||||||
|
end
|
||||||
|
|
||||||
|
key(:up) { @scroll = [@scroll - 1, 0].max }
|
||||||
|
key(:down) { @scroll = [@scroll + 1, [@items.size - (cont_h - 2), 0].max].min }
|
||||||
|
key('r') { reload }
|
||||||
|
key('q') { go :idle }
|
||||||
|
key(:escape) { go :idle }
|
||||||
|
end
|
||||||
|
|
||||||
|
page :new_msg do
|
||||||
|
enter { @input = ''; @status = '' }
|
||||||
|
|
||||||
|
render do
|
||||||
|
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?
|
||||||
|
end
|
||||||
|
|
||||||
|
key(:enter) do
|
||||||
|
if @input.strip.empty?
|
||||||
|
@status = 'Message cannot be empty.'
|
||||||
|
else
|
||||||
|
MESSAGES.append(@username, @input.strip[0...200])
|
||||||
|
@status = 'Sent!'
|
||||||
|
@input = ''
|
||||||
|
end
|
||||||
|
end
|
||||||
|
key(:backspace) { @input.chop! unless @input.empty? }
|
||||||
|
key(:escape) { go :idle }
|
||||||
|
printable { |ch| @input << ch if @input.length < 200 }
|
||||||
|
end
|
||||||
|
|
||||||
|
page :blog do
|
||||||
|
enter { @items = WIKI.list('blog'); @item_sel = 0; @scroll = 0 }
|
||||||
|
render { wiki_list_render(color: :blue, title: '── Blog Posts ──') }
|
||||||
|
key(:up) { scroll_list_up }
|
||||||
|
key(:down) { scroll_list_down }
|
||||||
|
key(:enter) { open_wiki_page(back: :blog) }
|
||||||
|
key('r') { reload }
|
||||||
|
key('q') { go :idle }
|
||||||
|
key(:escape) { go :idle }
|
||||||
|
end
|
||||||
|
|
||||||
|
page :howto do
|
||||||
|
enter { @items = WIKI.list('howto'); @item_sel = 0; @scroll = 0 }
|
||||||
|
render { wiki_list_render(color: :magenta, title: '── HowTo Guides ──') }
|
||||||
|
key(:up) { scroll_list_up }
|
||||||
|
key(:down) { scroll_list_down }
|
||||||
|
key(:enter) { open_wiki_page(back: :howto) }
|
||||||
|
key('r') { reload }
|
||||||
|
key('q') { go :idle }
|
||||||
|
key(:escape) { go :idle }
|
||||||
|
end
|
||||||
|
|
||||||
|
page :page_view do
|
||||||
|
render do
|
||||||
|
text c(:cyan, @page_header[0, cont_w]), x: CONT_X, y: CONT_Y
|
||||||
|
text c(:gray, @page_meta[0, cont_w]), x: CONT_X, y: CONT_Y + 1
|
||||||
|
(@detail[@scroll, cont_h - 3] || []).each_with_index do |l, i|
|
||||||
|
text c(:gray, l[0, cont_w]), x: CONT_X, y: CONT_Y + 3 + i
|
||||||
|
end
|
||||||
|
text c(:gray, "#{@scroll + 1}/#{@detail.size} ↑↓ scroll q back"),
|
||||||
|
x: CONT_X, y: CONT_Y + cont_h
|
||||||
|
end
|
||||||
|
|
||||||
|
key(:up) { @scroll = [@scroll - 1, 0].max }
|
||||||
|
key(:down) { @scroll = [@scroll + 1, [@detail.size - (cont_h - 3), 0].max].min }
|
||||||
|
key('q') { @scroll = 0; go(@prev_page || :idle) }
|
||||||
|
key(:escape) { @scroll = 0; go(@prev_page || :idle) }
|
||||||
|
end
|
||||||
|
|
||||||
|
page :games do
|
||||||
|
enter { @items = CATALOG.fetch; @item_sel = 0 }
|
||||||
|
|
||||||
|
render do
|
||||||
|
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
|
||||||
|
wordwrap(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
|
||||||
|
badges = []
|
||||||
|
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
|
||||||
|
end
|
||||||
|
|
||||||
|
key(:up) { @item_sel = (@item_sel - 1) % @items.size if @items.any? }
|
||||||
|
key(:down) { @item_sel = (@item_sel + 1) % @items.size if @items.any? }
|
||||||
|
key('r') { reload }
|
||||||
|
key('q') { go :idle }
|
||||||
|
key(:escape) { go :idle }
|
||||||
|
end
|
||||||
|
|
||||||
|
page :online do
|
||||||
|
enter { @items = ONLINE.snapshot.sort.map { |_, name| name } }
|
||||||
|
|
||||||
|
render do
|
||||||
|
text c(:yellow, '── Online Users ──'), x: CONT_X, y: CONT_Y
|
||||||
|
@items.each_with_index do |uname, i|
|
||||||
|
you = uname == @username ? c(:gray, ' ← you') : ''
|
||||||
|
text c(:white, uname) + you, x: CONT_X, y: CONT_Y + 2 + i
|
||||||
|
end
|
||||||
|
text c(:gray, "#{@items.size} user(s) online q back"),
|
||||||
|
x: CONT_X, y: CONT_Y + cont_h
|
||||||
|
end
|
||||||
|
|
||||||
|
key('r') { reload }
|
||||||
|
key('q') { go :idle }
|
||||||
|
key(:escape) { go :idle }
|
||||||
|
end
|
||||||
|
|
||||||
|
page :sysinfo do
|
||||||
|
enter do
|
||||||
|
@items = [
|
||||||
|
"Online users #{ONLINE.count}",
|
||||||
|
"Messages #{MESSAGES.count}",
|
||||||
|
"Wiki https://wiki.teletypegames.org",
|
||||||
|
"Games API https://teletypegames.org",
|
||||||
|
"Platform #{RUBY_PLATFORM}",
|
||||||
|
"Ruby #{RUBY_VERSION}"
|
||||||
|
]
|
||||||
|
end
|
||||||
|
|
||||||
|
render do
|
||||||
|
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
|
||||||
|
|
||||||
|
key('q') { go :idle }
|
||||||
|
key(:escape) { go :idle }
|
||||||
|
end
|
||||||
|
|
||||||
|
start :idle
|
||||||
end
|
end
|
||||||
|
|
||||||
BBS.configure do |c|
|
BBS.configure do |c|
|
||||||
@@ -64,309 +320,7 @@ BBS.configure do |c|
|
|||||||
|
|
||||||
call { |ctx| ONLINE.add(ctx[:session_id], ctx[:username]) }
|
call { |ctx| ONLINE.add(ctx[:session_id], ctx[:username]) }
|
||||||
|
|
||||||
call do |ctx, runner|
|
tui MAIN_TUI
|
||||||
session = runner.instance_variable_get(:@session)
|
|
||||||
username = ctx[:username]
|
|
||||||
session_id = ctx[:session_id]
|
|
||||||
|
|
||||||
tui = BBS::TUI.define do
|
|
||||||
init do
|
|
||||||
@menu_sel = 0
|
|
||||||
@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
|
|
||||||
|
|
||||||
render do
|
|
||||||
cont_w = term_cols - CONT_X - 1
|
|
||||||
cont_h = term_rows - CONT_Y - 4
|
|
||||||
|
|
||||||
clear
|
|
||||||
|
|
||||||
bar y: 1,
|
|
||||||
content: " TELETYPE BBS │ #{@username} │ #{ONLINE.count} online",
|
|
||||||
style: :success
|
|
||||||
|
|
||||||
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
|
|
||||||
text c(:gray, "#{@items.size} msg(s) ↑↓ scroll q back"),
|
|
||||||
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
|
|
||||||
text c(:gray, '↑↓ navigate Enter read q back'),
|
|
||||||
x: CONT_X, y: CONT_Y + cont_h
|
|
||||||
end
|
|
||||||
|
|
||||||
when :page_view
|
|
||||||
text c(:cyan, @page_header[0, cont_w]), x: CONT_X, y: CONT_Y
|
|
||||||
text c(:gray, @page_meta[0, cont_w]), x: CONT_X, y: CONT_Y + 1
|
|
||||||
(@detail[@scroll, cont_h - 3] || []).each_with_index do |l, i|
|
|
||||||
text c(:gray, l[0, cont_w]), x: CONT_X, y: CONT_Y + 3 + i
|
|
||||||
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
|
|
||||||
badges = []
|
|
||||||
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
|
|
||||||
|
|
||||||
when :online
|
|
||||||
text c(:yellow, '── Online Users ──'), x: CONT_X, y: CONT_Y
|
|
||||||
@items.each_with_index do |uname, i|
|
|
||||||
you = uname == @username ? c(:gray, ' ← you') : ''
|
|
||||||
text c(:white, uname) + you, x: CONT_X, y: CONT_Y + 2 + i
|
|
||||||
end
|
|
||||||
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
|
|
||||||
|
|
||||||
bar y: term_rows, content: ' ↑↓ Navigate Enter Select q Back/Quit r Refresh',
|
|
||||||
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
|
say 'Goodbye!', style: :muted
|
||||||
end
|
end
|
||||||
|
|||||||
Reference in New Issue
Block a user