factor-work/triangle-beer-league/triangle-beer-league.factor

USING: accessors namespaces ;
USING: io.sockets.secure io.servers ;
USING: furnace.actions furnace.boilerplate ;
USING: http.server http.server.dispatchers http.server.static ;

IN: triangle-beer-league

SYMBOLS: key-password key-file dh-file ;

TUPLE: tbl < dispatcher ;

: <splash-action> ( -- action )
    <page-action>
    { tbl "tbl" } >>template ;

: <schedule-action> ( -- action )
    <page-action>
    { tbl "schedule" } >>template ;

: <tbl> ( -- responder )
    tbl new-dispatcher
    "resource:work/triangle-beer-league" <static> enable-fhtml >>default ;


: <tbl-website-server> ( -- threaded-server )
    <http-server>
    f >>secure
    8080 >>insecure ;

: start-tbl-site ( -- server )
    <tbl> main-responder set-global
    <tbl-website-server> start-server ;

: start-tbl ( -- )
    start-tbl-site wait-for-server ;

MAIN: start-tbl