! Copyright (C) 2025 "Serre".
! See https://factorcode.org/license.txt for BSD license.
USING: accessors db db.sqlite erinnemori.boards
erinnemori.reviews furnace furnace.alloy
furnace.auth.features.deactivate-user
furnace.auth.features.edit-profile
furnace.auth.features.registration furnace.auth.login
furnace.boilerplate http.server http.server.dispatchers
igdb-fetch io.servers namespaces webapps.utils ;
IN: erinnemori

TUPLE: erinnemori < dispatcher ;

: reviews-db ( -- db ) "reviews.db" <sqlite-db> ;
: boards-db  ( -- db ) "boards.db" <sqlite-db> ;

: init-databases ( -- )
  reviews-db [
    init-furnace-tables
!    review ensure-table
  ] with-db
  boards-db [
    init-furnace-tables
!    board ensure-table
  ] with-db ;

: <login-config> ( responder -- responder )
  "erinnemori" <login-realm>
  allow-registration
  allow-edit-profile
  allow-deactivation
  f >>secure ; ! Debug only

: <erinnemori> ( -- main-responder )
  init-databases
  erinnemori new-dispatcher
    erinnemori-reviews reviews-db <alloy>
      "library" add-responder
    erinnemori-boards boards-db <alloy>
      "boards" add-responder
    <login-action> "login" add-responder
  <boilerplate>
    { erinnemori "main-template" } >>template
  <login-config>
  ;

: run-erinnemori ( -- server )
  t development? set
  <erinnemori>
    main-responder set-global
  <test-http-server> start-server ;