#!/bin/bash

# This would be easier if hxremove 7.9 would have been released already.
# What we're looking for is <a> without text or with images only whose alt text
# is empty.
#
# We wouldn't need the while/hxselect mess if we could do hxremove img[alt=""],
# but this segfaults in 7.8.
#
# What I'm doing here is:
# - cleaning up newlines
# - fetching every link
# - appending the alt text of any images in <a> bodies
# - remove the images from <a> bodies
# - if what's left has any text, it should be ok

if curl -L https://www.siac.vet |
		hxclean |
		tr '\n' ' ' |
		hxselect -c -s '\n' 'a[href="https://siac.vet"]' |
		while IFS= read line; do
			echo "$line $(echo "$line" | hxselect -c 'img::attr(alt)')";
		done |
		hxremove 'img' |
		grep "^\s*$" > /dev/null; then
	echo "siac: Incumprimento mantém-se, a actualizar o README (faça um git diff, valide, e commit!)";
	while IFS='' read -r line || [[ -n "$line" ]]; do
		test "$(echo "$line"|grep -v -c "siac")" -eq "1" \
			&& echo "$line" \
			|| (h=$(echo "$line"|cut -d\| -f1-4); t=$(echo "$line"|cut -d\| -f6-); echo "$h| $(date +%Y/%m/%d) |$t");
	done < README.md > new
	mv new README.md
else
	echo "siac: incumprimento pode já não existir (1)";
fi