Legend:
Page
Library
Module
Module type
Parameter
Class
Class type
Source
Page
Library
Module
Module type
Parameter
Class
Class type
Source
package cowabloga
Legend:
Page
Library
Module
Module type
Parameter
Class
Class type
Source
Page
Library
Module
Module type
Parameter
Class
Class type
Source
Source file bootstrap.ml
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 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94(* * Copyright (c) 2014 Richard Mortier <mort@cantab.net> * * Permission to use, copy, modify, and distribute this software for any * purpose with or without fee is hereby granted, provided that the above * copyright notice and this permission notice appear in all copies. * * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. * *) open Cow.Html let body ?google_analytics ~title:t ~headers content = let ga = match google_analytics with | None -> [] | Some (a, d) -> script ~typ:"text/javascript" ( string @@ Printf.sprintf "//<![CDATA[\n\ var _gaq = _gaq || [];\n\ _gaq.push(['_setAccount', '%s']);\n\ _gaq.push(['_setDomainName', '%s']);\n\ _gaq.push(['_trackPageview']);\n\ \n\ (function() {\n\ \ var ga = document.createElement('script');\n\ \ ga.type = 'text/javascript'; ga.async = true;\n\ \ ga.src =\n\ \ ('https:' == document.location.protocol\n\ \ ? 'https://ssl'\n\ \ : 'http://www') + '.google-analytics.com/ga.js';\n\ \ var s = document.getElementsByTagName('script')[0];\n\ \ s.parentNode.insertBefore(ga, s);\n\ })();'\n\ //]]>" a d ) in head (list [ meta ~attrs:["charset","utf-8"] empty; meta ~attrs:[ "http-equiv","Content-Type"; "content" ,"text/html"; "charset" ,"UTF-8" ] empty; meta ~attrs:[ "name" , "viewport"; "content" ,"width=device-width"; "initial-scale","1"; "maximum-scale","1" ] empty; string ( " <!-- Le HTML5 shim, for IE6-8 support of HTML elements -->\n\ <!--[if lt IE 9]>"); script ~src:"http://html5shim.googlecode.com/svn/trunk/html5.js" empty; string ("<![endif]-->"); title (string t); link ~attrs:[ "rel" , "stylesheet"; "media", "screen"; "type" , "text/css"; "href" , "/css/bootstrap.min.css" ] empty; link ~attrs:[ "rel" , "stylesheet"; "media", "screen"; "type" , "text/css"; "href" , "/css/bootstrap-responsive.min.css" ] empty; link ~attrs:[ "rel" , "stylesheet"; "href", "/css/site.css" ] empty; script ~src:"/js/jquery-1.9.1.min.js" empty; script ~src:"/js/bootstrap.min.js" empty; headers ]) ++ body (div ~cls:"container-fluid" content ++ ga) let page ?(ns="") body = Printf.sprintf "<!DOCTYPE html>\n\ <html '%s'>\n\ %s\n\ </html>" ns (Cow.Html.to_string body)