From 0ae29078d8d26dce9785f0c38f7408bfab2083e9 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sat, 23 May 2020 05:15:24 +0200
Subject: [PATCH] word: mkimg-google from duckduckgo

Alternate search engine to maybe find better (maybe more free?) images.
---
 tools/mkimg-google | 23 ++++++++++++++++++++---
 1 file changed, 20 insertions(+), 3 deletions(-)

diff --git a/tools/mkimg-google b/tools/mkimg-google
index 1e1f7a8..7615c27 100755
--- a/tools/mkimg-google
+++ b/tools/mkimg-google
@@ -1,13 +1,30 @@
 #!/bin/sh
+set -u
+
 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 "$@"
+if true
+then
+	QUERYURL='https://duckduckgo.com/?iar=images&iax=images&ia=images&iaf=type:photo&q='
+	ARGMATCH="vqd='([^']+)"
+	JSONQUERY='https://duckduckgo.com/i.js?l=nl-nl&o=json&num=2'
+else
+	CURL="$CURL -A /"
+	QUERYURL="https://www.google.com/search?tbm=isch&pws=0&hl=nl&num=1&q="
+	ARGMATCH='<img [^>]+src="(http[^"]+)"'
+fi
+
+while read q
 do
+	q="${q%%/*}"
 	[ -e "$q.jpg" ] && continue
 	echo "$q"
 	QUERYARG="%22$q%22"
 	QUERYRES=$($CURL "$QUERYURL$QUERYARG" | perl -nE "say for /$ARGMATCH/" | head -1)
+	if [ -n "$JSONQUERY" ]
+	then
+		$CURL "$JSONQUERY&vqd=$QUERYRES&q=$QUERYARG" -o "$q.json" || continue
+		QUERYRES="$(jq -r '.results[0].thumbnail' "$q.json")"
+	fi
 	$CURL "$QUERYRES" -o "$q.jpg" || continue
 done
-- 
2.30.0