Implement previews of lists in the index

1 files changed, 18 insertions, 2 deletions

diff --git a/lists/default.md.do b/lists/default.md.do
index 94636df..daf7453 100644
--- a/lists/default.md.do
+++ b/lists/default.md.do
@@ -5,7 +5,7 @@ POSTS=()
 while read -r -d $'\0'; do
     post=$(realpath --relative-to=. "$REPLY")
     POSTS+=("$post")
-done < <(find "$2" -maxdepth 1 -mindepth 1 -not -name 'title' -print0 | sort -z)
+done < <(find "$2" -maxdepth 1 -mindepth 1 -not -name 'title' -not -name 'preview' -print0 | sort -z)
 
 for x in "${POSTS[@]}"; do
     printf "%s\0%s\0" "$x" "${x%.md}.html"
@@ -18,7 +18,23 @@ cat <<EOF
 
 EOF
 
+POST_TITLES=()
 for x in "${POSTS[@]}"; do
     title=$(pandoc -t json "$x" | ../build/extract-title.hs 2>&1 >/dev/null)
-    printf "* [%s](%s)\n" "$title" "${x%.md}.html"
+    POST_TITLES+=("$title")
+done
+
+for n in $(seq 0 $((${#POSTS[@]}-1))); do
+    printf "* [%s](%s)\n" "${POST_TITLES[$n]}" "${POSTS[$n]%.md}.html"
+done
+
+prev_no=3
+if [[ ${#POSTS[@]} -gt $prev_no ]]; then
+    printf "* …\n" > "$2/preview"
+else
+    prev_no=${#POSTS[@]}
+fi
+
+for n in $(seq $prev_no -1 1); do
+    printf "* [%s](%s)\n" "${POST_TITLES[-$n]}" "${POSTS[-$n]%.md}.html" >"$2/preview"
 done