style: migrate pipes to A combinators

Author: RisGar

lib/archive.ml

@@ -63,7 +63,7 @@ let generate_text file_name =
   let human_sizes =
     List.mapi
       (fun i size ->
-        if List.nth !strmodes i |> String.starts_with ~prefix:"d" then "-"
+        if String.starts_with ~prefix:"d" @@ List.nth !strmodes i then "-"
         else humanise_size @@ Int64.to_int size)
       !sizes
   in
@@ -90,16 +90,16 @@ let generate_text file_name =
 
   (* TODO: terminal colours *)
   let res =
-    List.init (List.length !strmodes) (fun i ->
-        let raw_size = List.nth human_sizes i in
-        let size = List.nth colorised_sizes i in
-        let strmode = List.nth !strmodes i in
-        let mtime = List.nth colorised_dates i in
-        let name = List.nth !names i in
-        strmode ^ " "
-        ^ repeat " " (max_size - String.length raw_size)
-        ^ size ^ " " ^ mtime ^ " " ^ name)
-    |> String.concat "\n"
+    String.concat "\n"
+    @@ List.init (List.length !strmodes) (fun i ->
+           let raw_size = List.nth human_sizes i in
+           let size = List.nth colorised_sizes i in
+           let strmode = List.nth !strmodes i in
+           let mtime = List.nth colorised_dates i in
+           let name = List.nth !names i in
+           strmode ^ " "
+           ^ repeat " " (max_size - String.length raw_size)
+           ^ size ^ " " ^ mtime ^ " " ^ name)
   in
 
   archive_read_free archive >>= fun () -> res

lib/directory.ml

@@ -1,7 +1,7 @@
 let directory () =
   let stream =
     Unix.open_process_in
-      "eza -a1F --color=always --group-directories-first --icons=always --git"
+    @@ "eza -a1F --color=always --group-directories-first --icons=always --git"
   in
-  stream |> In_channel.input_all |> print_endline;
+  print_endline @@ In_channel.input_all stream;
   In_channel.close stream

lib/ffmpeg.ml

@@ -1,8 +1,7 @@
 let generate_thumb file_name cache_file =
-  (* create quicklook thumbnail *)
-  Printf.sprintf "ffmpeg -ss 00:00:01 -i \"%s\" -frames:v 1 \"%s\"" file_name
-    cache_file
-  |> Unix.open_process_in |> ignore
+  ignore @@ Unix.open_process_in
+  @@ Printf.sprintf "ffmpeg -ss 00:00:01 -i \"%s\" -frames:v 1 \"%s\"" file_name
+       cache_file
 
 let thumbnail ~width ~height file =
   let cache_file = Helpers.get_cache_file file `THUMB in

lib/ffmpeg.mli

@@ -1,2 +1,2 @@
 val thumbnail : width:int -> height:int -> string -> unit
-(** Generate thumbnails with quicklook *)
+(** Generate thumbnails with ffmpeg*)

lib/helpers.ml

@@ -23,6 +23,6 @@ let cache_dir =
   dirpath
 
 let get_cache_file file_name cache_type =
-  let hash = Digest.MD5.file file_name |> Digest.to_hex in
+  let hash = Digest.to_hex @@ Digest.MD5.file file_name in
 
   cache_dir ^ hash ^ match cache_type with `TEXT -> ".txt" | `THUMB -> ".png"