[Pkg-ocaml-maint-commits] r6288 - in /trunk/tools/ocaml_transition_monitor: ocaml-status.css ocaml_transition_monitor.mll

[glondu-guest at users.alioth.debian.org]

Author: glondu-guest
Date: Sat Feb 28 10:59:10 2009
New Revision: 6288

URL: http://svn.debian.org/wsvn/?sc=1&rev=6288
Log:
Add link to the team wiki page (+cosmetic changes)

Modified:
    trunk/tools/ocaml_transition_monitor/ocaml-status.css
    trunk/tools/ocaml_transition_monitor/ocaml_transition_monitor.mll

Modified: trunk/tools/ocaml_transition_monitor/ocaml-status.css
URL: http://svn.debian.org/wsvn/trunk/tools/ocaml_transition_monitor/ocaml-status.css?rev=6288&op=diff
==============================================================================
--- trunk/tools/ocaml_transition_monitor/ocaml-status.css (original)
+++ trunk/tools/ocaml_transition_monitor/ocaml-status.css Sat Feb 28 10:59:10 2009
@@ -11,6 +11,10 @@
   border-bottom: 2px solid #af0031;
   background-image: url(http://caml.inria.fr//pub/logos/caml-inria-fr.128x58.gif);
   background-repeat: no-repeat;
+}
+
+div {
+  margin-top: 1em;
 }
 div.status {
   text-align: center;

Modified: trunk/tools/ocaml_transition_monitor/ocaml_transition_monitor.mll
URL: http://svn.debian.org/wsvn/trunk/tools/ocaml_transition_monitor/ocaml_transition_monitor.mll?rev=6288&op=diff
==============================================================================
--- trunk/tools/ocaml_transition_monitor/ocaml_transition_monitor.mll (original)
+++ trunk/tools/ocaml_transition_monitor/ocaml_transition_monitor.mll Sat Feb 28 10:59:10 2009
@@ -232,16 +232,16 @@
       (fun (pkg, status) -> tr
          (td ~a:[a_class [(class_of_status (source_status status))^" src"]; a_id pkg]
             [a ~a:[a_href (uri_of_string ("http://packages.qa.debian.org/"^pkg))] [pcdata pkg];
-            small [pcdata "[";
+            small [pcdata " [ ";
                     a ~a:[a_href (uri_of_string ("http://buildd.debian.org/~luk/status/package.php?p="^pkg))]
                       [pcdata "buildd"];
-                    pcdata "]"
+                    pcdata " ] "
                    ];
             small [
-              pcdata "(";
+              pcdata " ( ";
               a ~a:[a_href (uri_of_string ("http://packages.debian.org/changelogs/pool/main/"^(String.sub pkg 0 1)^"/"^pkg^"/current/changelog"))]
                 [pcdata (sprintf "%s" ((M.find pkg sources_map).sversion))];
-              pcdata ")";
+              pcdata " ) ";
             ];
             ])
          (List.map (fun x ->
@@ -262,7 +262,7 @@
     let footer = [
       p [pcdata "Last generated: ";
          span ~a:[a_class ["timestamp"]] [pcdata date];
-         pcdata " (page currently rebuilt every 6 hours)";
+         pcdata " (page currently rebuilt every 6 hours).";
          br ();
          pcdata "Contact: ";
          a_link "mailto:steph at glondu.net" "Stéphane Glondu";
@@ -288,20 +288,29 @@
 	  meta ~content:"text/html;charset=utf-8" ~a:[a_http_equiv "Content-Type"] ();
          ])
       (body [h1 [pcdata page_title];
+             div ~a:[a_id "navbar"]
+               [
+                 a_link "http://wiki.debian.org/Teams/OCamlTaskForce" "Home";
+                 pcdata " of the ";
+                 em [pcdata "OCaml Task Force"];
+                 pcdata " on ";
+                 a ~a:[a_href (uri_of_string "http://wiki.debian.org")] [tt [pcdata "wiki.d.o"]];
+                 pcdata ".";
+               ];
              div
                [
-                 pcdata "Filter by status:"; br ();
-                 input ~a:[a_input_type `Checkbox; a_checked `Checked; a_id "good"] (); pcdata "good";
-                 br ();
-                 input ~a:[a_input_type `Checkbox; a_checked `Checked; a_id "bad"] (); pcdata "bad";
-                 br ();
+                 pcdata "Filter by status: ";
+                 input ~a:[a_input_type `Checkbox; a_checked `Checked; a_id "good"] ();
+                 pcdata "good ";
+                 input ~a:[a_input_type `Checkbox; a_checked `Checked; a_id "bad"] ();
+                 pcdata "bad ";
                  input ~a:[a_input_type `Checkbox; a_id "unknown"] (); pcdata "unknown";
                ];
              div ~a:[a_class ["status"]] [summary];
              div ~a:[a_class ["footer"]] footer])
     in
     with_out_file "ocaml_transition_monitor.html"
-      (fun chan -> output (fun s -> fprintf chan "%s%!" s) html)
+      (fun chan -> pretty_print (fun s -> fprintf chan "%s%!" s) html)
 
   let _ =
     let speclist = [