implement reviewing annexes inc. unused

2 files changed, 24 insertions, 0 deletions

diff --git a/archive/bin/find-unused b/archive/bin/find-unused
new file mode 100755
index 00000000..67ccb5d1
--- /dev/null
+++ b/archive/bin/find-unused
@@ -0,0 +1,12 @@
+#!/bin/bash
+
+while read l; do
+    n=$(echo $l | awk '{print $1}')
+    f=$(echo $l | awk '{print $2}')
+    echo
+    echo "===== unused file number $n: ====="
+    echo "  $f"
+    echo "  $(git annex contentlocation $f)"
+    echo
+    git log --stat -S"$f" | sed 's/^/  /'
+done < <(git annex unused | egrep "\w+[0-9]+\w+")
diff --git a/archive/bin/unused-print b/archive/bin/unused-print
new file mode 100755
index 00000000..b49467ef
--- /dev/null
+++ b/archive/bin/unused-print
@@ -0,0 +1,12 @@
+#!/bin/sh
+
+git annex unused --used-refspec=+refs/heads/master | grep -E "^ +[0-9]+ + [-A-Za-z0-9.]+$" | while read line; do
+    num=$(echo $line | cut -d\  -f1)
+    file=$(echo $line | cut -d\  -f2)
+
+    echo "====================================================================================="
+    echo "           FILE $num"
+    echo "$file"
+    echo "====================================================================================="
+    git -c diff.renameLimit=3000 log --stat --no-textconv -S"$file"
+done