mirror of
https://github.com/KevinMidboe/linguist.git
synced 2025-10-29 09:40:21 +00:00
Add .eliom extension for Ocsigen (OCaml web framework)
This commit is contained in:
@@ -822,6 +822,8 @@ OCaml:
|
|||||||
- .mli
|
- .mli
|
||||||
- .mll
|
- .mll
|
||||||
- .mly
|
- .mly
|
||||||
|
- .eliom
|
||||||
|
- .eliomi
|
||||||
|
|
||||||
ObjDump:
|
ObjDump:
|
||||||
type: data
|
type: data
|
||||||
|
|||||||
48
samples/OCaml/example.eliom
Normal file
48
samples/OCaml/example.eliom
Normal 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!"]])))
|
||||||
|
|
||||||
|
}}
|
||||||
Reference in New Issue
Block a user