steve
/
factor-work
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

refactor

master
Steve Ayerhart 2023-09-06 16:35:05 -04:00
parent 0152377a95
commit 5dbc9de886
Signed by: steve
GPG Key ID: BB368A0698AE49B7
1 changed files with 4 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
triangle-beer-league/triangle-beer-league.factor
View File

@ -17,35 +17,18 @@ TUPLE: tbl < dispatcher ;
<page-action> <page-action>
{ tbl "schedule" } >>template ; { tbl "schedule" } >>template ;
: <tbl-website> ( -- responder ) : <tbl> ( -- responder )
tbl new-dispatcher tbl new-dispatcher
! "resource:work/triangle-beer-league/schedule" <static> enable-fhtml >>default
"resource:work/triangle-beer-league" <static> enable-fhtml >>default ; "resource:work/triangle-beer-league" <static> enable-fhtml >>default ;
! <splash-action> "" add-responder
! <schedule-action> "schedule" add-responder
! "resource:work/triangle-beer-league" <static> >>default
! <boilerplate> { tbl "tbl-common" } >>template ;
: init-testing ( -- )
"vocab:openssl/test-1.2/dh2048.pem" dh-file set-global
"vocab:openssl/test-1.2/server.pem" key-file set-global
"password" key-password set-global
<tbl-website>
main-responder set-global ;
: <tbl-secure-config> ( -- config )
<secure-config>
key-file get >>key-file
dh-file get >>dh-file
key-password get >>password ;
: <tbl-website-server> ( -- threaded-server ) : <tbl-website-server> ( -- threaded-server )
<http-server> <http-server>
<tbl-secure-config> >>secure-config f >>secure
8080 >>insecure 8080 >>insecure ;
8431 >>secure ;
: start-tbl-site ( -- server ) : start-tbl-site ( -- server )
<tbl> main-responder set-global
<tbl-website-server> start-server ; <tbl-website-server> start-server ;
: start-tbl ( -- ) : start-tbl ( -- )