open Html5.M

let this_title = title (pcdata "Edgar Aroutiounian's Web Page")

let image_box =
  div ~a:[a_id "image_box"]
    []

let links_box =
  ul ~a:[a_class ["links_bar"]; a_id "links_bar"]
    [li ~a:[a_id "home_click"]
       [pcdata "Edgar Aroutiounian | Musings and Thoughts"];
     li ~a:[a_id "about_click"]
       [pcdata "About Me"];
     li ~a:[a_id "blog_posts_click"]
       [pcdata "Blog"];
     li ~a:[a_id "hackathons_click"]
       [pcdata "Hackathons"]]

let common_footer =
  footer ~a:[a_id "footer_box"]
    [p [pcdata "This site was made with ";
        a ~a:[a_href "http://ocaml.org"] [pcdata "OCaml"];
        pcdata " and ";
        a ~a:[a_href "http://orgmode.org"] [pcdata "orgmode"]]]

let home_content =
  div
    [h2
       [pcdata "Hello Stranger"; span ~a:[a_id "ip_addr"][]];
     br ();
     p [pcdata "The entire webstack used to make this site was built \
                using OCaml and Emacs"
       ]]

let main_payload =
  div ~a:[a_id "payload"]
    [home_content]

let common_nav =
  nav [links_box]

let content_box =
  div ~a:[a_id "content_box"]
    [common_nav;
     main_payload;
     common_footer]

let main_script =
  script ~a:[a_src (Xml.uri_of_string "static/js/main.js")] (pcdata "")

let home_page_doc =
  html (head this_title
          [link ~rel:[`Stylesheet] ~href:"static/css/home.css" ();
           link ~rel:[`Stylesheet] ~href:"static/css/solarized_dark.css" ()])
    (body [image_box; content_box; main_script])