partners.page.ml 802 Bytes
Newer Older
François Bobot's avatar
François Bobot committed
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
open Html5.M
open Generate
open Menu

let logo ~background ~name ~file =
      img
      ~src:(Printf.sprintf "images/logo/%s" file)
      ~alt:name
      ~a:[a_style (Printf.sprintf "margin: 5px; \
                                   margin-right: 20px; \
                                   background:%s" background)]
      ()


let () = Generate.page partners  [
    logo
      ~file:"cea_list.png"
      ~name:"CEA List"
      ~background:"#ED1C24";
    logo
      ~file:"upsud.svg"
      ~name:"Paris-Sud University"
      ~background:"white";
    logo
      ~file:"INRIA.png"
      ~name:"INRIA"
      ~background:"white";
    logo
      ~file:"ocamlpro.png"
      ~name:"OcamlPro"
      ~background:"#1B325F";
    logo
      ~file:"adacore.png"
      ~name:"Adacore"
      ~background:"black";
]