Add list-themes.sh

diff --git a/tools/theme/list-themes.sh b/tools/theme/list-themes.sh
new file mode 100755 (executable)
index 0000000..4f4b46b
--- /dev/null
+++ b/tools/theme/list-themes.sh
@@ -0,0 +1,19 @@
+#!/bin/sh
+#
+# List available openbox themes
+#
+
+printf '%b\n' "#icons\ttheme name"
+printf '%b\n' "-------------------"
+
+for d in $HOME/.themes/* /usr/share/themes/*; do
+       if [ -d "$d/openbox-3" ]; then
+               icon_count=0
+               for f in $d/openbox-3/*; do
+                       case $f in
+                               *xbm) : $(( icon_count++ )) ;;
+                       esac
+               done
+               printf '%b\n' "$icon_count\t$(basename $d)"
+       fi
+done