word: mkimg-google tool to download images

Automatic population with top results searching each term:

	perl -E 'sub flat {map { ref ? flat(@$_) : $_ } @_}
		say for flat do "./wordlist.inc.pl"'

Good for testing; definitely requires further moderation to release:
avoiding false friends (e.g. mug commonly isn't a midge), finding better
representations, and at least nicely cropping to aspect ratio.

diff --git a/tools/mkimg-google b/tools/mkimg-google
new file mode 100755 (executable)
index 0000000..1e1f7a8
--- /dev/null
+++ b/tools/mkimg-google
@@ -0,0 +1,13 @@
+#!/bin/sh
+CURL='curl -sSf'
+QUERYURL="https://www.google.com/search?tbm=isch&pws=0&hl=nl&num=1&q="
+ARGMATCH='<img [^>]+src="(http[^"]+)"'
+
+for q in "$@"
+do
+       [ -e "$q.jpg" ] && continue
+       echo "$q"
+       QUERYARG="%22$q%22"
+       QUERYRES=$($CURL "$QUERYURL$QUERYARG" | perl -nE "say for /$ARGMATCH/" | head -1)
+       $CURL "$QUERYRES" -o "$q.jpg" || continue
+done