diff --git a/tools/theme/list-themes.sh b/tools/theme/list-themes.sh
new file mode 100755
index 00000000..4f4b46b2
--- /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