\ App demo: include ../1991.fs sourcedir s" public" s+ set-public-path sourcedir s" views/" s+ set-view-path : handle-/ s" fff" ; : handle-hi s" hi!" ; \ Basic routing: /1991 / handle-/ /1991 /hi handle-hi \ Views: : page-title s" hmmmm" ; : handle-/index s" index.html" render-view ; : handle-import s" import-version.html" render-view ; /1991 /index handle-/index /1991 /import handle-import : handle-uid s" uid:" get-query-string s+ ; : handle-uid-new s" uid:new:" get-query-string s+ ; : handle-uid-delete s" uid:delete:" get-query-string s+ ; : handle-pid s" pid:" get-query-string s+ ; : handle-pid-new s" pid:new:" get-query-string s+ ; : handle-pid-delete s" pid:delete:" get-query-string s+ ; /1991 /api/v1/users/ handle-uid /1991 /api/v1/users//new handle-uid-new /1991 /api/v1/users//delete handle-uid-delete /1991 /api/v1/users//post/ handle-pid /1991 /api/v1/users//post//new handle-pid-new /1991 /api/v1/users//post//delete handle-pid-delete 8080 1991: