Remove unused Video data (#2506)

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

src/ocamlorg_data/data.ml

@@ -234,23 +234,6 @@ module Tutorial = struct
     |> List.map fst
 end
 
-module Video = struct
-  include Video
-
-  let kind_to_string = function
-    | `Conference -> "conference"
-    | `Mooc -> "mooc"
-    | `Lecture -> "lecture"
-
-  let kind_of_string = function
-    | "conference" -> Ok `Conference
-    | "mooc" -> Ok `Mooc
-    | "lecture" -> Ok `Lecture
-    | s -> Error (`Msg ("Unknown proficiency type: " ^ s))
-
-  let get_by_slug slug = List.find_opt (fun x -> String.equal slug x.slug) all
-end
-
 module Watch = Watch
 
 module Workshop = struct

src/ocamlorg_data/data.mli

@@ -371,29 +371,6 @@ module Tutorial : sig
   val search_documents : string -> search_document list
 end
 
-module Video : sig
-  type kind = [ `Conference | `Mooc | `Lecture ]
-
-  val kind_of_string : string -> (kind, [> `Msg of string ]) result
-  val kind_to_string : kind -> string
-
-  type t = {
-    title : string;
-    slug : string;
-    description : string;
-    people : string list;
-    kind : kind;
-    tags : string list;
-    paper : string option;
-    link : string;
-    embed : string option;
-    year : int;
-  }
-
-  val all : t list
-  val get_by_slug : string -> t option
-end
-
 module Watch : sig
   type t = {
     name : string;

src/ocamlorg_data/dune

@@ -292,18 +292,6 @@
     %{target}
     (run %{ood_gen} tool_page)))))
 
-(rule
- (target video.ml)
- (deps
-  %{workspace_root}/data/videos.yml
-  (:ood_gen %{workspace_root}/tool/ood-gen/bin/gen.exe))
- (action
-  (chdir
-   %{workspace_root}
-   (with-stdout-to
-    %{target}
-    (run %{ood_gen} video)))))
-
 (rule
  (target watch.ml)
  (deps