run dune build @fmt

Signed-off-by: Marcello Seri <marcello.seri@gmail.com>

Author: mseri

bibfmt/bin/bibfmt.ml

@@ -55,7 +55,7 @@ let bibfmt out strict single_line quiet verbose force files =
                     "Warning: No valid BibTeX entries found in the file.\n%!";
                   combined_content)
                 else
-                   let options =
+                  let options =
                     { Bibtex.default_options with strict; single_line }
                   in
                   Bibtex.pretty_print_bibtex ~options parse_result.items)
@@ -114,7 +114,8 @@ let () =
   in
   let single_line =
     let doc =
-      "Force field values onto a single line by replacing newlines with a space."
+      "Force field values onto a single line by replacing newlines with a \
+       space."
     in
     Arg.(value & flag & info [ "l"; "single-line" ] ~doc)
   in
@@ -141,7 +142,10 @@ let () =
     Arg.(value & pos_all string [] & info [] ~docv:"FILES" ~doc)
   in
   let bibfmt_t =
-    Term.(ret (const bibfmt $ out $ strict $ single_line $ quiet $ verbose $ force $ files))
+    Term.(
+      ret
+        (const bibfmt $ out $ strict $ single_line $ quiet $ verbose $ force
+       $ files))
   in
   let info =
     let doc = "A little CLI tool to pretty print bibtex files." in

bibfmt/lib/bibtex.ml

@@ -677,9 +677,8 @@ let format_entry options entry =
     |> List.filter (function
          | Field f -> (
              match f.value with
-             | QuotedStringValue s
-             | BracedStringValue s
-             | UnquotedStringValue s ->
+             | QuotedStringValue s | BracedStringValue s | UnquotedStringValue s
+               ->
                  String.length (String.trim s) > 0
              | NumberValue _ -> true)
          | EntryComment _ -> true)
@@ -706,7 +705,9 @@ let format_entry options entry =
   let contents_str =
     if filtered_contents = [] then ""
     else
-      let formatted_contents = List.map format_entry_content' filtered_contents in
+      let formatted_contents =
+        List.map format_entry_content' filtered_contents
+      in
       let rec add_commas_except_last = function
         | [] -> []
         | [ last ] -> [ last ] (* No comma for the last item *)

bibfmt/lib/bibtex.mli

@@ -150,12 +150,14 @@ val format_field_value_with_url_unescaping :
     @return String representation with URLs unescaped if applicable *)
 
 val format_field : bool -> bool -> field -> string
-(** [format_field capitalized single_line field] formats a complete field (name = value).
+(** [format_field capitalized single_line field] formats a complete field (name
+    = value).
     @param field The field to format
     @return String representation of the field *)
 
 val format_entry_content : bool -> bool -> entry_content -> string
-(** [format_entry_content capitalized single_line content] formats entry content (field or comment).
+(** [format_entry_content capitalized single_line content] formats entry content
+    (field or comment).
     @param content The entry content to format
     @return String representation of the content *)
 
@@ -201,13 +203,14 @@ val find_duplicate_groups :
     Each group contains at least 2 entries that match on the specified keys. *)
 
 val string_of_field_value : field_value -> string
-(** [string_of_field_value fv] converts a field value to its string representation.
+(** [string_of_field_value fv] converts a field value to its string
+    representation.
     @param fv The field value to convert
     @return String representation of the field value *)
 
 val make_field : string -> string -> entry_content
-(** [make_field name value] creates a BibTeX field with the given name and value.
-    The value is wrapped in braces.
+(** [make_field name value] creates a BibTeX field with the given name and
+    value. The value is wrapped in braces.
     @param name Field name
     @param value Field value as a string
     @return An entry_content Field with a BracedStringValue *)

doi2bib/bin/doi2bib.ml

@@ -6,7 +6,9 @@ let process_id outfile id =
   let open Lwt.Syntax in
   let* bibtex = Http.get_bib_entry @@ Parser.parse_id id in
 
-  let parsed_items = Bibtex.parse_bibtex bibtex |> List.map Helpers.clean_item in
+  let parsed_items =
+    Bibtex.parse_bibtex bibtex |> List.map Helpers.clean_item
+  in
   let formatted =
     if List.length parsed_items = 0 then (
       Printf.eprintf

doi2bib/lib/helpers.ml

@@ -20,7 +20,13 @@ let escape_ampersand s =
   (* We want to match '&' that is not preceded by '\', but the re library
      does not support lookbehind, so we can match either the start of the string or a non-backslash character before '&', keep it and replace
      the remaining '&' by '\&' *)
-  let re = Re.compile (Re.seq [ Re.group (Re.alt [ Re.bos; Re.compl [ Re.char '\\' ] ]); Re.char '&' ]) in
+  let re =
+    Re.compile
+      (Re.seq
+         [
+           Re.group (Re.alt [ Re.bos; Re.compl [ Re.char '\\' ] ]); Re.char '&';
+         ])
+  in
   Re.replace re
     ~f:(fun subs ->
       let prefix = Re.Group.get subs 1 in

doi2bib/lib/parser.ml

@@ -12,7 +12,9 @@ let parse_id id =
     let n = String.length affix in
     String.length s >= n && String.sub (String.lowercase_ascii s) 0 n = affix
   in
-  let sub start s = String.trim (String.sub s start (String.length s - start)) in
+  let sub start s =
+    String.trim (String.sub s start (String.length s - start))
+  in
   match id with
   | doi when is_prefix "doi:" doi -> DOI (sub 4 doi)
   | arxiv when is_prefix "arxiv:" arxiv -> ArXiv (sub 6 arxiv)
@@ -41,14 +43,17 @@ let parse_atom id atom =
       get_attr "term" a
     in
     let bibid =
-      (match String.split_on_char ' ' authors |> List.filter (fun s -> s <> "") with
+      (match
+         String.split_on_char ' ' authors |> List.filter (fun s -> s <> "")
+       with
       | _ :: s :: _ -> s
       | s :: _ -> s
       | [] -> "")
       ^ year
-      ^ (match String.index_opt title ' ' with
-         | Some i -> String.sub title 0 i
-         | None -> "")
+      ^
+      match String.index_opt title ' ' with
+      | Some i -> String.sub title 0 i
+      | None -> ""
     in
     Printf.sprintf
       {|@misc{%s,