This commit is contained in:
2026-05-12 20:23:30 +02:00
parent f1ec1c3a42
commit e9c0d947a6
14 changed files with 167 additions and 345 deletions

192
bbs.rb
View File

@@ -6,20 +6,15 @@ require_relative 'lib/repository/online_users_repository'
require_relative 'lib/repository/message_board_repository'
require_relative 'lib/repository/wiki_repository'
require_relative 'lib/repository/catalog_repository'
require_relative 'lib/page/helpers'
require_relative 'lib/page/idle_page'
require_relative 'lib/page/messages_page'
require_relative 'lib/page/new_msg_page'
require_relative 'lib/page/wiki_list_page'
require_relative 'lib/page/page_view_page'
require_relative 'lib/page/games_page'
require_relative 'lib/page/online_page'
require_relative 'lib/page/sysinfo_page'
require_relative 'lib/service/online_service'
require_relative 'lib/service/message_service'
require_relative 'lib/service/wiki_service'
require_relative 'lib/service/games_service'
ONLINE = OnlineUsersRepository.new
MESSAGES = MessageBoardRepository.new(ENV.fetch('MESSAGES_PATH', 'data/messages.dat'))
WIKI = WikiRepository.new(token: ENV['WEBAPP_WIKIJS_TOKEN'])
CATALOG = CatalogRepository.new
ONLINE = OnlineService.new(OnlineUsersRepository.new)
MESSAGES = MessageService.new(MessageBoardRepository.new(ENV.fetch('MESSAGES_PATH', 'data/messages.dat')))
WIKI = WikiService.new(WikiRepository.new(token: ENV['WEBAPP_WIKIJS_TOKEN']))
GAMES = GamesService.new(CatalogRepository.new)
MENU_ITEMS = [
'Messages', 'Post Message', 'Blog Posts',
@@ -32,67 +27,134 @@ CONT_X = 23
CONT_Y = 2
THEME = {
bg: "\e[0;40m", # #0A0800 ≈ black
normal: "\e[0;33m", # #FFB000 amber (body text)
bright: "\e[1;33m", # #FFD880 bright amber (headings)
border: "\e[0;33m", # amber borders
selected: "\e[0;30;43m", # #0A0800 fg on #C88000 bg (inverse)
header: "\e[1;33m", # bright amber
label: "\e[2;33m", # #6B4800 dim amber (secondary)
status: "\e[0;30;43m", # #0A0800 fg on #C88000 bg
input: "\e[1;33m", # bright amber for typed text
success: "\e[1;32m", # green
error: "\e[1;31m", # red
bg: "\e[0;40m",
normal: "\e[0;33m",
bright: "\e[1;33m",
border: "\e[0;33m",
selected: "\e[0;30;43m",
header: "\e[1;33m",
label: "\e[2;33m",
status: "\e[0;30;43m",
input: "\e[1;33m",
success: "\e[1;32m",
error: "\e[1;31m",
reset: "\e[0m",
}.freeze
MAIN_TUI = BBS::TUI.define do
helpers { include TUIHelpers }
helpers { include BBS::TUI::Helpers }
init do
@menu_sel = 0
@page_title = 'TELETYPE BBS'
@items = []
@item_sel = 0
@scroll = 0
@detail = []
@page_meta = +''
@input = +''
@status = +''
@prev_page = nil
init { init_state }
chrome { render_chrome }
page :idle do
enter { @page_title = 'TELETYPE BBS' }
render do
text 'Navigate the menu with ↑↓, select with Enter.',
x: CONT_X, y: CONT_Y + cont_h / 2, style: THEME[:normal]
end
nav :menu, size: 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
chrome do
screen_fill bg: :black
panel_h = term_rows - 1
box x: 1, y: 1, w: LEFT_W, h: panel_h,
style: THEME[:border], bg: :black
box x: LEFT_W + 1, y: 1, w: term_cols - LEFT_W, h: panel_h,
title: " #{@page_title}#{@username}#{ONLINE.count} online ",
style: THEME[:border], bg: :black
list MENU_ITEMS.map { |i| i[0, LEFT_W - 4] },
x: 2, y: CONT_Y,
selected: @menu_sel,
style: THEME[:normal], highlight: THEME[:selected]
bar y: term_rows,
content: " \e[1;37;43m↑↓\e[0;30;43m Navigate \e[1;37;43mEnter\e[0;30;43m Select " \
"\e[1;37;43mQ\e[0;30;43m Back \e[1;37;43mR\e[0;30;43m Refresh",
style: THEME[:status]
page :messages do
enter { @page_title = 'MESSAGES'; load_messages(MESSAGES) }
render { render_messages }
nav :scroll, content: -> { @items }, window: -> { cont_h }
key('r') { reload }
key('q') { go :idle }
key(:escape) { go :idle }
end
IdlePage.configure(self)
MessagesPage.configure(self)
NewMsgPage.configure(self)
WikiListPage.configure(self, :blog, category: 'blog', title: 'BLOG')
WikiListPage.configure(self, :howto, category: 'howto', title: 'HOWTO GUIDES')
PageViewPage.configure(self)
GamesPage.configure(self)
OnlinePage.configure(self)
SysinfoPage.configure(self)
page :new_msg do
enter { @page_title = 'POST MESSAGE'; @input = +''; @status = +'' }
render { render_new_message_form }
key(:enter) do
case MESSAGES.post(@username, @input)
when :empty then @status = 'Message cannot be empty.'
when :ok then go :idle
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 { @page_title = 'BLOG'; load_wiki_list(WIKI, 'blog') }
render { render_wiki_list }
nav :list, window: -> { cont_h - 3 }
key(:enter) { open_wiki_page(WIKI, back: :blog) }
key('r') { reload }
key('q') { go :idle }
key(:escape) { go :idle }
end
page :howto do
enter { @page_title = 'HOWTO GUIDES'; load_wiki_list(WIKI, 'howto') }
render { render_wiki_list }
nav :list, window: -> { cont_h - 3 }
key(:enter) { open_wiki_page(WIKI, back: :howto) }
key('r') { reload }
key('q') { go :idle }
key(:escape) { go :idle }
end
page :page_view do
render { render_page_view }
nav :scroll, content: -> { @detail }, window: -> { cont_h - 2 }
key('q') { @scroll = 0; go(@prev_page || :idle) }
key(:escape) { @scroll = 0; go(@prev_page || :idle) }
end
page :games do
enter { @page_title = 'GAME CATALOG'; @items = GAMES.all; @item_sel = 0 }
render { render_game_card }
nav :cycle
key('r') { reload }
key('q') { go :idle }
key(:escape) { go :idle }
end
page :online do
enter { @page_title = 'ONLINE USERS'; @items = ONLINE.user_list }
render { render_online_users }
key('r') { reload }
key('q') { go :idle }
key(:escape) { go :idle }
end
page :sysinfo do
enter do
@page_title = '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}"
]
end
render { render_sysinfo_rows }
key('q') { go :idle }
key(:escape) { go :idle }
end
start :idle
end