#!/usr/bin/env bash

LISTS=()
while read -r -d $'\0'; do
    LISTS+=("$REPLY")
done < <(find lists -maxdepth 1 -mindepth 1 -type d -not -name '.*' -print0 | sort -z)

for x in "${LISTS[@]}"; do
    printf "%s.html\0" "$x"
		printf "rss/%s.rss\0" "$(basename $x)"
done | xargs -r -0 redo-ifchange

cat <<EOF
% Index

This is a blog.
It contains things.
Send things to <blog@dirty-haskell.org> if you so choose.

EOF

for x in "${LISTS[@]}"; do
    printf "* [%s](%s)\n" "$(<$x/title)" "$x.html"
    while read -r -d $'\n'; do
        printf "    %s ([RSS](rss/%s))\n" "$REPLY" "$(basename $x).rss"
    done < "$x/preview"
done