--- /dev/null
+#!/usr/bin/env zsh
+# Copyright (C) 2022 Sergey Matveev <stargrave@stargrave.org>
+
+set -e
+setopt EXTENDED_GLOB
+
+pagesize=100
+
+imgs=((*.jxl|*.webp~*.preview.webp)(Om))
+for (( i=1 ; i <= ${#imgs} ; i++ )) {
+ local img=${imgs[$i]}
+ echo $i $img
+ local dst=$i.img.html
+ cat > $dst <<EOF
+<!DOCTYPE html>
+<html><head><title>Image ${i}/${#imgs}: $img</title></head><body>
+EOF
+ [[ $i -eq 1 ]] ||
+ echo "<a href=\"$(( $i - 1 )).img.html\"><<<</a>" >> $dst
+ [[ $i -eq ${#imgs} ]] ||
+ echo "<a href=\"$(( $i + 1 )).img.html\">>>></a>" >> $dst
+ echo "<hr/><img alt=\"$img\" src=\"$img\"/>" >> $dst
+ [[ -r ${img}.txt ]] && {
+ echo "<hr/><pre>" >> $dst
+ cat ${img}.txt >> $dst
+ echo "</pre>" >> $dst
+ }
+ echo "<hr/>" >> $dst
+ if [[ $img:e = jxl ]] ; then
+ echo "<pre>" >> $dst
+ jxlinfo $img > $img.info
+ cat $img.info >> $dst
+ echo "</pre>" >> $dst
+ echo "Alternative formats:" >> $dst
+ if grep -q "JPEG bitstream reconstruction" $img.info ; then
+ [[ -r $img.jpg ]] || {
+ djxl $img $img.jpg
+ touch -r $img $img.jpg
+ }
+ echo "<a href=\"$img.jpg\">JPEG</a>" >> $dst
+ else
+ [[ -r $img.png ]] || {
+ djxl $img $img.ppm
+ pamtopng < $img.ppm > $img.png
+ rm $img.ppm
+ pngcrush -rem alla -rem allb -z 2 $img.png $img.png.png
+ mv $img.png.png $img.png
+ advpng -z -4 $img.png
+ touch -r $img $img.png
+ }
+ echo "<a href=\"$img.png\">PNG</a>" >> $dst
+ fi
+ rm $img.info
+ [[ -r $img.preview.webp ]] || djxl $img $img.ppm
+ else
+ echo "<pre>" >> $dst
+ webpinfo $img >> $dst
+ echo "</pre>" >> $dst
+ [[ -r $img.preview.webp ]] || dwebp $img -ppm -o $img.ppm
+ fi
+ echo "<hr/><pre>" >> $dst
+ exiftool -a -u -g1 $img >> $dst
+ echo "</pre>" >> $dst
+ [[ -r $img.ppm ]] && {
+ pnmscale -w 100 < $img.ppm > $img.ppm.ppm
+ mv $img.ppm.ppm $img.ppm
+ cwebp -pass 10 -alpha_filter best -m 6 -mt -o $img.preview.webp $img.ppm
+ rm $img.ppm
+ touch -r $img $img.preview.webp
+ }
+ echo "</body></html>" >> $dst
+ touch -r $img $dst
+}
+
+pages=$(( ${#imgs} / $pagesize ))
+[[ $(( $pages * $pagesize )) -lt ${#imgs} ]] && pages=$(( $pages + 1 ))
+for (( p=1 ; p <= $pages ; p++ )) {
+ local dst=$p.page.html
+ cat > $dst <<EOF
+<!DOCTYPE html>
+<html><head><title>Page ${p}/$pages</title></head><body>
+EOF
+ [[ $p -eq 1 ]] ||
+ echo "<a href=\"$(( $p - 1 )).page.html\"><<<</a>" >> $dst
+ [[ $p -eq $pages ]] ||
+ echo "<a href=\"$(( $p + 1 )).page.html\">>>></a>" >> $dst
+ echo "| <a href=\"1.page.html\">home</a>" >> $dst
+ echo "| <a href=\"${pages}.page.html\">end</a>" >> $dst
+ echo "<hr/>" >> $dst
+ for (( i=1 ; i <= $pagesize ; i++ )) {
+ img=$(( ( $p - 1 ) * $pagesize + $i ))
+ [[ $img -le ${#imgs} ]] || break
+ echo "<a href=\"${img}.img.html\">" >> $dst
+ echo "<img alt=\"preview ${img}\" src=\"${imgs[$img]}.preview.webp\"/></a>" >> $dst
+ }
+ echo "</body></html>" >> $dst
+ echo page $p
+}