#!/usr/bin/env zsh
# Copyright (C) 2022-2023 Sergey Matveev <stargrave@stargrave.org>
-VERSION=0.4.0
+VERSION=0.6.0
set -e
imgs=()
for img (*.jxl(N)) { [[ -r .info/$img.img ]] || imgs=($imgs $img) }
[[ ${#imgs} == 0 ]] || {
- echo JPEG XL info... >&2
+ echo Infos... >&2
parallel "jxlinfo {} > .info/{}.img" ::: $imgs
}
imgs=()
-for img (*.webp(N)) { [[ -r .info/$img.img ]] || imgs=($imgs $img) }
-[[ ${#imgs} == 0 ]] || {
- echo WebP info... >&2
- parallel "webpinfo {} > .info/{}.img" ::: $imgs
-}
-
-imgs=()
-src=((*.jxl|*.webp))
+src=(*.jxl)
for img ($src) { [[ -r .info/$img.exif ]] || imgs=($imgs $img) }
src=()
[[ ${#imgs} == 0 ]] || {
parallel "exiftool -escapeHTML -htmlFormat -groupHeadings --${=${(j/ --/)exifTagsOmit}} {} > .info/{}.exif" ::: $imgs
}
-imgs=((*.jxl|*.webp)($ordering))
+imgs=((*.jxl)($ordering))
pages=$(( ${#imgs} / $pagesize ))
[[ $(( $pages * $pagesize )) -lt ${#imgs} ]] && pages=$(( $pages + 1 ))
local tmp=`mktemp`
trap "rm -f $tmp" HUP PIPE INT QUIT TERM EXIT
-jpgs=()
-pngs=()
-pams_jxl=()
-pams_webp=()
-for img ($imgs) {
- [[ -r .info/$img.img ]]
- if [[ $img:e = jxl ]] ; then
+[[ -n "$NOALT" ]] || {
+ echo HERE
+ exit
+ jpgs=()
+ pngs=()
+ pams=()
+ for img ($imgs) {
+ [[ -r .info/$img.img ]]
[[ -r alt/$img.jpg ]] || [[ -r alt/$img.png ]] && : || {
grep -q "JPEG bitstream reconstruction" .info/$img.img &&
jpgs=($jpgs $img) || pngs=($pngs $img)
}
- [[ -r preview/$img.webp ]] || pams_jxl=($pams_jxl $img)
- else
- [[ -r preview/$img.webp ]] || pams_webp=($pams_webp $img)
- fi
-}
+ [[ -r preview/$img.webp ]] || pams=($pams $img)
+ }
-[[ ${#jpgs} == 0 ]] || {
- echo JPEG reconstruction... >&2
- parallel "djxl --quiet {} alt/{}.jpg && touch -r {} alt/{}.jpg" ::: $jpgs
-}
-jpgs=()
-
-djxl2pam="( djxl --quiet {} ppm:- || djxl --quiet {} pgm:- )"
-[[ ${#pngs} == 0 ]] || {
- echo PNG generation... >&2
- parallel "$djxl2pam | pamtopng > {}.png" ::: $pngs
- parallel "pngcrush -warn -rem alla -rem allb -z 2 {}.png alt/{}.png && rm {}.png" ::: $pngs
- parallel "advpng --quiet --recompress -4 alt/{}.png && touch -r {} alt/{}.png" ::: $pngs
+ [[ ${#jpgs} == 0 ]] || {
+ echo JPEG reconstruction... >&2
+ parallel "djxl --quiet {} alt/{}.jpg && touch -r {} alt/{}.jpg" ::: $jpgs
+ }
+ jpgs=()
+
+ djxl2pam="( djxl --quiet {} ppm:- || djxl --quiet {} pgm:- )"
+ [[ ${#pngs} == 0 ]] || {
+ echo PNG generation... >&2
+ parallel "$djxl2pam | pamtopng > {}.png" ::: $pngs
+ parallel "pngcrush -warn -rem alla -rem allb -z 2 {}.png alt/{}.png && rm {}.png" ::: $pngs
+ parallel "advpng --quiet --recompress -4 alt/{}.png && touch -r {} alt/{}.png" ::: $pngs
+ }
+ pngs=()
}
-pngs=()
mkpreview="pnmscale -w 100"
mkpreview="$mkpreview | cwebp -quiet -pass 10 -alpha_filter best -m 6 -o preview/{}.webp -- -"
mkpreview="$mkpreview && touch -r {} preview/{}.webp"
-[[ ${#pams_jxl} == 0 ]] || {
- echo JPEG XL previews... >&2
- parallel "$djxl2pam | $mkpreview" ::: $pams_jxl
-}
-[[ ${#pams_webp} == 0 ]] || {
- echo WebP previews... >&2
- parallel "dwebp {} -ppm -o - | $mkpreview" ::: $pams_webp
+[[ ${#pams} == 0 ]] || {
+ echo Generating previews... >&2
+ parallel "$djxl2pam | $mkpreview" ::: $pams
}
-pams_jxl=()
-pams_webp=()
+pams=()
for (( i=1 ; i <= ${#imgs} ; i++ )) {
local img=${imgs[$i]}
echo "<pre>" >> $tmp
cat .info/$img.img >> $tmp
echo "</pre>" >> $tmp
- if [[ $img:e = jxl ]] ; then
- echo "Alternative formats:" >> $tmp
- [[ -r alt/$img.jpg ]] && {
- echo "<a href=\"alt/$img.jpg\">JPEG</a>" >> $tmp
- } || {
- echo "<a href=\"$img.png\">PNG</a>" >> $tmp
- }
- fi
- echo "<hr/>" >> $tmp
+ [[ -n "$NOALT" ]] || {
+ if [[ $img:e = jxl ]] ; then
+ echo "Alternative formats:" >> $tmp
+ [[ -r alt/$img.jpg ]] && {
+ echo "<a href=\"alt/$img.jpg\">JPEG</a>" >> $tmp
+ } || {
+ echo "<a href=\"$img.png\">PNG</a>" >> $tmp
+ }
+ fi
+ echo "<hr/>" >> $tmp
+ }
[[ -r .info/$img.exif ]]
cat .info/$img.exif >> $tmp
echo "</body></html>" >> $tmp