38 lines
986 B
Forth
38 lines
986 B
Forth
namespace Server
|
|
|
|
open Giraffe
|
|
open GiraffeViewEngine
|
|
|
|
// ---------------------------------
|
|
// Views
|
|
// ---------------------------------
|
|
|
|
module Views =
|
|
let layout (content: XmlNode list) =
|
|
html [] [
|
|
head [] [
|
|
title [] [ encodedText "Server" ]
|
|
link [ _rel "stylesheet"
|
|
_type "text/css"
|
|
_href "/main.css" ]
|
|
script [ _src "//cdnjs.cloudflare.com/ajax/libs/rot.js/0.6.0/rot.js" ] []
|
|
script [ _src "//unpkg.com/vue" ] []
|
|
script [ _src "//unpkg.com/axios/dist/axios.min.js" ] []
|
|
script [ _src "/main.js"; _async ] []
|
|
]
|
|
body [] content
|
|
]
|
|
|
|
let partial() =
|
|
h1 [] [ encodedText "Dis my dumb game" ]
|
|
|
|
let display() =
|
|
div [ _id "app" ] [
|
|
div [ _id "game" ] []
|
|
]
|
|
|
|
let index() =
|
|
[
|
|
partial()
|
|
display()
|
|
] |> layout |