#!/usr/bin/env zsh
# Copyright (C) 2022-2023 Sergey Matveev <stargrave@stargrave.org>
+VERSION=0.2.0
+
set -e
pagesize=${PAGESIZE:-100}
ordering=${ORDERING:-Om}
+style=$STYLE
+
+exifTagsOmit=(
+ ExifToolVersion
+ Directory
+ FileAccessDate
+ FileAttributes
+ FileInodeChangeDate
+ FilePermissions
+)
djxl2ppm() {
- djxl $1 $1.ppm
+ djxl $1 $1.ppm || {
+ djxl $1 $1.pgm
+ mv $1.pgm $1.ppm
+ }
[[ -r ${1}-ec0.ppm ]] || return 0
mv ${1}-ec0.ppm $1.ppm
rm ${1}-ec1.pgm
}
+[[ -z $style ]] || style="<link rel=\"stylesheet\" type=\"text/css\" href=\"$style\">"
+
setopt EXTENDED_GLOB
imgs=((*.jxl|*.webp~*.preview.webp)($ordering))
+pages=$(( ${#imgs} / $pagesize ))
+[[ $(( $pages * $pagesize )) -lt ${#imgs} ]] && pages=$(( $pages + 1 ))
+
+local tmp=`mktemp`
+trap "rm -f $tmp" HUP PIPE INT QUIT TERM EXIT
+
for (( i=1 ; i <= ${#imgs} ; i++ )) {
local img=${imgs[$i]}
echo $i $img
local dst=$i.img.html
- cat > $dst <<EOF
+ local p=$(( ( $i / $pagesize ) + 1 ))
+ cat > $tmp <<EOF
<!DOCTYPE html>
-<html><head><title>Image ${i}/${#imgs}: $img</title></head><body>
+<html>
+ <head>
+ <meta http-equiv="Content-Type" content="text/html; charset=utf-8">
+ <meta name="generator" content="galgen $VERSION">
+ ${style}
+ <title>Image ${i}/${#imgs}: $img</title>
+ <link href="1.page.html" rel="start" title="home">
+ <link href="${p}.page.html" rel="up" title="page">
EOF
[[ $i -eq 1 ]] ||
- echo "<a href=\"$(( $i - 1 )).img.html\"><<<</a>" >> $dst
+ echo "<link href=\"$(( $i - 1 )).img.html\" rel=\"prev\" title=\"previous\">" >> $tmp
[[ $i -eq ${#imgs} ]] ||
- echo "<a href=\"$(( $i + 1 )).img.html\">>>></a>" >> $dst
- echo "<hr/><img alt=\"$img\" src=\"$img\"/>" >> $dst
+ echo "<link href=\"$(( $i + 1 )).img.html\" rel=\"next\" title=\"next\">" >> $tmp
+ cat >> $tmp <<EOF
+ </head>
+<body>
+EOF
+ [[ $i -eq 1 ]] ||
+ echo "<a href=\"$(( $i - 1 )).img.html\"><<<</a>" >> $tmp
+ echo "<a href=\"${p}.page.html\">^^^</a>" >> $tmp
+ [[ $i -eq ${#imgs} ]] ||
+ echo "<a href=\"$(( $i + 1 )).img.html\">>>></a>" >> $tmp
+ echo "<hr/><img alt=\"$img\" src=\"$img\"/>" >> $tmp
[[ -r ${img}.txt ]] && {
- echo "<hr/><pre>" >> $dst
- cat ${img}.txt >> $dst
- echo "</pre>" >> $dst
+ echo "<hr/><pre>" >> $tmp
+ cat ${img}.txt >> $tmp
+ echo "</pre>" >> $tmp
}
- echo "<hr/>" >> $dst
+ [[ -r ${img}.html ]] && cat ${img}.html >> $tmp
+ echo "<hr/>" >> $tmp
if [[ $img:e = jxl ]] ; then
- echo "<pre>" >> $dst
+ echo "<pre>" >> $tmp
jxlinfo $img > $img.info
- cat $img.info >> $dst
- echo "</pre>" >> $dst
- echo "Alternative formats:" >> $dst
+ cat $img.info >> $tmp
+ echo "</pre>" >> $tmp
+ echo "Alternative formats:" >> $tmp
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
+ echo "<a href=\"$img.jpg\">JPEG</a>" >> $tmp
else
[[ -r $img.png ]] || {
djxl2ppm $img
advpng -z -4 $img.png
touch -r $img $img.png
}
- echo "<a href=\"$img.png\">PNG</a>" >> $dst
+ echo "<a href=\"$img.png\">PNG</a>" >> $tmp
fi
rm $img.info
[[ -r $img.preview.webp ]] || djxl2ppm $img
else
- echo "<pre>" >> $dst
- webpinfo $img >> $dst
- echo "</pre>" >> $dst
+ echo "<pre>" >> $tmp
+ webpinfo $img >> $tmp
+ echo "</pre>" >> $tmp
[[ -r $img.preview.webp ]] || dwebp $img -ppm -o $img.ppm
fi
- echo "<hr/><pre>" >> $dst
- exiftool -a -u -g1 $img >> $dst
- echo "</pre>" >> $dst
+ echo "<hr/>" >> $tmp
+ exiftool -escapeHTML -htmlFormat -groupHeadings \
+ --${=${(j/ --/)exifTagsOmit}} $img >> $tmp
[[ -r $img.ppm ]] && {
pnmscale -w 100 < $img.ppm > $img.ppm.ppm
mv $img.ppm.ppm $img.ppm
rm $img.ppm
touch -r $img $img.preview.webp
}
- echo "</body></html>" >> $dst
- touch -r $img $dst
+ echo "</body></html>" >> $tmp
+ cmp -s $tmp $dst || {
+ cat $tmp > $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
+ cat > $tmp <<EOF
<!DOCTYPE html>
-<html><head><title>Page ${p}/$pages</title></head><body>
+<html>
+ <head>
+ <meta http-equiv="Content-Type" content="text/html; charset=utf-8">
+ <meta name="generator" content="galgen $VERSION">
+ ${style}
+ <title>Page ${p}/$pages</title>
+ <link href="1.page.html" rel="start" title="home">
EOF
- [[ $p -eq 1 ]] && [[ -r .txt ]] && {
- echo "<pre>" >> $dst
- cat .txt >> $dst
- echo "</pre>" >> $dst
+ [[ $p -eq 1 ]] ||
+ echo "<link href=\"$(( $p - 1 )).page.html\" rel=\"prev\" title=\"previous\">" >> $tmp
+ [[ $p -eq $pages ]] ||
+ echo "<link href=\"$(( $p + 1 )).page.html\" rel=\"next\" title=\"next\">" >> $tmp
+ cat >> $tmp <<EOF
+ </head>
+<body>
+EOF
+ [[ $p -eq 1 ]] && {
+ [[ -r .txt ]] && {
+ echo "<pre>" >> $tmp
+ cat .txt >> $tmp
+ echo "</pre>" >> $tmp
+ }
+ [[ -r .html ]] && cat .html >> $tmp
}
[[ $p -eq 1 ]] ||
- echo "<a href=\"$(( $p - 1 )).page.html\"><<<</a>" >> $dst
+ echo "<a href=\"$(( $p - 1 )).page.html\"><<<</a>" >> $tmp
[[ $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
+ echo "<a href=\"$(( $p + 1 )).page.html\">>>></a>" >> $tmp
+ echo "| <a href=\"1.page.html\">home</a>" >> $tmp
+ echo "| <a href=\"${pages}.page.html\">end</a>" >> $tmp
+ echo "<hr/>" >> $tmp
for (( i=1 ; i <= $pagesize ; i++ )) {
img=$(( ( $p - 1 ) * $pagesize + $i ))
[[ $img -le ${#imgs} ]] || break
- echo "<a href=\"${img}.img.html\">" >> $dst
+ echo "<a href=\"${img}.img.html\">" >> $tmp
alt="preview ${img}"
title=""
[[ -r ${imgs[$img]}.txt ]] && {
alt=`cat ${imgs[$img]}.txt`
title="title=\"$alt\""
}
- echo "<img alt=\"$alt\" $title src=\"${imgs[$img]}.preview.webp\"/></a>" >> $dst
+ echo "<img alt=\"$alt\" $title src=\"${imgs[$img]}.preview.webp\"/></a>" >> $tmp
+ }
+ echo "</body></html>" >> $tmp
+ cmp -s $tmp $dst || {
+ cat $tmp > $dst
+ echo page $p
}
- echo "</body></html>" >> $dst
- echo page $p
}