palate 0.3.7

File type detection combining tft and hyperpolyglot
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
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!"]])))

}}