1
0
mirror of https://github.com/urlysses/1991.git synced 2024-11-26 11:38:05 +11:00

Landing page demos should work, imho.

Just my 2 cents.
This commit is contained in:
urlysses 2017-03-01 14:04:40 -05:00
parent 0a6c0ec384
commit 0060efb69c

View File

@ -136,15 +136,17 @@ sourcedir s" views/" s+ set-view-path
s" Dynamic page title" ; s" Dynamic page title" ;
: ten-lines ( -- ) : ten-lines ( -- )
10 0 do 10 0 do
s" line " <# #s #> s+ s" line " i s>d <# #s #> s+
s" &lt;br>" s+ s" &lt;br>" s+
$type $type
loop ; loop ;
\ Use render-view to output the contents \ Use render-view to output the contents
\ of a file in the views/ directory. \ of a file in the views/ directory.
: handle-/index : handle-/
s" index.html" render-view ; s" v-index.html" render-view ;
/1991 / handle-/
\ Start the server on port 8080. \ Start the server on port 8080.
8080 1991: 8080 1991: