Format.

examples/meta.ml

@@ -14,7 +14,8 @@ let () =
     match !format with
       | "id3" | "mp3" -> Metadata.ID3.parse_file
       | "id3v1" -> Metadata.ID3v1.parse_file
-      | "id3v2" -> fun ?custom_parser f -> Metadata.ID3v2.parse_file ?custom_parser f
+      | "id3v2" ->
+          fun ?custom_parser f -> Metadata.ID3v2.parse_file ?custom_parser f
       | "ogg" -> Metadata.OGG.parse_file
       | "mp4" -> Metadata.MP4.parse_file
       | "" -> Metadata.Any.parse_file

src/metadata.mli

@@ -12,7 +12,8 @@ module Make : functor (_ : CharEncoding.T) -> sig
   type metadata = (string * string) list
 
   (** Bigarray representation of (large) tags. *)
-  type bigarray = (char, Bigarray.int8_unsigned_elt, Bigarray.c_layout) Bigarray.Array1.t
+  type bigarray =
+    (char, Bigarray.int8_unsigned_elt, Bigarray.c_layout) Bigarray.Array1.t
 
   (** When used, a custom parser can override the default parsing mechanism.
       It is passed the metadata label (without normalization), the expected
@@ -51,10 +52,12 @@ module Make : functor (_ : CharEncoding.T) -> sig
     val reset : t -> unit
 
     (** Specialize a parser to operate on files. *)
-    val with_file : ?custom_parser:custom_parser -> (t -> metadata) -> string -> metadata
+    val with_file :
+      ?custom_parser:custom_parser -> (t -> metadata) -> string -> metadata
 
     (** Specialize a parser to operate on strings. *)
-    val with_string : ?custom_parser:custom_parser -> (t -> metadata) -> string -> metadata
+    val with_string :
+      ?custom_parser:custom_parser -> (t -> metadata) -> string -> metadata
   end
 
   (** ID3v1 metadata.*)
@@ -92,7 +95,8 @@ module Make : functor (_ : CharEncoding.T) -> sig
   module ID3 : sig
     val parse : Reader.t -> (string * string) list
 
-    val parse_file : ?custom_parser:custom_parser -> string -> (string * string) list
+    val parse_file :
+      ?custom_parser:custom_parser -> string -> (string * string) list
   end
 
   (** Return the first application which does not raise invalid. *)
@@ -102,21 +106,24 @@ module Make : functor (_ : CharEncoding.T) -> sig
   module Audio : sig
     val parse : Reader.t -> MetadataBase.metadata
 
-    val parse_file : ?custom_parser:custom_parser -> string -> MetadataBase.metadata
+    val parse_file :
+      ?custom_parser:custom_parser -> string -> MetadataBase.metadata
   end
 
   (** Image file formats. *)
   module Image : sig
     val parse : Reader.t -> MetadataBase.metadata
 
-    val parse_file : ?custom_parser:custom_parser -> string -> MetadataBase.metadata
+    val parse_file :
+      ?custom_parser:custom_parser -> string -> MetadataBase.metadata
   end
 
   (** Video file formats. *)
   module Video : sig
     val parse : Reader.t -> MetadataBase.metadata
 
-    val parse_file : ?custom_parser:custom_parser -> string -> MetadataBase.metadata
+    val parse_file :
+      ?custom_parser:custom_parser -> string -> MetadataBase.metadata
   end
 
   (** All support file formats. *)
@@ -125,10 +132,12 @@ module Make : functor (_ : CharEncoding.T) -> sig
     val parse : Reader.t -> MetadataBase.metadata
 
     (** Parse the metadata from a file. *)
-    val parse_file : ?custom_parser:custom_parser -> string -> MetadataBase.metadata
+    val parse_file :
+      ?custom_parser:custom_parser -> string -> MetadataBase.metadata
 
     (** Parse the metadata from a string containing the contents of a file. *)
-    val parse_string : ?custom_parser:custom_parser -> string -> MetadataBase.metadata
+    val parse_string :
+      ?custom_parser:custom_parser -> string -> MetadataBase.metadata
   end
 
   include module type of Any

src/metadataAVI.mli

@@ -1,3 +1,4 @@
 val parse : MetadataBase.Reader.t -> MetadataBase.metadata
 
-val parse_file : ?custom_parser:MetadataBase.custom_parser -> string -> MetadataBase.metadata
+val parse_file :
+  ?custom_parser:MetadataBase.custom_parser -> string -> MetadataBase.metadata

src/metadataBase.ml

@@ -5,7 +5,6 @@ type bigarray =
   (char, Bigarray.int8_unsigned_elt, Bigarray.c_layout) Bigarray.Array1.t
 
 type metadata = (string * string) list
-
 type endianness = Big_endian | Little_endian
 
 type parser_handler = {
@@ -75,7 +74,6 @@ module Reader = struct
     if is_custom then None else Some (read f length)
 
   let drop f n = f.seek n
-
   let byte f = int_of_char (read f 1).[0]
   let uint8 f = byte f
 

src/metadataFLAC.mli

@@ -1,6 +1,7 @@
 val parse : MetadataBase.Reader.t -> MetadataBase.metadata
 
-val parse_file : ?custom_parser:MetadataBase.custom_parser -> string -> MetadataBase.metadata
+val parse_file :
+  ?custom_parser:MetadataBase.custom_parser -> string -> MetadataBase.metadata
 
 type picture = {
   picture_type : int;

src/metadataID3v1.mli

@@ -1,3 +1,7 @@
-val parse : ?recode:MetadataCharEncoding.recode -> MetadataBase.Reader.t -> MetadataBase.metadata
+val parse :
+  ?recode:MetadataCharEncoding.recode ->
+  MetadataBase.Reader.t ->
+  MetadataBase.metadata
 
-val parse_file : ?custom_parser:MetadataBase.custom_parser -> string -> MetadataBase.metadata
+val parse_file :
+  ?custom_parser:MetadataBase.custom_parser -> string -> MetadataBase.metadata

src/metadataID3v2.mli

@@ -1,5 +1,8 @@
 (** Parse the ID3v2 header. *)
-val parse : ?recode:MetadataCharEncoding.recode -> MetadataBase.Reader.t -> MetadataBase.metadata
+val parse :
+  ?recode:MetadataCharEncoding.recode ->
+  MetadataBase.Reader.t ->
+  MetadataBase.metadata
 
 (** Parse the ID3v2 header from a file. *)
 val parse_file :
@@ -120,7 +123,8 @@ type text_encoding = [ `ISO_8859_1 | `UTF_16 | `UTF_16BE | `UTF_16LE | `UTF_8 ]
 (** Data contained in a frame. *)
 type frame_data = [ `Text of text_encoding * string | `Binary of string ]
 
-type frame_flag = [ `File_alter_preservation of bool | `Tag_alter_perservation of bool ]
+type frame_flag =
+  [ `File_alter_preservation of bool | `Tag_alter_perservation of bool ]
 
 (** Default flags for a frame. *)
 val default_flags : frame_id -> frame_flag list

src/metadataJPEG.mli

@@ -1,3 +1,4 @@
 val parse : MetadataBase.Reader.t -> MetadataBase.metadata
 
-val parse_file : ?custom_parser:MetadataBase.custom_parser -> string -> MetadataBase.metadata
+val parse_file :
+  ?custom_parser:MetadataBase.custom_parser -> string -> MetadataBase.metadata

src/metadataMP4.mli

@@ -1,3 +1,4 @@
 val parse : MetadataBase.Reader.t -> MetadataBase.metadata
 
-val parse_file : ?custom_parser:MetadataBase.custom_parser -> string -> MetadataBase.metadata
+val parse_file :
+  ?custom_parser:MetadataBase.custom_parser -> string -> MetadataBase.metadata

src/metadataOGG.mli

@@ -1,3 +1,4 @@
 val parse : MetadataBase.Reader.t -> MetadataBase.metadata
 
-val parse_file : ?custom_parser:MetadataBase.custom_parser -> string -> MetadataBase.metadata
+val parse_file :
+  ?custom_parser:MetadataBase.custom_parser -> string -> MetadataBase.metadata

src/metadataPNG.mli

@@ -1,3 +1,4 @@
 val parse : MetadataBase.Reader.t -> MetadataBase.metadata
 
-val parse_file : ?custom_parser:MetadataBase.custom_parser -> string -> MetadataBase.metadata
+val parse_file :
+  ?custom_parser:MetadataBase.custom_parser -> string -> MetadataBase.metadata