From 26a6b61375a9c64bb22838bb8f270176909d1044 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ulysse=20G=C3=A9rard?= <thevoodoos@gmail.com>
Date: Sat, 23 Nov 2024 11:55:21 +0100
Subject: [PATCH] Show item count

---
 bin/ui_filters.ml | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/bin/ui_filters.ml b/bin/ui_filters.ml
index aaa5220..1880eb3 100644
--- a/bin/ui_filters.ml
+++ b/bin/ui_filters.ml
@@ -161,6 +161,9 @@ let genre_formula =
      { name = "genre-formula"; default = None; label = [] })
     .field
 
+let item_count =
+  Lwd.map (Lwd.get view) ~f:(fun { View.item_count; _ } -> item_count)
+
 let search_and_sort =
   let f_search =
     let open Field_textinput in
@@ -199,7 +202,11 @@ let search_and_sort =
       { name = "view-order"; default = "desc"; label = [] }
       options
   in
-  [ `R f_sort.field; `R f_order.field; `R f_search.field ]
+  let item_count =
+    Lwd.map item_count ~f:(fun i -> El.txt' @@ Printf.sprintf "%i results" i)
+    |> fun txt -> Elwd.div [ `R txt ]
+  in
+  [ `R f_sort.field; `R f_order.field; `R f_search.field; `R item_count ]
 
 let library_chooser =
   let at = Attrs.O.(v (`P (C "vertical-picker"))) in