fix: allow previewing dirs other than cwd

Author: RisGar

bin/main.ml

@@ -4,7 +4,7 @@ let handle_filetype ~filename ~width ~height = function
   (* empty files *)
   | "inode/x-empty" -> print_endline "Empty file"
   (* directories *)
-  | "inode/directory" -> Directory.directory ()
+  | "inode/directory" -> Directory.directory filename
   (* archives *)
   | "application/x-tar" | "application/zip" | "application/x-zip-compressed"
   | "application/x-bzip" | "application/x-bzip2" | "application/gzip"
@@ -22,14 +22,14 @@ let handle_filetype ~filename ~width ~height = function
       Image.image filename ~width ~height
   (* videos *)
   | str when String.starts_with ~prefix:"video" str ->
-      FFmpeg.thumbnail filename ~width ~height
+      Ffmpeg.thumbnail filename ~width ~height
   (* everything else, print mime to find new possible filetypes to handle *)
   | mime ->
       print_endline mime;
       Text.text filename
 
 let mlpreview ~width ~height ~horizontal ~vertical = function
-  | None -> `Ok (Directory.directory ())
+  | None -> `Ok (Directory.directory ".")
   | Some filename ->
       ignore horizontal;
       ignore vertical;

lib/directory.ml

@@ -1,7 +1,10 @@
-let directory () =
+let directory file_name =
   let stream =
     Unix.open_process_in
-    @@ "eza -a1F --color=always --group-directories-first --icons=always --git"
+    @@ Printf.sprintf
+         "eza -a1F --color=always --group-directories-first --icons=always \
+          --git \"%s\""
+         file_name
   in
   print_endline @@ In_channel.input_all stream;
   In_channel.close stream

lib/directory.mli

@@ -1,2 +1,2 @@
-val directory : unit -> unit
+val directory : string -> unit
 (** Render directory using eza *)