List dirty repositories

List repositories that have modified or untracked files; show status.

diff --git a/ls-dirty b/ls-dirty
new file mode 100755 (executable)
index 0000000..e5d64da
--- /dev/null
+++ b/ls-dirty
@@ -0,0 +1,5 @@
+#! /bin/sh
+
+exec "`dirname \"$0\"`"/do-all \
+   'test "$g" = "$d/.git" || continue; cd "$d" &&' \
+   'test -n "`git status -s`" && echo "$d"'

diff --git a/status-dirty b/status-dirty
new file mode 100755 (executable)
index 0000000..c8a199b
--- /dev/null
+++ b/status-dirty
@@ -0,0 +1,8 @@
+#! /bin/sh
+
+prog_dir=`dirname "$0"`
+for d in `"$prog_dir"/ls-dirty`
+do
+   echo "----- $d -----" && cd "$d" &&
+   git status || exit 1
+done