# frozen_string_literal: true

require 'bbs'
require 'time'

require_relative 'lib/domain/repository/online_users_repository'
require_relative 'lib/domain/repository/board_repository'
require_relative 'lib/domain/repository/wiki_repository'
require_relative 'lib/domain/repository/catalog_repository'
require_relative 'lib/domain/repository/last_callers_repository'
require_relative 'lib/domain/repository/profile_repository'
require_relative 'lib/domain/service/online_service'
require_relative 'lib/domain/service/board_service'
require_relative 'lib/domain/service/profile_service'
require_relative 'lib/domain/service/wiki_service'
require_relative 'lib/domain/service/games_service'
require_relative 'lib/domain/service/chat_service'
require_relative 'lib/domain/service/last_callers_service'
require_relative 'lib/bbs/ui/formatters'

online_service       = OnlineService.new(OnlineUsersRepository.new)
board_service        = BoardService.new(BoardRepository.new(
                         ENV.fetch('BOARDS_PATH', 'data/boards'),
                         legacy_path: ENV.fetch('MESSAGES_PATH', 'data/messages.dat')))
wiki_service         = WikiService.new(WikiRepository.new(token: ENV['WEBAPP_WIKIJS_TOKEN']))
games_service        = GamesService.new(CatalogRepository.new)
chat_service         = ChatService.new
last_callers_service = LastCallersService.new(LastCallersRepository.new(
                         ENV.fetch('LAST_CALLERS_PATH', 'data/last_callers.csv')))
profile_service      = ProfileService.new(ProfileRepository.new(
                         ENV.fetch('PROFILE_PATH', 'data/profiles.csv')))

STARTED_AT  = Time.now
SYSOPS      = ENV.fetch('BBS_SYSOPS', '').split(',').map { |name| name.strip.downcase }.reject(&:empty?)
DESKTOP_ART = ENV.fetch('BBS_DESKTOP_ART', 'data/art/teletype.ansi')

BBS.configure do |config|
  config.mouse        = true
  config.idle_seconds = 600

  config.on_session_end = lambda do |session|
    online_service.remove(session.session_id)
    chat_service.unsubscribe(session.session_id)
  end

  config.flow = BBS::Flow.define do
    big_banner 'TELETYPE BBS', style: :success
    ask :username, prompt: 'Name (blank for Anonymous)',
        transform: ->(value) { value.strip.empty? ? 'Anonymous' : value.strip[0...20] }
    call do |ctx|
      online_service.add(ctx[:session_id], ctx[:username])
      chat_service.subscribe(ctx[:session_id])
      last_callers_service.record(ctx[:username], ctx[:session_id])
    end
    app(BBS::Application.define do
      theme BBS::Theme.neumanntronics
      services online:       online_service,
               boards:       board_service,
               wiki:         wiki_service,
               games:        games_service,
               chat:         chat_service,
               last_callers: last_callers_service,
               profile:      profile_service,
               uptime:       STARTED_AT

      helpers do
        def sysop?
          name = (context[:username] || '').downcase
          SYSOPS.include?(name)
        end
      end

      # ── Windows ────────────────────────────────────────────────────────────────

      window :bulletin, type: :info do |window_spec|
        window_spec.title  ' Welcome '
        window_spec.width  70
        window_spec.height 17
        window_spec.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
        window_spec.button label: '&Continue', primary: true, cancel: true
      end

      window :system_info, type: :info do |window_spec|
        window_spec.title  ' System Info '
        window_spec.width  60
        window_spec.height 14
        window_spec.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 |window_spec|
        window_spec.title         ' Message Boards '
        window_spec.list_width    20
        window_spec.empty_message '  (no boards configured)'
        window_spec.items         { |ctx| ctx[:boards].boards }
        window_spec.item_label    { |board, _ctx| board.title }
        window_spec.render_detail do |board, width, ctx|
          UI::Formatters::Board.lines(ctx[:boards].messages(board.id, 100), board.title, width)
        end
        window_spec.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
        window_spec.action label: '&Refresh', align: :left do |window, _ctx|
          window.reload_detail
          :keep
        end
      end

      window :compose_message, type: :form do |window_spec|
        window_spec.title        { |ctx| ctx[:board] ? " Post to #{ctx[:board].title} " : ' Compose ' }
        window_spec.width        { |ctx| [ctx[:app].cols - 8, 70].min }
        window_spec.height       14
        window_spec.hint         { |ctx| "From: #{ctx[:username] || 'Anonymous'} — Ctrl-Enter sends" }
        window_spec.submit_label '&Send'
        window_spec.cancel_label '&Cancel'
        window_spec.field :body, type: :textarea, max_length: 1000
        window_spec.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 |window_spec|
        window_spec.title         { |ctx| " #{ctx[:title]} " }
        window_spec.list_width    { |ctx| [32, ctx[:app].cols / 3].max }
        window_spec.empty_message '  (no pages found)'
        window_spec.close_button  false
        window_spec.items         { |ctx| ctx[:wiki].list(ctx[:category]) }
        window_spec.item_label    { |page, _ctx| page.title }
        window_spec.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
        window_spec.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 |window_spec|
        window_spec.title         ' Game Catalog '
        window_spec.list_width    30
        window_spec.empty_message '  (no games)'
        window_spec.items         { |ctx| ctx[:games].all }
        window_spec.item_label    { |game, _ctx| game.title }
        window_spec.render_detail { |game, width, _ctx| UI::Formatters::Game.card(game, width) }
      end

      window :online_users, type: :info do |window_spec|
        window_spec.title  ' Online Users '
        window_spec.width  50
        window_spec.scroll true
        window_spec.height { |ctx| [ctx[:online].user_list.size + 6, 10].max }
        window_spec.body   { |ctx| UI::Formatters::Users.online_list(ctx[:online].user_list, ctx[:username]) }
      end

      window :last_callers, type: :info do |window_spec|
        window_spec.title  ' Last Callers '
        window_spec.width  64
        window_spec.scroll true
        window_spec.height { |ctx| [ctx[:last_callers].recent(15).size + 6, 10].max }
        window_spec.body   { |ctx| UI::Formatters::Users.last_callers_list(ctx[:last_callers].recent(15)) }
      end

      window :chat, type: :stream do |window_spec|
        window_spec.title       ' Live Chat '
        window_spec.placeholder 'Type a message and press Enter…'
        window_spec.initial_lines do |ctx|
          ctx[:chat].history.map { |line| UI::Formatters::Chat.line(line) }
        end
        window_spec.on_submit do |text, _app, ctx|
          ctx[:chat].broadcast(ctx[:username] || 'Anonymous', text.strip)
        end
        window_spec.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 |window_spec|
        window_spec.title  { |ctx| " Profile — #{ctx[:username] || 'Anonymous'} " }
        window_spec.width  64
        window_spec.height 14
        window_spec.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
        window_spec.field :signature, label: 'Signature'
        window_spec.field :location,  label: 'Location'
        window_spec.field :homepage,  label: 'Homepage'
        window_spec.field :notes,     label: 'Notes'
        window_spec.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 |window_spec|
        window_spec.title  ' Sysop Console '
        window_spec.width  70
        window_spec.height 18
        window_spec.scroll true
        window_spec.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
        window_spec.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
        window_spec.button label: '&Close', cancel: true
      end

      # ── Menubar ────────────────────────────────────────────────────────────────

      menubar do
        menu '&File' do
          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 open_window(:messages) end
          item '&New Post…', shortcut: 'F3' do
            board = board_service.boards.first
            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 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 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 open_window(:chat) end
        end

        menu 'S&ysop' do
          item '&Console', shortcut: 'F10' do
            if sysop?
              open_window(:sysop_console)
            else
              BBS::Dialogs.message(self, 'Sysop access denied.', title: ' Sysop ')
            end
          end
        end

        menu '&Help' do
          item '&About' do
            BBS::Dialogs.message(self,
              'Teletype BBS — telnet community board powered by rubbs. ' \
              'Use the top menu (or Alt+letter), Tab to move focus, Esc to close windows.',
              title: ' About ', width: 64)
          end
          item '&Keys' do
            BBS::Dialogs.message(self,
              'Alt+letter — open menu · Tab/Shift-Tab — move focus · Enter — activate · ' \
              'Esc — close window · F1 Help · F2 Boards · F3 Post · F4 Chat · F10 Sysop',
              title: ' Keys ', width: 70)
          end
        end
      end

      status_hint('F1',  'Help')  { BBS::Dialogs.message(self, 'Top menu: Alt+letter — Windows: Tab/Shift-Tab — Close: Esc') }
      status_hint('F2',  'Boards') { open_window(:messages) }
      status_hint('F3',  'Post')   {
        board = board_service.boards.first
        if board
          open_window(:compose_message, board: board)
        else
          BBS::Dialogs.message(self, 'Select a board first.', title: ' Compose ')
        end
      }
      status_hint('F4',  'Chat')   { open_window(:chat) }
      status_hint('F10', 'Menu')   { menubar.open(0) }
      status_hint('Alt-X', 'Exit') { :halt }

      init do
        art = if File.file?(DESKTOP_ART)
                BBS::Widgets::AnsiArt.from_file(DESKTOP_ART)
              else
                BBS::Widgets::AnsiArt.new(lines: BBS::Widgets::AnsiArt.default_lines)
              end
        art.layout(1, 1, cols, rows - 2)
        add(art)
      end
    end)
    say 'Goodbye!', style: :muted
  end
end

BBS.start