Skip to content

Commit

Permalink
Add .eliom extension for Ocsigen (OCaml web framework)
Browse files Browse the repository at this point in the history
  • Loading branch information
db0company committed Aug 27, 2012
1 parent 38b966a commit 09c7624
Show file tree
Hide file tree
Showing 2 changed files with 50 additions and 0 deletions.
2 changes: 2 additions & 0 deletions lib/linguist/languages.yml
Expand Up @@ -822,6 +822,8 @@ OCaml:
- .mli
- .mll
- .mly
- .eliom
- .eliomi

ObjDump:
type: data
Expand Down
48 changes: 48 additions & 0 deletions samples/OCaml/example.eliom
@@ -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!"]])))

}}

0 comments on commit 09c7624

Please sign in to comment.