Raname Utils map_files into map_md_files (#2515)

* Raname Utils map_files into map_md_files

* Rename function definition

---------

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

Author: cuihtlauac

tool/ood-gen/lib/academic_institution.ml

@@ -22,7 +22,7 @@ let decode (fpath, (head, body_md)) =
   in
   Result.map (of_metadata ~body_md ~body_html) metadata
 
-let all () = Utils.map_files decode "academic_institutions/*.md"
+let all () = Utils.map_md_files decode "academic_institutions/*.md"
 
 let template () =
   Format.asprintf {|

tool/ood-gen/lib/book.ml

@@ -29,7 +29,7 @@ let decode (fpath, (head, body)) =
   Result.map (of_metadata ~body_md ~body_html) metadata
 
 let all () =
-  Utils.map_files decode "books/*.md"
+  Utils.map_md_files decode "books/*.md"
   |> List.sort (fun (b1 : t) (b2 : t) ->
          (* Sort the books by reversed publication date. *)
          String.compare b2.published b1.published)

tool/ood-gen/lib/changelog.ml

@@ -76,7 +76,7 @@ let decode (fname, (head, body)) =
     metadata
 
 let all () =
-  Utils.map_files decode "changelog/*/*.md"
+  Utils.map_md_files decode "changelog/*/*.md"
   |> List.sort (fun a b -> String.compare b.slug a.slug)
 
 module ChangelogFeed = struct

tool/ood-gen/lib/cookbook.ml

@@ -117,7 +117,7 @@ let all_categories_and_tasks () =
 let tasks, top_categories = all_categories_and_tasks ()
 
 let all () =
-  Utils.map_files (decode tasks) "cookbook/*/*.ml"
+  Utils.map_md_files (decode tasks) "cookbook/*/*.ml"
   |> List.sort (fun (a : t) (b : t) -> String.compare b.slug a.slug)
   |> List.rev
 

tool/ood-gen/lib/event.ml

@@ -128,7 +128,7 @@ let decode (recurring_events : RecurringEvent.t list) (fpath, (head, body_md)) =
     metadata
 
 let all () =
-  Utils.map_files (decode (RecurringEvent.all ())) "events/*.md"
+  Utils.map_md_files (decode (RecurringEvent.all ())) "events/*.md"
   |> List.sort (fun e1 e2 ->
          (* Sort the events by reversed start date. *)
          let t1 =

tool/ood-gen/lib/exercise.ml

@@ -55,7 +55,7 @@ let compare_by_slug =
   fun (x : t) (y : t) -> compare (key x) (key y)
 
 let all () =
-  Utils.map_files decode "exercises/*.md" |> List.sort compare_by_slug
+  Utils.map_md_files decode "exercises/*.md" |> List.sort compare_by_slug
 
 let template () =
   Format.asprintf {|

tool/ood-gen/lib/industrial_user.ml

@@ -22,7 +22,7 @@ let decode (fpath, (head, body_md)) =
   in
   Result.map (of_metadata ~body_md ~body_html) metadata
 
-let all () = Utils.map_files decode "industrial_users/*.md"
+let all () = Utils.map_md_files decode "industrial_users/*.md"
 
 let template () =
   Format.asprintf {|

tool/ood-gen/lib/is_ocaml_yet.ml

@@ -43,7 +43,7 @@ let decode (fpath, (head, body_md)) =
   in
   Result.map (metadata_to_t ~body_html ~modify_categories) metadata
 
-let all () = Utils.map_files decode "is_ocaml_yet/*.md"
+let all () = Utils.map_md_files decode "is_ocaml_yet/*.md"
 
 let template () =
   Format.asprintf {|

tool/ood-gen/lib/news.ml

@@ -35,7 +35,7 @@ let decode (fname, (head, body)) =
   Result.map (of_metadata ~slug ~body_html) metadata
 
 let all () =
-  Utils.map_files decode "news/*/*.md"
+  Utils.map_md_files decode "news/*/*.md"
   |> List.sort (fun a b -> String.compare b.date a.date)
 
 let template () =

tool/ood-gen/lib/page.ml

@@ -31,7 +31,7 @@ let decode (file, (head, body_md)) =
   in
   Result.map (of_metadata ~slug ~body_md ~body_html) metadata
 
-let all () = Utils.map_files decode "pages/*.md"
+let all () = Utils.map_md_files decode "pages/*.md"
 
 let template () =
   Format.asprintf