Provide lists of featured items (#945)

Applies to books, papers and industrial users.

Co-authored-by: Cuihtlauac ALVARADO <[email protected]>

Author: cuihtlauac

src/ocamlorg_data/ood.ml

@@ -7,6 +7,7 @@ end
 module Book = struct
   include Book
 
+  let featured = all |> List.filter (fun book -> book.featured)
   let get_by_slug slug = List.find_opt (fun x -> String.equal slug x.slug) all
 end
 
@@ -23,6 +24,7 @@ end
 module Industrial_user = struct
   include Industrial_user
 
+  let featured = all |> List.filter (fun user -> user.featured)
   let get_by_slug slug = List.find_opt (fun x -> String.equal slug x.slug) all
 end
 
@@ -32,6 +34,7 @@ module Packages = Packages
 module Paper = struct
   include Paper
 
+  let featured = all |> List.filter (fun paper -> paper.featured)
   let get_by_slug slug = List.find_opt (fun x -> String.equal slug x.slug) all
 end
 

src/ocamlorg_data/ood.mli

@@ -44,6 +44,7 @@ module Book : sig
   }
 
   val all : t list
+  val featured : t list
   val get_by_slug : string -> t option
 end
 
@@ -105,6 +106,7 @@ module Industrial_user : sig
   }
 
   val all : t list
+  val featured : t list
   val get_by_slug : string -> t option
 end
 
@@ -130,6 +132,7 @@ module Paper : sig
   }
 
   val all : t list
+  val featured : t list
   val get_by_slug : string -> t option
 end
 

src/ocamlorg_web/lib/handler.ml

@@ -4,12 +4,8 @@ let not_found _req = Dream.html ~code:404 (Ocamlorg_frontend.not_found ())
 let index _req = Dream.html (Ocamlorg_frontend.home ())
 
 let learn _req =
-  let papers =
-    Ood.Paper.all |> List.filter (fun (paper : Ood.Paper.t) -> paper.featured)
-  in
-  let books =
-    Ood.Book.all |> List.filter (fun (book : Ood.Book.t) -> book.featured)
-  in
+  let papers = Ood.Paper.featured in
+  let books = Ood.Book.featured in
   let tutorials = Ood.Tutorial.all in
   let release = List.hd Ood.Release.all in
   Dream.html (Ocamlorg_frontend.learn ~papers ~books ~release ~tutorials)
@@ -32,10 +28,7 @@ let success_story req =
   | None -> not_found req
 
 let industrial_users _req =
-  let users =
-    Ood.Industrial_user.all
-    |> List.filter (fun (item : Ood.Industrial_user.t) -> item.featured)
-  in
+  let users = Ood.Industrial_user.featured in
   let success_stories = Ood.Success_story.all in
   Dream.html (Ocamlorg_frontend.industrial_users ~users ~success_stories)
 
@@ -248,9 +241,7 @@ let papers req =
     | None -> Ood.Paper.all
     | Some search -> search_paper search Ood.Paper.all
   in
-  let recommended_papers =
-    Ood.Paper.all |> List.filter (fun (paper : Ood.Paper.t) -> paper.featured)
-  in
+  let recommended_papers = Ood.Paper.featured in
   Dream.html (Ocamlorg_frontend.papers ?search ~recommended_papers papers)
 
 let tutorial req =