From 48a2d3980b7c5e741b8de658ed40ce01f228dd41 Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Fri, 22 Nov 2019 14:40:36 -0600
Subject: [PATCH] feat(bin): count number of hidden files

---
 src/bin/http_of_dir.ml | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/src/bin/http_of_dir.ml b/src/bin/http_of_dir.ml
index 5a37a34f..1e559d86 100644
--- a/src/bin/http_of_dir.ml
+++ b/src/bin/http_of_dir.ml
@@ -59,11 +59,16 @@ let html_list_dir ~top ~parent d : string =
       Printf.bprintf body "<a href=\"/%s\"> (parent directory) </a>\n" p;
   end;
   Printf.bprintf body "<ul>\n";
+  let hidden_stop = ref 0 in
   Array.iteri
     (fun i f ->
        if is_hidden f && (i=0 || not (is_hidden entries.(i-1))) then (
-         Printf.bprintf body "<details> <summary>(hidden files)</summary>\n";
-       ) else if not (is_hidden f) && i>0 && is_hidden entries.(i-1) then (
+         hidden_stop := i;
+         while !hidden_stop < Array.length entries && is_hidden entries.(!hidden_stop) do
+           incr hidden_stop;
+         done;
+         Printf.bprintf body "<details> <summary>(%d hidden files)</summary>\n" (!hidden_stop-i);
+       ) else if i = !hidden_stop then (
          Printf.bprintf body "</details/>\n";
        );
        if not @@ contains_dot_dot (d // f) then (