feat: add nix flake

RisGar · RisGar · commit d81b3ad0b3d9 · 2025-09-19T00:57:42.000+02:00
diff --git a/.ignore b/.ignore
diff --git a/README.md b/README.md
@@ -10,14 +10,14 @@
 
 `crpreview` can preview the following formats:
 
-| File type    | Tool         |
-| ------------ | ------------ |
-| archives[^1] | `libarchive` |
-| images       | `kitty`      |
-| pdf          | `quick look` |
-| videos       | `quick look` |
-| text         | `bat`        |
-| directories  | `eza`        |
+| File type    | Tool                                                                                                  |
+| ------------ | ----------------------------------------------------------------------------------------------------- |
+| archives[^1] | libarchive                                                                                            |
+| images       | [Kitty unicode placeholders](https://sw.kovidgoyal.net/kitty/graphics-protocol/#unicode-placeholders) |
+| pdf          | libmupdf                                                                                              |
+| videos       | ffmpeg thumbnails                                                                                     |
+| text         | bat                                                                                                   |
+| directories  | eza                                                                                                   |
 
 [^1]: Supported formats: `tar`, `7-zip`, `zip`, `bzip`, `bzip2`, `gunzip`, `xz`, `zstd`, `lzip`
 
diff --git a/bindings/archive/dune b/bindings/archive/dune
@@ -9,7 +9,7 @@
  (flags
   (:standard -w -9-27))
  (ctypes
-  (external_library_name libarchive)
+  (external_library_name archive)
   (build_flags_resolver pkg_config)
   (headers
    (include "archive.h" "archive_entry.h"))
diff --git a/dune-project b/dune-project
@@ -21,7 +21,7 @@
  (name mlpreview)
  (synopsis "Preview files in the terminal")
  (description "A file previewer for the lf terminal file manager")
- (depends ocaml)
+ (depends ocaml cmdliner spectrum ctypes)
  (tags
   ("terminal" "cli")))
 
diff --git a/flake.lock b/flake.lock
diff --git a/flake.nix b/flake.nix
@@ -0,0 +1,91 @@
+{
+  description = "OCaml Template";
+
+  inputs = {
+    nixpkgs.url = "github:NixOS/nixpkgs/nixpkgs-unstable";
+    systems.url = "github:nix-systems/default";
+    flake-utils = {
+      url = "github:numtide/flake-utils";
+      inputs.systems.follows = "systems";
+    };
+  };
+
+  outputs =
+    {
+      self,
+      nixpkgs,
+      flake-utils,
+      ...
+    }:
+    flake-utils.lib.eachDefaultSystem (
+      system:
+      let
+        pkgs = nixpkgs.legacyPackages.${system};
+
+        ocamlPackages = pkgs.ocamlPackages;
+
+        spectrum = ocamlPackages.buildDunePackage rec {
+          pname = "spectrum";
+          version = "";
+          src = builtins.fetchurl {
+            url = "https://github.com/RisGar/ocaml-spectrum/archive/6f69da7057a8a0ac1d31887363cfbd05abd4de42.tar.gz";
+            sha256 = "sha256:084nvj20b2v1b6zjw629x5986k0jhg9gcnym312mdfj984q3bqd4";
+          };
+          propagatedBuildInputs = with pkgs; [
+            # Add the packages needed
+            ocamlPackages.color
+            ocamlPackages.ppx_deriving
+            ocamlPackages.opam-state
+            ocamlPackages.pcre2
+          ];
+        };
+
+        buildInputs = [
+          # Add library dependencies here
+          ocamlPackages.cmdliner
+          ocamlPackages.ctypes
+          spectrum
+
+          pkgs.pkgconf
+          pkgs.pkg-config
+          pkgs.libarchive
+          pkgs.mupdf
+        ];
+
+        nativeBuildInputs = with pkgs; [
+          ocamlPackages.ocaml
+          # the dune build system
+          ocamlPackages.dune_3
+
+          # If you're on NixOS, you'll probably want this (See: https://nixos.wiki/wiki/OCaml#Findlib.2C_ocamlfind)
+          # ocamlPackages.findlib
+
+          # Additionally, add any development packages you want
+          # A fancy REPL...
+          ocamlPackages.utop
+          # Editor integration...
+          ocamlPackages.merlin
+          ocamlPackages.lsp
+          # Formatting...
+          ocamlPackages.ocamlformat
+          ocamlPackages.ocp-indent
+        ];
+      in
+      {
+        packages = {
+          default = ocamlPackages.buildDunePackage {
+            pname = "mlpreview";
+            version = "0.0.3";
+            duneVersion = "3";
+            src = ./.;
+
+            strictDeps = true;
+
+            inherit nativeBuildInputs buildInputs;
+          };
+        };
+
+        devShells.default = pkgs.mkShell { inherit nativeBuildInputs buildInputs; };
+      }
+    );
+}
diff --git a/lib/archive.ml b/lib/archive.ml
@@ -13,7 +13,7 @@ let humanise_size size =
   humanise_size' (float_of_int size) 0
 
 let humanise_time timestamp =
-  let tm = Unix.gmtime timestamp in
+  let tm = Unix.localtime timestamp in
   Printf.sprintf "%02d/%02d/%04d %02d:%02d" tm.tm_mday (tm.tm_mon + 1)
     (tm.tm_year + 1900) tm.tm_hour tm.tm_min
 
@@ -56,7 +56,7 @@ let generate_text file_name =
     strmodes := archive_entry_strmode entry :: !strmodes;
     names := archive_entry_pathname_utf8 entry :: !names;
     sizes := archive_entry_size entry :: !sizes;
-    mtimes := PosixTypes.Time.to_int64 (archive_entry_mtime entry) :: !mtimes
+    mtimes := archive_entry_mtime entry :: !mtimes
   done;
 
   (* convert size to humanly readable *)
@@ -67,22 +67,37 @@ let generate_text file_name =
         else humanise_size @@ Int64.to_int size)
       !sizes
   in
-  let human_dates =
-    List.map (fun t -> humanise_time @@ Int64.to_float t) !mtimes
-  in
+
   let max_size =
     List.fold_left (fun acc str -> max acc (String.length str)) 0 human_sizes
   in
 
+  let colorised_sizes =
+    List.map
+      (function
+        | "-" -> Spectrum.Simple.sprintf "@{<grey-50>%s@}" "-"
+        | str -> Spectrum.Simple.sprintf "@{<green>%s@}" str)
+      human_sizes
+  in
+
+  let colorised_dates =
+    List.map
+      (fun t ->
+        Spectrum.Simple.sprintf "@{<yellow>%s@}"
+        @@ humanise_time @@ Int64.to_float @@ PosixTypes.Time.to_int64 t)
+      !mtimes
+  in
+
   (* TODO: terminal colours *)
   let res =
     List.init (List.length !strmodes) (fun i ->
-        let size = List.nth human_sizes i in
+        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 human_dates i in
+        let mtime = List.nth colorised_dates i in
         let name = List.nth !names i in
         strmode ^ " "
-        ^ repeat " " (max_size - String.length size)
+        ^ repeat " " (max_size - String.length raw_size)
         ^ size ^ " " ^ mtime ^ " " ^ name)
     |> String.concat "\n"
   in
@@ -95,6 +110,6 @@ let generate_cache cache_file text =
 
 let archive file_name =
   let cache_file = Helpers.get_cache_file file_name `TEXT in
-  if not @@ Sys.file_exists cache_file then
-    generate_cache cache_file (generate_text file_name);
+  (* if not @@ Sys.file_exists cache_file then *)
+  generate_cache cache_file (generate_text file_name);
   In_channel.with_open_text cache_file (print_endline << In_channel.input_all)
diff --git a/lib/dune b/lib/dune
@@ -1,4 +1,4 @@
 (library
  (name modules)
- (libraries unix kittyimg stb_image archive_bindings mupdf_bindings sha)
+ (libraries unix archive_bindings mupdf_bindings spectrum)
  (flags :standard -w -27-32-50))
diff --git a/lib/image.ml b/lib/image.ml
@@ -1,10 +1,2 @@
 (* TODO: Custom Kitty Graphics Protocol *)
-let image ~width ~height file =
-  let img = Result.get_ok (Stb_image.load ~channels:4 file) in
-  let img_s = Kittyimg.string_of_bytes_ba img.Stb_image.data in
-
-  print_newline ();
-  Kittyimg.send_image ~w:width ~h:height ~format:`RGBA
-    ~mode:(`Display (Kittyimg.display_opts ()))
-    img_s;
-  print_newline ()
+let image ~width ~height file = print_newline ()
diff --git a/mlpreview.opam b/mlpreview.opam
@@ -11,6 +11,9 @@ bug-reports: "https://github.com/RisGar/mlpreview/issues"
 depends: [
   "dune" {>= "3.19"}
   "ocaml"
+  "cmdliner"
+  "spectrum"
+  "ctypes"
   "odoc" {with-doc}
 ]
 build: [
diff --git a/test/dune b/test/dune
diff --git a/test/test_mlpreview.ml b/test/test_mlpreview.ml
