new window dsl
This commit is contained in:
244
bbs.rb
244
bbs.rb
@@ -16,15 +16,7 @@ require_relative 'lib/service/wiki_service'
|
||||
require_relative 'lib/service/games_service'
|
||||
require_relative 'lib/service/chat_service'
|
||||
require_relative 'lib/service/last_callers_service'
|
||||
require_relative 'lib/ui/windows/system_info_window'
|
||||
require_relative 'lib/ui/windows/messages_window'
|
||||
require_relative 'lib/ui/windows/wiki_window'
|
||||
require_relative 'lib/ui/windows/games_window'
|
||||
require_relative 'lib/ui/windows/users_window'
|
||||
require_relative 'lib/ui/windows/chat_window'
|
||||
require_relative 'lib/ui/windows/bulletin_window'
|
||||
require_relative 'lib/ui/windows/profile_window'
|
||||
require_relative 'lib/ui/windows/sysop_window'
|
||||
require_relative 'lib/ui/formatters'
|
||||
|
||||
ONLINE = OnlineService.new(OnlineUsersRepository.new)
|
||||
BOARDS = BoardService.new(BoardRepository.new(
|
||||
@@ -50,11 +42,12 @@ SERVICES = {
|
||||
chat: CHAT,
|
||||
last_callers: LAST_CALLERS,
|
||||
profile: PROFILE,
|
||||
uptime: STARTED_AT,
|
||||
uptime: STARTED_AT
|
||||
}.freeze
|
||||
|
||||
MAIN_APP = BBS::Application.define do
|
||||
theme BBS::Theme.neumanntronics
|
||||
services SERVICES
|
||||
|
||||
helpers do
|
||||
def sysop?
|
||||
@@ -63,43 +56,236 @@ MAIN_APP = BBS::Application.define do
|
||||
end
|
||||
end
|
||||
|
||||
# ── Windows ────────────────────────────────────────────────────────────────
|
||||
|
||||
window :bulletin, type: :info do |w|
|
||||
w.title ' Welcome '
|
||||
w.width 70
|
||||
w.height 17
|
||||
w.body do |ctx|
|
||||
UI::Formatters::Bulletin.body(
|
||||
username: ctx[:username] || 'Anonymous',
|
||||
online_count: ctx[:online].count,
|
||||
total_messages: ctx[:boards].total_count,
|
||||
recent_callers: ctx[:last_callers].recent(3)
|
||||
)
|
||||
end
|
||||
w.button label: '&Continue', primary: true, cancel: true
|
||||
end
|
||||
|
||||
window :system_info, type: :info do |w|
|
||||
w.title ' System Info '
|
||||
w.width 60
|
||||
w.height 14
|
||||
w.body do |ctx|
|
||||
rows = [
|
||||
['Online users', ctx[:online].count.to_s],
|
||||
['Messages', ctx[:boards].total_count.to_s],
|
||||
['Boards', ctx[:boards].boards.size.to_s],
|
||||
['Wiki', 'https://wiki.teletypegames.org'],
|
||||
['Games API', 'https://teletypegames.org'],
|
||||
['Platform', RUBY_PLATFORM],
|
||||
['Ruby', RUBY_VERSION],
|
||||
['Uptime', UI::Formatters::SystemInfo.format_uptime(ctx[:uptime])]
|
||||
]
|
||||
[{ kv: rows, label_width: 15 }]
|
||||
end
|
||||
end
|
||||
|
||||
window :messages, type: :master_detail do |w|
|
||||
w.title ' Message Boards '
|
||||
w.list_width 20
|
||||
w.empty_message ' (no boards configured)'
|
||||
w.items { |ctx| ctx[:boards].boards }
|
||||
w.item_label { |board, _ctx| board.title }
|
||||
w.render_detail do |board, width, ctx|
|
||||
UI::Formatters::Board.lines(ctx[:boards].messages(board.id, 100), board.title, width)
|
||||
end
|
||||
w.action label: '&New', align: :left do |window, ctx|
|
||||
board = window.list_widget.selected_item
|
||||
ctx[:app].open_window(:compose_message, board: board,
|
||||
on_posted: -> { window.reload_detail })
|
||||
:keep
|
||||
end
|
||||
w.action label: '&Refresh', align: :left do |window, _ctx|
|
||||
window.reload_detail
|
||||
:keep
|
||||
end
|
||||
end
|
||||
|
||||
window :compose_message, type: :form do |w|
|
||||
w.title { |ctx| ctx[:board] ? " Post to #{ctx[:board].title} " : ' Compose ' }
|
||||
w.width { |ctx| [ctx[:app].cols - 8, 70].min }
|
||||
w.height 14
|
||||
w.hint { |ctx| "From: #{ctx[:username] || 'Anonymous'} — Ctrl-Enter sends" }
|
||||
w.submit_label '&Send'
|
||||
w.cancel_label '&Cancel'
|
||||
w.field :body, type: :textarea, max_length: 1000
|
||||
w.on_submit do |values, form, ctx|
|
||||
if ctx[:board].nil?
|
||||
form.error('Select a board first.')
|
||||
:keep
|
||||
else
|
||||
case ctx[:boards].post(ctx[:board].id, ctx[:username] || 'Anonymous', values[:body])
|
||||
when :empty
|
||||
form.error('Message cannot be empty.')
|
||||
:keep
|
||||
else
|
||||
ctx[:on_posted]&.call
|
||||
:close
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
window :wiki, type: :master_detail do |w|
|
||||
w.title { |ctx| " #{ctx[:title]} " }
|
||||
w.list_width { |ctx| [32, ctx[:app].cols / 3].max }
|
||||
w.empty_message ' (no pages found)'
|
||||
w.close_button false
|
||||
w.items { |ctx| ctx[:wiki].list(ctx[:category]) }
|
||||
w.item_label { |page, _ctx| page.title }
|
||||
w.render_detail do |page, width, ctx|
|
||||
text = ctx[:wiki].content(page.id)
|
||||
BBS::Markdown.to_lines(text, width: width - 1, theme: ctx[:app].theme)
|
||||
end
|
||||
w.bottom_meta do |page, ctx|
|
||||
"#{page.created_at.to_s[0, 10]} #{ctx[:wiki].page_url(page.locale, page.path)}"
|
||||
end
|
||||
end
|
||||
|
||||
window :games, type: :master_detail do |w|
|
||||
w.title ' Game Catalog '
|
||||
w.list_width 30
|
||||
w.empty_message ' (no games)'
|
||||
w.items { |ctx| ctx[:games].all }
|
||||
w.item_label { |game, _ctx| game.title }
|
||||
w.render_detail { |game, width, _ctx| UI::Formatters::Game.card(game, width) }
|
||||
end
|
||||
|
||||
window :online_users, type: :info do |w|
|
||||
w.title ' Online Users '
|
||||
w.width 50
|
||||
w.scroll true
|
||||
w.height { |ctx| [ctx[:online].user_list.size + 6, 10].max }
|
||||
w.body { |ctx| UI::Formatters::Users.online_list(ctx[:online].user_list, ctx[:username]) }
|
||||
end
|
||||
|
||||
window :last_callers, type: :info do |w|
|
||||
w.title ' Last Callers '
|
||||
w.width 64
|
||||
w.scroll true
|
||||
w.height { |ctx| [ctx[:last_callers].recent(15).size + 6, 10].max }
|
||||
w.body { |ctx| UI::Formatters::Users.last_callers_list(ctx[:last_callers].recent(15)) }
|
||||
end
|
||||
|
||||
window :chat, type: :stream do |w|
|
||||
w.title ' Live Chat '
|
||||
w.placeholder 'Type a message and press Enter…'
|
||||
w.initial_lines do |ctx|
|
||||
ctx[:chat].history.map { |line| UI::Formatters::Chat.line(line) }
|
||||
end
|
||||
w.on_submit do |text, _app, ctx|
|
||||
ctx[:chat].broadcast(ctx[:username] || 'Anonymous', text.strip)
|
||||
end
|
||||
w.on_poll do |app_, ctx|
|
||||
ctx[:chat].drain(app_.session_id).map { |line| UI::Formatters::Chat.line(line) }
|
||||
end
|
||||
end
|
||||
|
||||
window :profile, type: :form do |w|
|
||||
w.title { |ctx| " Profile — #{ctx[:username] || 'Anonymous'} " }
|
||||
w.width 64
|
||||
w.height 14
|
||||
w.prefill do |ctx|
|
||||
existing = ctx[:profile].find(ctx[:username] || 'Anonymous') || {}
|
||||
{
|
||||
signature: existing['signature'].to_s,
|
||||
location: existing['location'].to_s,
|
||||
homepage: existing['homepage'].to_s,
|
||||
notes: existing['notes'].to_s
|
||||
}
|
||||
end
|
||||
w.field :signature, label: 'Signature'
|
||||
w.field :location, label: 'Location'
|
||||
w.field :homepage, label: 'Homepage'
|
||||
w.field :notes, label: 'Notes'
|
||||
w.on_submit do |values, _form, ctx|
|
||||
ctx[:profile].update(ctx[:username] || 'Anonymous', **values)
|
||||
BBS::Dialogs.message(ctx[:app], 'Profile saved.', title: ' Saved ')
|
||||
:close
|
||||
end
|
||||
end
|
||||
|
||||
window :sysop_console, type: :info do |w|
|
||||
w.title ' Sysop Console '
|
||||
w.width 70
|
||||
w.height 18
|
||||
w.scroll true
|
||||
w.body do |ctx|
|
||||
UI::Formatters::Sysop.console_body(
|
||||
username: ctx[:username],
|
||||
online_count: ctx[:online].count,
|
||||
total_messages: ctx[:boards].total_count,
|
||||
chat_subscribers: ctx[:chat].subscriber_count,
|
||||
online_users: ctx[:online].user_list,
|
||||
recent_callers: ctx[:last_callers].recent(5)
|
||||
)
|
||||
end
|
||||
w.button label: '&Broadcast', align: :left do |_window, ctx|
|
||||
BBS::Dialogs.input(ctx[:app], prompt: 'Sysop broadcast message:',
|
||||
title: ' Broadcast ', width: 64,
|
||||
on_submit: lambda do |text|
|
||||
next if text.strip.empty?
|
||||
ctx[:chat].broadcast("[SYSOP] #{ctx[:username]}", text.strip)
|
||||
end)
|
||||
:keep
|
||||
end
|
||||
w.button label: '&Close', cancel: true
|
||||
end
|
||||
|
||||
# ── Menubar ────────────────────────────────────────────────────────────────
|
||||
|
||||
menubar do
|
||||
menu '&File' do
|
||||
item '&Bulletin' do UI::Windows::Bulletin.open(self, services: SERVICES) end
|
||||
item '&System Info' do UI::Windows::SystemInfo.open(self, services: SERVICES) end
|
||||
item '&Bulletin' do open_window(:bulletin) end
|
||||
item '&System Info' do open_window(:system_info) end
|
||||
separator
|
||||
item 'E&xit', shortcut: 'Alt-X' do :halt end
|
||||
end
|
||||
|
||||
menu '&Messages' do
|
||||
item '&Boards…', shortcut: 'F2' do UI::Windows::Messages.open(self, services: SERVICES) end
|
||||
item '&Boards…', shortcut: 'F2' do open_window(:messages) end
|
||||
item '&New Post…', shortcut: 'F3' do
|
||||
board = SERVICES[:boards].boards.first
|
||||
UI::Windows::ComposeMessage.open(self, services: SERVICES, board: board)
|
||||
if board
|
||||
open_window(:compose_message, board: board)
|
||||
else
|
||||
BBS::Dialogs.message(self, 'Select a board first.', title: ' Compose ')
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
menu '&Files' do
|
||||
item '&Blog Posts' do UI::Windows::Wiki.open(self, services: SERVICES, category: 'blog', title: 'Blog Posts') end
|
||||
item '&HowTo Guides' do UI::Windows::Wiki.open(self, services: SERVICES, category: 'howto', title: 'HowTo Guides') end
|
||||
item '&Game Catalog' do UI::Windows::Games.open(self, services: SERVICES) end
|
||||
item '&Blog Posts' do open_window(:wiki, category: 'blog', title: 'Blog Posts') end
|
||||
item '&HowTo Guides' do open_window(:wiki, category: 'howto', title: 'HowTo Guides') end
|
||||
item '&Game Catalog' do open_window(:games) end
|
||||
end
|
||||
|
||||
menu '&Users' do
|
||||
item '&Online' do UI::Windows::OnlineUsers.open(self, services: SERVICES) end
|
||||
item '&Last Callers' do UI::Windows::LastCallers.open(self, services: SERVICES) end
|
||||
item '&Profile…' do UI::Windows::Profile.open(self, services: SERVICES) end
|
||||
item '&Online' do open_window(:online_users) end
|
||||
item '&Last Callers' do open_window(:last_callers) end
|
||||
item '&Profile…' do open_window(:profile) end
|
||||
end
|
||||
|
||||
menu '&Chat' do
|
||||
item '&Open chat', shortcut: 'F4' do UI::Windows::Chat.open(self, services: SERVICES) end
|
||||
item '&Open chat', shortcut: 'F4' do open_window(:chat) end
|
||||
end
|
||||
|
||||
menu 'S&ysop' do
|
||||
item '&Console', shortcut: 'F10' do
|
||||
name = (context[:username] || '').downcase
|
||||
if SYSOPS.include?(name)
|
||||
UI::Windows::SysopConsole.open(self, services: SERVICES)
|
||||
if sysop?
|
||||
open_window(:sysop_console)
|
||||
else
|
||||
BBS::Dialogs.message(self, 'Sysop access denied.', title: ' Sysop ')
|
||||
end
|
||||
@@ -123,12 +309,16 @@ MAIN_APP = BBS::Application.define do
|
||||
end
|
||||
|
||||
status_hint('F1', 'Help') { BBS::Dialogs.message(self, 'Top menu: Alt+letter — Windows: Tab/Shift-Tab — Close: Esc') }
|
||||
status_hint('F2', 'Boards') { UI::Windows::Messages.open(self, services: SERVICES) }
|
||||
status_hint('F2', 'Boards') { open_window(:messages) }
|
||||
status_hint('F3', 'Post') {
|
||||
board = SERVICES[:boards].boards.first
|
||||
UI::Windows::ComposeMessage.open(self, services: SERVICES, board: board)
|
||||
if board
|
||||
open_window(:compose_message, board: board)
|
||||
else
|
||||
BBS::Dialogs.message(self, 'Select a board first.', title: ' Compose ')
|
||||
end
|
||||
}
|
||||
status_hint('F4', 'Chat') { UI::Windows::Chat.open(self, services: SERVICES) }
|
||||
status_hint('F4', 'Chat') { open_window(:chat) }
|
||||
status_hint('F10', 'Menu') { menubar.open(0) }
|
||||
status_hint('Alt-X', 'Exit') { :halt }
|
||||
|
||||
|
||||
Reference in New Issue
Block a user