Add .eliom extension for Ocsigen (OCaml web framework)

This commit is contained in:
db0
2012-08-27 11:41:43 +02:00
parent 38b966a554
commit 09c76246f6
2 changed files with 50 additions and 0 deletions

View File

@@ -822,6 +822,8 @@ OCaml:
- .mli
- .mll
- .mly
- .eliom
- .eliomi
ObjDump:
type: data

View File

@@ -0,0 +1,48 @@
{shared{
open Eliom_content
open Html5.D
open Eliom_parameter
}}
{server{
module Example =
Eliom_registration.App
(struct
let application_name = "example"
end)
let main =
Eliom_service.service
~path:[]
~get_params:unit
()
}}
{client{
let hello_popup () =
Dom_html.window##alert(Js.string ("Hello Popup!"))
}}
{server{
let _ =
Example.register
~service:main
(fun () () ->
Lwt.return
(html
(head (title (pcdata "Hello World of Ocsigen")) [])
(body [h1 [pcdata "Hello World!"];
p [pcdata "Welcome to my first Ocsigen website."];
h2 ~a:[a_onclick {{ hello_popup () }}]
[pcdata "Click me!"]])))
}}