Add an orphaned filter to display unmaintained packages

Use is as simple as `opam ci status -f orphaned`.  We use a heuristic
to determine if the package has no maintainers; please submit more
to A.is_unmaintained if you spot more packages that could benefit.

Closes #19

Signed-off-by: Anil Madhavapeddy <[email protected]>

Author: avsm

src/opam-ci/main.ml

@@ -63,8 +63,10 @@ let filter_t =
        will show failures for just the flambda, release-candidate or \
        safe-string tests respectively. $(i,lagging) will show the packages \
        whose latest release is uninstallable against the latest version of \
-       the compiler. $(i,all) will show all known results for all versions \
-       including successes."
+       the compiler. $(i,orphaned) will list all the packages that do not \
+       have an active maintainer, and so are looking for community help to \
+       take care of them. $(i,all) will show all known results for all \
+       versions including successes."
     in
     let open Arg in
     let term =
@@ -73,6 +75,7 @@ let filter_t =
         ; ("failures", `Failures)
         ; ("recent", `Recent)
         ; ("lagging", `Lagging)
+        ; ("orphaned", `Orphaned)
         ; ("variants:ss", `Variants `SS)
         ; ("variants:fl", `Variants `Flambda)
         ; ("variants:rc", `Variants `RC) ]

src/opam-ci/user.ml

@@ -151,6 +151,12 @@ module A = struct
     match (ss, uss) with
     | (`Ok | `Unknown | `Uninstallable), `Uninstallable -> true
     | _ -> false
+
+  let is_unmaintained pkg =
+    pkg.maintainers = []
+    || List.mem "https://github.com/ocaml/opam-repository/issues"
+         pkg.maintainers
+    || List.mem "[email protected]" pkg.maintainers
 end
 
 module S = struct
@@ -233,6 +239,7 @@ type filters =
       | `Failures
       | `Recent
       | `Lagging
+      | `Orphaned
       | `Variants of [`Flambda | `RC | `SS] ] }
 
 type params = {distro: D.t option; ov: OV.t option; arch: OV.arch option}
@@ -302,6 +309,9 @@ let render_package ppf ~filters pkg =
   | `Lagging ->
       if A.is_lagging pkg.versions then
         render_packages ppf pkg.name [A.latest_version pkg.versions]
+  | `Orphaned ->
+      if A.is_unmaintained pkg then
+        render_packages ppf pkg.name [A.latest_version pkg.versions]
   | `Failures ->
       List.filter (fun (_, m) -> A.has_fails m) pkg.versions
       |> render_packages ppf pkg.name