Add {add,remove}_featured_election

src/web/web_signatures.mli

@@ -265,6 +265,8 @@ module type SITE = sig
     featured:bool -> election_files -> (module WEB_ELECTION) option Lwt.t
   val set_main_election : string -> unit Lwt.t
   val unset_main_election : unit -> unit Lwt.t
+  val add_featured_election : string -> unit Lwt.t
+  val remove_featured_election : string -> unit Lwt.t
   val cont : (unit -> service_handler) Eliom_reference.eref
 end
 

src/web/web_site.ml

@@ -34,6 +34,10 @@ module type CONFIG = sig
   val auth_config : auth_config list
 end
 
+let rec list_remove x = function
+  | [] -> []
+  | y :: ys -> if x = y then ys else y :: (list_remove x ys)
+
 let get_single_line x =
   match_lwt Lwt_stream.get x with
   | None -> return None
@@ -105,6 +109,20 @@ module Make (C : CONFIG) : SITE = struct
 
     let import_election ~featured f = !import_election_ref featured f
 
+    let add_featured_election x =
+      lwt the_featured = Ocsipersist.get featured in
+      if List.mem x the_featured then (
+        return ()
+      ) else if SMap.mem x !election_table then (
+        Ocsipersist.set featured (x :: the_featured)
+      ) else (
+        Lwt.fail Not_found
+      )
+
+    let remove_featured_election x =
+      lwt the_featured = Ocsipersist.get featured in
+      Ocsipersist.set featured (list_remove x the_featured)
+
     let set_main_election x =
       if SMap.mem x !election_table then (
         Ocsipersist.set main_election (Some x)