From b0775d032ae5a40efaacfaaeac201ea06ec455a9 Mon Sep 17 00:00:00 2001
From: LordMZTE <lord@mzte.de>
Date: Mon, 11 Sep 2023 17:43:24 +0200
Subject: [PATCH] add videos-duration script

---
 scripts/videos-duration.sh         | 9 +++++++++
 setup/commands/install-scripts.rkt | 1 +
 2 files changed, 10 insertions(+)
 create mode 100755 scripts/videos-duration.sh

diff --git a/scripts/videos-duration.sh b/scripts/videos-duration.sh
new file mode 100755
index 0000000..434d9bc
--- /dev/null
+++ b/scripts/videos-duration.sh
@@ -0,0 +1,9 @@
+#!/bin/bash
+{
+    echo -n '(0'
+    find "${1-.}" -type f | while read -r f; do
+        echo -n +
+        ffprobe -v quiet -of csv=p=0 -show_entries format=duration "$f" | tr -d '\n'
+    done
+    echo -n ')s'
+} | qalc
diff --git a/setup/commands/install-scripts.rkt b/setup/commands/install-scripts.rkt
index 29713a9..05e13ec 100644
--- a/setup/commands/install-scripts.rkt
+++ b/setup/commands/install-scripts.rkt
@@ -18,6 +18,7 @@
   (mklink "scripts/startriver.sh" (bin-path "startriver"))
   (mklink "scripts/update-nvim-plugins.rkt" (bin-path "update-nvim-plugins"))
   (mklink "scripts/use-country-mirrors.sh" (bin-path "use-country-mirrors"))
+  (mklink "scripts/videos-duration.sh" (bin-path "videos-duration"))
 
   ;; Compile scripts
   (install-zig "scripts/alecor")